0
I need to make a code to calculate the ideal weight of men and women, but the teacher said I need to do only using IF-SO, and leave the SENAO out, hence all made that I run this program the first ESCREVER after the SE syntax error ESCREVAL ("Seu peso ideal é: ", peso_i)
, this one, AND
and all this in portugol what makes me more
Just follow my code:
Algoritmo "peso_ideal"
Var
peso_i, altura: real
sexo: caractere
Inicio
TIMER (500)
ESCREVAL ("------------------------------------------------------------------")
ESCREVA ("Por favor informe seu sexo como F(feminino) e M (masculino): ")
LEIA (sexo)
ESCREVA ("Informe sua altura: ")
LEIA (altura)
SE (sexo = "M") ou (sexo = "m") ENTAO
(peso_i) <- (450,7 * altura) / 10
ESCREVAL ("Seu peso ideal é: ", peso_i)
fimse
SE (sexo = "F") ou (sexo = "f") ENTAO
(peso_i) <- (400,7 * altura) / 10
ESCREVAL ("Seu peso ideal é: ", peso_i)
fimse
SE (sexo <> "F") ou (sexo <> "f") ou (sexo <> "M") ou (sexo <> "m") ENTAO
ESCREVAL ("Por favor insira um sexo valido com F ou M")
fimse
ESCREVAL ("------------------------------------------------------------------")
Fimalgoritmo