Konvertering mellem Fahrenheit og Celsius manuelt kræver hjælp af de grundlæggende ligninger : Celsius er (5/9) * ( Fahrenheit -32 ), og Fahrenheit er ( 9/5 ) * Celsius +32 . For at gøre et program i QBasic der udfører denne beregning , skal du vide, hvordan man henter data fra en bruger , analysere disse data og derefter udføre en handling baseret på dataene. Dette kræver en forståelse af PRINT , INPUT og hvis-så -funktioner. Instruktioner
1
Print ud en overskrift for at identificere programmet og dets funktionalitet for brugeren. Giv en titel til programmet og indledende instruktioner .
PRINT " ------------------------------- ----- " PRINT " Temperature Conversion Program " PRINT " --------------------------------- --- " PRINT " " PRINT " Type C Til Celsius -> Fahrenheit (standard) PRINT "Type F For Fahrenheit -> Celsius ) PRINT " "
2
Acquire brugerens svar (F eller C) ved at udnytte en input -funktion , der gemmer værdien i strengen variable USERANSWER $
iNPUT "Svar " . USERANSWER $
< br > 3
Spørg brugeren, hvilken temperatur han gerne vil konvertere , og derefter gemme værdien i den numeriske variable CONVERTTEMP
INPUT " Giv en temperatur " . CONVERTTEMP
4 < p> Byg en IF- THEN erklæring , der kontrollerer værdien af USERANSWER $ , foretager den pågældende handling og gemmer resultatet i den numeriske variabel FINALANSWER . Medtag en ELSE klausul , der udfører standard foranstaltninger i tilfælde brugeren svaret er forkert
IF USERANSWER $ = "C" THEN
FINALANSWER = 5/9 * ( CONVERTTEMP - 32). < br >
elseif USERANSWER $ = F " THEN
FINALANSWER = 9/5 * ( CONVERTEMP + 32)
ELSE
FINALANSWER = 5/9 * ( CONVERTTEMP - 32)
END IF
5
Relay det endelige svar til brugeren med et print-funktion . Udnyt anden IF- THEN konstruere at skræddersy svar, ifølge brugerens oprindelige anmodning
IF USERANSWER $ = "C" THEN
PRINT "The Celsius temperatur er " . FinalAnswer ; " grader ".
elseif USERANSWER $ = F " THEN
PRINT " The Fahrenheit temperatur er " FinalAnswer ," . grader "
ELSE
PRINT "The Celsius temperatur er " FinalAnswer , " . grader "
END IF
