-
Cómo hacer un programa de conversión de temperatura en QBasic
-
La conversión entre Fahrenheit y Celsius manualmente requiere el uso de las ecuaciones básicas: Celsius es (5/9)
(Fahrenheit-32) y Fahrenheit es (9/5) + 32 centígrados. Para hacer un programa en QBasic que realiza este cálculo, lo que necesita saber cómo recuperar los datos de un usuario, analizar los datos y luego realizar una acción basada en los datos. Esto requiere una comprensión de la impresión, la entrada 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.
IMPRESIÓN "------------------------------------"
PRINT "Programa de conversión de la temperatura"
IMPRESIÓN "------------------------------------"
IMPRESIÓN " "
PRINT "Tipo C Para centígrados -> Fahrenheit (por defecto)
PRINT "tipo F Para Fahrenheit -> Celsius)
IMPRESIÓN " "2 Adquirir la respuesta del usuario (F o C) mediante la utilización de una función de entrada que almacena el valor en la variable cadena USERANSWER $.
ENTRADA "respuesta"; $ USERANSWER
3 Preguntar al usuario qué temperatura que le gustaría convertir, a continuación, almacenar el valor en el CONVERTTEMP variable numérica.
ENTRADA "Proporciona una temperatura"; CONVERTTEMP
4 Construir una instrucción IF-THEN que comprueba el valor de $ USERANSWER, realiza la acción correspondiente y almacena el resultado en el FINALANSWER variable numérica. Incluir una cláusula ELSE que realiza la acción predeterminada en caso de que la respuesta del usuario es incorrecto.
SI USERANSWER $ = "C", entonces
FINALANSWER = 5/9 * (CONVERTTEMP - 32)
ELSEIF USERANSWER $ = F ",
FINALANSWER = 9/5 * (CONVERTEMP + 32)
MÁS
FINALANSWER = 5/9 * (CONVERTTEMP - 32)
TERMINARA SI
5 Retransmitir la respuesta final al usuario con una función de impresión. Utilizar otra IF-THEN construir 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 ",
PRINT "La temperatura es Fahrenheit"; FinalAnswer; "grados".
MÁS
PRINT "La temperatura Celsius es"; FinalAnswer; "grados".
TERMINARA SI