Exemplo 24

======================================================
Exemplo 24:

Escreva um algoritmo para ler uma temperatura em graus Fahrenheit, calcular e escrever o valor correspondente em graus Celsius:

Observação: Para testar se a sua resposta está correta saiba que 100oC = 212F
======================================================

// Seção de Declarações

var

celsius,fahrenheit:real
opcao:inteiro

inicio

// Seção de Comandos

escreval("Qual tranformação quer fazer?")
escreval("DIGITE 1 : Celsius -> Fahrenheit")
escreval("DIGITE 2 : Fahrenheit -> Celsius")
leia(opcao)

se (opcao=1)entao
     escreval("Temperatura em Graus Celsius:")
     leia(celsius)

// Fórmula para transformar Celsius para Fahrenheit.     

     fahrenheit<-((9*celsius)/5)+32

     escreval(celsius," Graus Celsius -> ",fahrenheit," Fahrenheit")
    
senao
     escreval("Temperatura em Fahrenheit:")
     leia(fahrenheit)

// Fórmula para transformar Fahrenheit para Celsius.     

     celsius<-(5*(fahrenheit-32))/9
    
     escreval(fahrenheit," Fahrenheit -> ",celsius," Celsius")
fimse

fimalgoritmo

======================================================