guitar_brasil

Entendi sim raphael_suporte :) Algo que eu estava errando é que a entrada da altura (durante a execução do programa) devia ser com ponto. Ex:1.76. E eu entrava 176 :D Em todo caso aí está o código "que funciona". Program IMC; 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 < 24.9) then Writeln('Normal.') Else If ((MASSA > 25) and (MASSA <= 39.9)) Then Writeln('Obeso.') Else If (MASSA >= 30) then Writeln('Obeso Mórbido.') End.

PESO / ALTURA * ALTURA ou PESO / (ALTURA * ALTURA) ?

Uses Crt; Var ALTURA, PESO, MASSA : Real; Begin Writeln('Qual a sua altura?'); Readln(ALTURA); Writeln('E o peso?'); Readln(PESO); MASSA := ALTURA * 2 / PESO; If MASSA < 26 then Writeln('Normal.') Else If (MASSA > 26) and (MASSA <= 30) then Writeln('Obeso.') Else If MASSA >= 30 Then Writeln('Obeso Mórbido.') End. Qualquer altura e peso que eu entre quando executo o programa retorna sempre "normal". O código está com algum erro de lógica? Ou o que está errado? Edit: O erro era na linha 9 que tinha que ser ALTURA * ALTURA em vêz de altura * 2. Edit: Mas assim retorna sempre "obeso mórbido". :(