Konvertieren zwischen Fahrenheit und Celsius manuell erfordert die Verwendung der grundlegenden Gleichungen : Celsius ist (5/9 ) * ( Fahrenheit - 32) und Fahrenheit (9 /5) * +32 Celsius . Um ein Programm in QBasic , die diese Berechnung durchführt machen, müssen Sie wissen, wie man Daten von einem Benutzer abzurufen , zu analysieren , dass die Daten und dann eine Aktion ausführen, basierend auf den Daten . Dies erfordert ein Verständnis der PRINT , INPUT und WENN-DANN- Funktionen . Anleitung
1
ausdrucken einem Header , um das Programm und seine Funktionalität für den Benutzer zu identifizieren. Geben Sie einen Titel für das Programm und die ersten Anweisungen.
PRINT " ------------------------------- ----- "PRINT" Temperature Conversion Program " PRINT" --------------------------------- --- "PRINT" "PRINT" Typ C für Celsius -> Fahrenheit (default) PRINT " Typ F für Fahrenheit -> Celsius ) PRINT" "
2
Erwerben die Antwort des Benutzers (F oder C) durch Verwendung eines Eingangs-Funktion , die den Wert speichert in der String-Variablen $ USERANSWER
INPUT " Antwort "; . USERANSWER $
3
Bitten Sie den Benutzer , welche Temperatur er konvertieren möchten , dann speichern Sie den Wert in der numerischen Variablen CONVERTTEMP
INPUT " Bitte geben Sie eine Temperatur "; . CONVERTTEMP
4 < p> Baue eine WENN-DANN- Anweisung, die den Wert von $ USERANSWER prüft , führt die entsprechende Aktion und speichert das Ergebnis in der numerischen Variablen FINALANSWER . Fügen Sie eine ELSE -Klausel, die die Standard- Aktion ausführt , wenn der Benutzer eine falsche Antwort ist
IF USERANSWER $ = "C" DANN
FINALANSWER = 5/9 * ( CONVERTTEMP - 32) .
ELSEIF USERANSWER $ = F " DANN
FINALANSWER = 9/5 * ( CONVERTEMP + 32)
ELSE
FINALANSWER = 5/9 * ( CONVERTTEMP - 32)
END IF
5
Relay die endgültige Antwort auf die Benutzer mit einem PRINT -Funktion. Nutzen Sie eine weitere WENN-DANN , maßgeschneiderte konstruieren die Antwort nach der Benutzer die ursprüngliche Anfrage
IF USERANSWER $ = "C" DANN
PRINT " Die Celsius Temperatur "; . FinalAnswer ; " Grad ".
ELSEIF USERANSWER $ = F " DANN
PRINT" Die Temperatur in Fahrenheit ist "; FinalAnswer ; ." Grad "
ELSE
PRINT " Die Celsius Temperatur "; FinalAnswer ; . " Grad "
END IF
