Atividade 4 - Questão 5

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

algoritmo "semnome"
var
nome:caractere
imc,peso,altura:real
inicio
escreva("Nome do paciênte: ")
leia(nome)
escreva("Digite o Peso do paciênte: ")
leia(peso)
escreva("Digite a Altura do paciênte: ")
leia (altura)
imc <- (peso/(altura^2))
limpatela
Escreval ("--------------- DADOS DO PACIENTE --------------")
Escreval (" * Nome do Paciente: ",nome)
se (imc < 20) entao
Escreval (" * Seu IMC é: ",imc:2:2)
Escreval (" * Faixa de Risoc: Abaixo do Peso")
senao
se (imc>21) e (imc<=25)entao
Escreval (" * Seu IMC é: ",imc:2:2)
Escreval (" * Faixa de Risco: Normal")
senao
se (imc > 21) e (imc <= 30 )entao
Escreval (" * Seu IMC é: ",imc:2:2)
Escreval (" * Faixa de Risco: Excesso de Peso")
senao
se (imc>30) e (imc <= 35)entao
Escreval (" * Seu IMC é: ",imc:2:2)
Escreval (" * Faixa de Risco: Obesidade")
senao
se (imc > 35 )entao
Escreval (" * Seu IMC é: ",imc:2:2)
Escreval (" * Faixa de Risco: Obesidade Mórbida")
fimse
 fimse
 fimse
 fimse
 fimse
Escreval ("------------------------------------------------")
fimalgoritmo