fugioka-DF
-
Total de itens
1 -
Registro em
-
Última visita
Sobre fugioka-DF
fugioka-DF's Achievements
0
Reputação
-
(Resolvido) Imc em Pascal.
pergunta respondeu ao guitar_brasil de fugioka-DF em Outras Linguagens de Programação
sinal do maior ou igual precisa ir em ordem se não da erro (<=) lembrando que parenteses determina a ordem da resolução da eguação. Uses Crt; Var ALTURA, PESO, MASSA : Real; Begin Writeln('Qual a sua altura?'); Readln(ALTURA); Writeln('E o peso?'); Readln(PESO); MASSA := PESO / (ALTURA * ALTURA); If MASSA < 18.5 then Writeln('Você está abaixo do peso ideal.') Else If (MASSA >= 18.5 ) and (MASSA <= 24.9) then Writeln('Parabéns - você está em seu peso normal!') Else If (MASSA >= 25) and (MASSA <= 29.9) then Writeln('Você está acima de seu peso (sobrepeso)') Else If (MASSA >= 30) and (MASSA <= 34.9) then Writeln('Obesidade grau I.') else If (MASSA >= 35) and (MASSA <= 39.9) then Writeln('Obesidade grau II.') Else If (MASSA >= 40) then Writeln('Obesidade grau III.') End. testado