Cómo hacer un programa de conversión de temperatura en QBasic

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 $

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