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
$

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

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

• Che cosa è una variante in VB 
• Come convertire Temperatura in QBasic