Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
program l2p21;<br />
var<br />
ALTURA, PESO, IMC: real;<br />
begin<br />
write('Digite o Peso: ');<br />
readLn(PESO);<br />
write('Digite a Altura: ');<br />
readLn(ALTURA);<br />
IMC := PESO / (ALTURA*ALTURA);<br />
writeLn('Indice de Massa Corporea (IMC) = ' ,IMC:5:2);<br />
if ( IMC < 20 ) then<br />
writeLn('ABAIXO DO PESO')<br />
else<br />
if ( IMC >= 20 ) and ( IMC < 25 ) then<br />
writeLn('PESO NORMAL')<br />
else<br />
if ( IMC >= 25 ) and ( IMC < 30 ) then<br />
writeLn('SOBRE PESO')<br />
else<br />
if ( IMC >= 30 ) and ( IMC < 40 ) then<br />
writeLn('OBESO')<br />
else<br />
writeLn('OBESO MÓRBIDO');<br />
end.<br />
PESO = input('Digite o Peso: ');<br />
ALTURA = input('Digite a Altura: ');<br />
IMC = PESO / (ALTURA*ALTURA);<br />
fprintf(1,'Indice de Massa Corporea (IMC) = %f\n',IMC);<br />
if ( IMC < 20 )<br />
disp('ABAIXO DO PESO');<br />
else<br />
if ( IMC >= 20 ) & ( IMC < 25 )<br />
disp('PESO NORMAL');<br />
else<br />
if ( IMC >= 25 ) & ( IMC < 30 )<br />
disp('SOBRE PESO');<br />
else<br />
if ( IMC >= 30 ) & ( IMC < 40 )<br />
disp('OBESO');<br />
else<br />
disp('OBESO MÓRBIDO');<br />
end<br />
end<br />
end<br />
end<br />
<strong>UFMG</strong> – ICEx – <strong>DCC</strong> – Programação de Computadores – 2º. Sem 2005 – David Menoti 26