Conversione tra gradi Fahrenheit e Celsius richiede manualmente utilizzando le equazioni fondamentali : Celsius è ( 5/9 ) * ( Fahrenheit - 32) e Fahrenheit è (9/5) * 32 Celsius . Per fare un programma in QBasic che esegue questo calcolo , è necessario sapere come recuperare i dati da un utente , analizzare i dati e quindi eseguire un'azione in base ai dati . Ciò richiede una comprensione del PRINT , INPUT e se-allora funzioni. Istruzioni
1
Stampa un colpo di testa di identificare il programma e la sua funzionalità per l'utente. Fornire un titolo per il programma e le istruzioni iniziali.
STAMPA " ------------------------------- ----- Programma "STAMPA " Temperature Conversion "STAMPA" --------------------------------- --- " PRINT" " PRINT" Tipo C per Celsius - > Fahrenheit (default ) PRINT " Tipo F Per Fahrenheit - > Celsius ) PRINT" "
2
Acquisire la risposta dell'utente ( F o C) utilizzando una funzione di input che memorizza il valore nella variabile stringa USERANSWER $
iNGRESSO
" risposta"; . USERANSWER
$
< br > 3
Chiedi l'utente che temperatura che vorrebbe convertire , quindi memorizzare il valore nella variabile numerica CONVERTTEMP
INPUT " si prega di fornire una temperatura " ; . CONVERTTEMP
4 < p > Costruire una dichiarazione IF-THEN che controlla il valore di USERANSWER $ , esegue l'azione corrispondente e memorizza il risultato nella variabile numerica FINALANSWER . Includere una clausola ELSE che esegue l'azione predefinita nel caso in cui la risposta dell'utente è corretto
USERANSWER $ = " C ", quindi
FINALANSWER = 5/9 * ( CONVERTTEMP - 32) .
ELSEIF USERANSWER $ = F " ALLORA
FINALANSWER = 9/5 * ( CONVERTEMP + 32 ) per
ELSE
FINALANSWER = 5/9 * ( CONVERTTEMP - 32 ) per
END IF
5
Relay la risposta finale per l'utente con una funzione di stampa . Utilizzare un altro IF-THEN costrutto di adattare la risposta in base alla richiesta iniziale dell'utente
USERANSWER $ = " C ", quindi
PRINT " La temperatura Celsius è"; . FinalAnswer ; " gradi ".
ELSEIF USERANSWER $ = F " ALLORA
STAMPA " La temperatura di Fahrenheit è "; FinalAnswer ; " . gradi "
ELSE
PRINT " La temperatura Celsius è"; FinalAnswer ; " . gradi "
END IF
