Converteren tussen Fahrenheit en Celsius handmatig vereist het gebruik van de fundamentele vergelijkingen : Celsius is ( 5/9 ) * ( Fahrenheit - 32 ) en Fahrenheit is ( 9/5 ) * Celsius 32 . Om een programma in QBasic dat deze berekening uitvoert , moet je weten hoe je gegevens op te halen van een gebruiker , analyseert deze gegevens en vervolgens een actie op basis van de data . Dit vereist een goed begrip van de PRINT , INPUT en IF - THEN -functies . Instructies Print 1 op een kop om het programma en de functionaliteit om de gebruiker te identificeren . Geef een titel voor het programma en de eerste instructies . PRINT " ------------------------------- ----- "PRINT " Temperature Conversion Program "PRINT " --------------------------------- --- "PRINT " "PRINT " Type C Voor Celsius - > Fahrenheit ( default ) PRINT " Type F voor Fahrenheit - > Celsius ) PRINT" " kopen van 2 Acquire antwoord van de gebruiker ( F of C ) door gebruik te maken van een ingang functie die de waarde opgeslagen in het stringvariabele USERANSWER $ INPUT " antwoord " ; . USERANSWER $ < br > 3 Vraag de gebruiker welke temperatuur hij zou willen zetten , dan is de waarde op te slaan in de numerieke variabele CONVERTTEMP INPUT "Geef aub een temperatuur " ; . CONVERTTEMP 4 Bouw een IF - THEN statement dat de waarde van USERANSWER $ controleert , voert de bijbehorende actie en slaat het resultaat op in de numerieke variabele FINALANSWER . Onder andere een ELSE clausule dat de standaard actie uitvoert in het geval de gebruiker antwoord onjuist IF USERANSWER $ = " C " FINALANSWER = 5/9 * ( CONVERTTEMP - 32 ) THEN . < br > ELSEIF USERANSWER $ = F " FINALANSWER THEN = 9/5 * ( CONVERTEMP + 32 ) op Twitter ELSE FINALANSWER = 5/9 * ( CONVERTTEMP - 32 ) END IF 5 Relay het definitieve antwoord op de gebruiker met een PRINT -functie . Maken gebruik van een andere IF - THEN bouwen om op maat het antwoord volgens de eerste verzoek van de gebruiker IF USERANSWER $ = " C " DRUK DAN " De Celsius temperatuur is " ; . FinalAnswer ; " graden . " ELSEIF USERANSWER $ = F " DRUK DAN " De Fahrenheit temperatuur is " , FinalAnswer ; " . graden " ELSE PRINT " De Celsius temperatuur is " , FinalAnswer ; " . graden " END IF
|