March 16
Conversione tra Fahrenheit e Celsius manualmente richiede l'utilizzo di equazioni di base: Celsius è (5/9)
(Fahrenheit-32) e Fahrenheit è (9/5) Celsius + 32. 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 if-then funzioni.
1 Stampare una intestazione per identificare il programma e la sua funzionalità per l'utente. Fornire un titolo per il programma e le istruzioni iniziali.
PRINT "------------------------------------"
PRINT "programma di temperatura Conversione"
PRINT "------------------------------------"
PRINT ""
PRINT "di tipo C per Celsius -> Fahrenheit (default)
PRINT "Tipo F per Fahrenheit -> Celsius)
PRINT ""
2 Acquisire risposta dell'utente (F o C) utilizzando una funzione di ingresso che memorizza il valore nella variabile stringa USERANSWER $.
INPUT "risposta"; USERANSWER $
3 Chiedere all'utente che temperatura che vorrebbe convertire, quindi memorizzare il valore nella CONVERTTEMP variabile numerica.
INPUT "Si prega di fornire una temperatura"; CONVERTTEMP
4 Costruire un'istruzione IF-THEN che controlla il valore di $ USERANSWER, esegue l'azione corrispondente e memorizza il risultato nella FINALANSWER variabile numerica. Include una clausola ELSE che esegue l'azione predefinita nel caso in cui la risposta dell'utente non è corretta.
SE USERANSWER $ = "C", quindi
FINALANSWER = 5/9 * (CONVERTTEMP - 32)
ELSEIF USERANSWER $ = F ", quindi
FINALANSWER = 9/5 * (CONVERTEMP + 32)
ALTRO
FINALANSWER = 5/9 * (CONVERTTEMP - 32)
FINISCI SE
5 Relè la risposta finale all'utente con una funzione di stampa. Utilizzare un'altra IF-THEN costruzione di adattare la risposta in base alla richiesta iniziale dell'utente.
SE USERANSWER $ = "C", quindi
STAMPA "La temperatura Celsius è"; FinalAnswer, "gradi".
ELSEIF USERANSWER $ = F ", quindi
STAMPA "La temperatura Fahrenheit è"; FinalAnswer, "gradi".
ALTRO
STAMPA "La temperatura Celsius è"; FinalAnswer, "gradi".
FINISCI SE