Conversão entre Fahrenheit e Celsius requer manualmente usando as equações básicas : Celsius é ( 5/9) * (Fahrenheit -32) e Fahrenheit é (9/5) * Celsius +32 . Para fazer um programa em QBasic que realiza este cálculo , você precisa saber como recuperar dados de um usuário, analisar esses dados e , em seguida, executar uma ação com base nos dados . Isso requer uma compreensão do PRINT , INPUT e if-then funções. Instruções
1

Imprima um cabeçalho para identificar o programa e sua funcionalidade para o usuário. Fornecer um título para o programa e as instruções iniciais.

PRINT " ------------------------------- ----- "PRINT" Programa de Conversão de Temperatura "PRINT" --------------------------------- --- "PRINT" "PRINT" Tipo C para Celsius -> Fahrenheit (padrão) PRINT "Tipo F Para Fahrenheit -> Celsius ) PRINT " "
2

Adquirir a resposta do usuário (F ou C) , utilizando uma função de entrada que armazena o valor na cadeia de USERANSWER variável $

iNPUT " resposta "; . USERANSWER $
< br > 3

Peça ao usuário que temperatura ele gostaria de converter-se, em seguida, armazenar o valor no ConvertTemp variável numérica

INPUT " por favor, forneça uma temperatura "; . ConvertTemp
4

Construir uma instrução IF -THEN que verifica o valor da USERANSWER $, executa a ação correspondente e armazena o resultado no FINALANSWER variável numérica. Incluir uma cláusula ELSE que executa a ação padrão no caso a resposta do usuário está incorreta

IF USERANSWER $ = "C" ENTÃO

FINALANSWER = 5/9 * ( ConvertTemp - 32) .

ELSEIF USERANSWER $ = F " ENTÃO

FINALANSWER = 9/5 * ( CONVERTEMP + 32)

MAIS

FINALANSWER = 5/9 * ( ConvertTemp - 32)

END IF
5

retransmitir a resposta final para o usuário com a função PRINT. Utilize outra construção IF-THEN para adequar a resposta de acordo com a solicitação inicial do usuário

IF USERANSWER $ = "C" ENTÃO

PRINT " A temperatura Celsius é" ; . FinalAnswer ; "graus ".

ELSEIF USERANSWER $ = F " ENTÃO

PRINT " A temperatura Fahrenheit é " ; FinalAnswer ; " . graus "

ELSE

PRINT " A temperatura Celsius é" ; FinalAnswer ; " . graus "

END IF