exercicio 5

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

algoritmo "exercicio 5 "
var
 altura :inteiro,
 sexo : caractere,
 feminino :real,
 masculino:real,
 peso_atual :real
 nome: caractere
 genero: caractere
 gen_OK: caractere
 peso_ideal: real
inicio
 Escreval ("Digite seu nome:")
 Leia (nome)
 Escreval ("Digita sua altura:")
 Leia (altura)
 Escreval ("Digite seu peso atual:")
 Leia (peso_atual)
 Escreval ("Digite seu genero: masculino / feminino")
 Leia (genero)
 gen_OK := ("nok")
 Enquanto gen_OK <> ("ok") faca
 se genero = ("masculino") entao
 peso_ideal := (72.7*altura)-58
 gen_OK := ("ok")
 senao
 se genero = ("feminino") entao
 peso_ideal := (62.1*altura)-44.7
 gen_OK := ("ok")
 senao
 Leia (genero)
 fimse
 fimse
 Fimenquanto
 Escreval (nome)
 Escreval ("Seu peso atual é:", peso_atual)
 Escreval ("Sua altura é:", altura)
 Escreval ("Seu genero é:", genero)
 Escreval ("Seu peso ideal é:", peso_ideal)
Fimalgoritmo