ubiquitour.com

Cómo hacer una temperatura convertir programa en QBasic

Conversión entre Fahrenheit y Celsius manualmente requiere el uso de las ecuaciones básicas: centígrado es (5/9)(Fahrenheit-32) y Fahrenheit (9/5)Celsius + 32. Para hacer un programa en QBasic que realiza este cálculo, necesita saber cómo recuperar datos de un usuario, analizar datos y realizar una acción basada en los datos. Esto requiere una comprensión de la impresión, entrada y funciones IF-THEN.

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 "------------------------------------"PRINT "Programa de conversión de temperatura"PRINT "------------------------------------"IMPRIMIR ""Imprimir "tipo C para Celsius--> a Fahrenheit (por defecto)Imprimir "tipo F de Fahrenheit--> a c)IMPRIMIR ""

2 Adquirir la respuesta del usuario (F o C) utilizando una función de entrada que almacena el valor en la variable de cadena $ USERANSWER.

ENTRADA de "Respuesta"; $ USERANSWER

3 Preguntar al usuario qué temperatura desea convertir, a continuación, guarde el valor en la CONVERTTEMP variable numérica.

ENTRADA "por favor proporcionar 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 la 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.

IF $ USERANSWER = "C" ENTONCES

FINALANSWER = 5/9 * (CONVERTTEMP - 32)

ELSEIF USERANSWER$ = F "ENTONCES

FINALANSWER = 9/5 * (CONVERTEMP + 32)

OTRA COSA

FINALANSWER = 5/9 * (CONVERTTEMP - 32)

END IF

5 Retransmisión de la respuesta final al usuario con una función de impresión. Utilizar otra construcción IF-THEN para ajustar la respuesta según la petición inicial del usuario.

IF $ USERANSWER = "C" ENTONCES

Imprimir "el Celsius temperatura"; FinalAnswer;"grados."

ELSEIF USERANSWER$ = F "ENTONCES

Imprimir "Fahrenheit la temperatura"; FinalAnswer;"grados."

OTRA COSA

Imprimir "el Celsius temperatura"; FinalAnswer;"grados."

END IF