Calculando o IMC em Pascal

Program INDICE_DE_MASSA_CORPORAL;
uses crt;
var
altura, massa, IMC: real;
begin

     // Site: http://programjm.blogspot.com.br/
     // Autor: João Matheus Santos Assis

     {
      Programa em Pascal que calcula o IMC.
      O programa deve receber do usuário sua massa e a sua altura,
      e vai obter o seu Status.
     }

     writeln(' CALCULO DO INDICE DE MASSA CORPORAL');

     {Peso em Kilograma}
     write(' Massa (Kg): ');
     readln(massa);
     {Altura em metro}
     write(' Altura (m): ');
     readln(altura);

     IMC:= massa / (altura * altura);

     writeln;
     writeln(' IMC: ',IMC:4:2);


     if (IMC < 18.5) then
     writeln (' Baixo peso');

     if (IMC >= 18.5) and (IMC < 24.9) then
     writeln (' Normal');

     if (IMC >= 25) and (IMC <= 29.9) then
     writeln (' Pre-Obeso');

     if (IMC >= 30) and (IMC <= 34.9) then
     writeln (' Obesidade Classe I (leve)');

     if (IMC >= 35) and (IMC < 39.9) then
     writeln (' Obesidade Classe II (moderada)');

     if (IMC >= 40) then
     writeln (' Obesidade Classe III (Grave,Morbida)');

readkey;
end.


Artigos relacionados em Pascal:

• Quadrado e Cubo dos números entre 1 e 20 em Pascal.
• Somando duas matrizes em Pascal
• Programa que imprimi os divisores de n entre A e B em Pascal.
• Programa que calcula o fatorial de um número em Pascal
• Desenhando um quadrado em Pascal
• Desenhando um triângulo em Pascal
• Calculadora Simples em Pascal





Feito no Dev-Pascal 1.9.2 | Executável