QUESTÃO 2 CONVERSOR TEMPERATURA

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "CONVERSOR DE TEMPERATURA"
var
z, A:inteiro
temp,result:real
inicio
repita
repita
escreval ("CONVERSOR DE TEMPERATURA")
escreval ("selecione o tipo de conversão")
escreval ("(1) farenheit - celsius")
escreval ("(2) farenheit - kelvin")
leia (A)
Se (A <1) ou (A >2) entao
limpatela
escreval ("digite uma das opções válidas (de 1 a 2)")
fimse
ate (A >=1) e (A <=2)
limpatela
escreval ("digite o valor a ser convertido")
leia(temp)
Se A = 1 entao
result <- (temp - 32)/1.8
fimse
Se A = 2 entao
result <- (temp + 459.67)/5.9
fimse
escreval ("o resultado é", result)
escreval ("")
repita
escreval ("deseja fazer outra conversão?")
escreval ("1 - sim")
escreval ("2 - nao")
leia (z)
se (Z>2) ou (Z<1) entao
escreval ("Opção Inexistente")
fimse
ate (Z>0) e (Z<3)
Ate Z = 2
fimalgoritmo