Konvertering mellom Fahrenheit og Celsius krever manuelt ved hjelp av de grunnleggende ligninger : Celsius er ( 5/9 ) * ( Fahrenheit -32 ) og Fahrenheit er ( 9/5 ) * Celsius +32 . Å lage et program i QBasic som utfører denne beregningen , må du vite hvordan du henter data fra en bruker , analysere dataene og deretter utføre en handling basert på dataene . Dette krever en forståelse av PRINT, INPUT og if-then funksjoner. Instruksjoner
en
Print ut en header å identifisere programmet og dets funksjonalitet til brukeren. Gi en tittel på programmet og innledende instruksjoner .
PRINT " ------------------------------- ----- " PRINT" Temperatur Conversion Program " PRINT" --------------------------------- --- " PRINT" " PRINT" Type C For Celsius - > Fahrenheit ( standard) PRINT "Type F For Fahrenheit - > Celsius ) PRINT" "
2
Skaff brukerens svar ( F eller C ) ved å benytte en inngang funksjon som lagrer verdien i strengvariabelen USERANSWER kr
iNNGANG " Svar "; . USERANSWER $
3
Be brukeren hvilken temperatur han ønsker å konvertere , og deretter lagre verdien i den numeriske variable CONVERTTEMP
INNGANG " Vennligst oppgi en temperatur "; . CONVERTTEMP
4 < p> Bygg en if-then setning som sjekker verdien av USERANSWER $ , utfører tilsvarende handling og lagrer resultatet i den numeriske variabelen FINALANSWER . Inkluder en ELSE klausul som utfører standard handlingen i tilfelle brukeren svaret er feil
IF USERANSWER $ = " C" SÅ
FINALANSWER = 5/9 * ( CONVERTTEMP - 32) .
Elseif USERANSWER $ = F " SÅ
FINALANSWER = 9/5 * ( CONVERTEMP + 32 )
ELSE
FINALANSWER = 5/9 * ( CONVERTTEMP - 32 )
END IF
5
Relay det endelige svaret til brukeren med en print-funksjon . Utnytte en annen IF- THEN konstruere å skreddersy svaret henhold til brukerens opprinnelige forespørselen
IF USERANSWER $ = " C" SÅ
PRINT " The Celsius temperatur er "; . FinalAnswer ; " grader ".
Elseif USERANSWER $ = F " SÅ
PRINT " The Fahrenheit temperatur er "; FinalAnswer ; " . grader "
ELSE
PRINT " The Celsius temperatur er "; FinalAnswer ; " . grader "
END IF
