Konvertera mellan Fahrenheit och Celsius manuellt kräver hjälp av grundläggande ekvationer : Celsius är ( 5/9 ) * ( Fahrenheit - 32 ) och Fahrenheit är (9/5) * Celsius +32 . För att göra ett program i QBasic som utför denna beräkning , måste du veta hur du hämtar data från en användare , analysera dessa data och sedan utföra en åtgärd baserad på data . Detta kräver en förståelse för PRINT , INPUT och IF - fungerar då . Instruktioner
1
Skriv ut en rubrik för att identifiera programmet och dess funktionalitet för användaren . Ge en titel för programmet och inledande instruktioner .
PRINT " ------------------------------- ----- " PRINT " Temperature Conversion Program " PRINT " --------------------------------- --- " PRINT " " PRINT " Type C för Celsius - > Fahrenheit ( standard ) PRINT " Type F För Fahrenheit - > Celsius ) PRINT " "
2
Förvärva användarens svar ( F eller C ) genom att använda en ingång som lagrar värdet i strängen variabeln USERANSWER $
iNPUT " svara " , . USERANSWER $
3
Be användaren vilken temperatur han vill konvertera , sedan lagra värdet i den numeriska variabeln CONVERTTEMP
INPUT " Ange en temperatur " , . CONVERTTEMP
4
Bygg en IF - THEN uttalande som kontrollerar värdet av USERANSWER $ , utför motsvarande åtgärder och lagrar resultatet i den numeriska variabeln FINALANSWER . Inkludera en ELSE klausul som utför standardåtgärden om användaren svarar fel
IF USERANSWER $ = " C " DÅ
FINALANSWER = 5/9 * ( CONVERTTEMP - 32 ) .
elseIf USERANSWER $ = F " DÅ
FINALANSWER = 9/5 * ( CONVERTEMP + 32 ) katalog
ANNARS
FINALANSWER = 5/9 * ( CONVERTTEMP - 32 ) katalog
END IF
5
Relay det slutgiltiga svaret till användaren med en utskriftsfunktion . Utnyttja annan IF - sedan konstruera att skräddarsy svar enligt användarens ursprungliga begäran
IF USERANSWER $ = " C " DÅ
PRINT " Den Celsiustemperaturen är "; . FinalAnswer ; " grader. "
elseIf USERANSWER $ = F " DÅ
PRINT " Den Fahrenheit temperatur är "; FinalAnswer ; " . grader "
ANNARS
PRINT " Den Celsiustemperaturen är "; FinalAnswer ; " . grader "
END IF Addera
