Conversión entre Fahrenheit y Celsius requiere manualmente usando las ecuaciones básicas : Celsius es ( 5/9) * (Fahrenheit - 32) y Fahrenheit es ( 9/5) * 32 Celsius . Para hacer un programa en QBasic que realiza este cálculo , lo que necesita saber cómo recuperar datos de un usuario , analizar los datos y luego realizar una acción basada en los datos. Esto requiere una comprensión de la PRINT, INPUT y si-entonces funciones. Instrucciones
1
Imprimir un encabezado para identificar el programa y su funcionalidad para el usuario. Proporcionar un título para el programa y las instrucciones iniciales.
PRINT " ------------------------------- Programa de conversión ----- " PRINT " Temperature " PRINT" --------------------------------- --- " PRINT" " PRINT " Tipo C para Celsius -> Fahrenheit (predeterminado) PRINT "Tipo F para Fahrenheit -> Celsius ) PRINT" "
2
Adquirir la respuesta del usuario (F o C ) mediante la utilización de una función de entrada que almacena el valor de la variable de cadena USERANSWER $
iNPUT " respuesta " ; . USERANSWER $
< br > 3
Pregunta al usuario qué temperatura le gustaría convertir, luego almacenar el valor de la variable numérica ConvertTemp
INPUT " Por favor, proporcione una temperatura " ; . ConvertTemp
4 < p> Construir una instrucción IF -THEN que comprueba el valor de USERANSWER $, realiza la acción y almacena el resultado en el FINALANSWER variable numérica correspondiente. Incluya una cláusula ELSE que ejecuta la acción predeterminada en caso de que la respuesta del usuario es incorrecta
SI USERANSWER $ = " C" ENTONCES
FINALANSWER = 9.5 * ( ConvertTemp - 32 ) .
ELSEIF USERANSWER $ = F " ENTONCES
FINALANSWER = 9.5 * ( ConverTemp + 32 )
MÁS
FINALANSWER = 5.9 * ( ConvertTemp - 32 )
END IF
5
Relay la respuesta final al usuario con una función de impresión . Utilizar otro IF- THEN para adaptar la respuesta según la petición inicial del usuario
SI USERANSWER $ = " C" ENTONCES
PRINT " La temperatura Celsius es"; . FinalAnswer ; " grados ".
ELSEIF USERANSWER $ = F " ENTONCES
PRINT " La temperatura es Fahrenheit " ; FinalAnswer ; " . grados "
MÁS
PRINT " La temperatura Celsius es"; FinalAnswer ; " . grados "
END IF
