Exercício 08 Estrutura de Seleção - Pascal

8) O IMC – Índice de Massa Corporal é um critério da Organização Mundial de Saúde para dar uma indicação sobre a condição de peso de uma pessoa adulta. A fórmula é IMC = peso / (altura)². Elabore um algoritmo que leia o peso e a altura de um adulto e mostre sua condição.

IMC	Condição
Abaixo de 18,5 Entre 18,5 e 25 Entre 25 e 30 Acima de 30	Abaixo do peso Peso normal Acima do peso Obeso

Program Cond08 ;
var
 altura,imc,peso: real;
 Begin
   Write('Peso: ');
   readln(peso);
   Write('Altura: ');
   readln(altura);
     imc:= peso/exp(2*ln(altura));
      if (imc < 18.5) then
       Writeln('Abaixo do Peso')
      else if (imc > 18.5) and (imc < 25) then
      Writeln('Peso Normal')   
     else if (imc > 25) and (imc < 30) then
      Writeln('Aima do Peso')
     else if (imc > 30) then
      Writeln('Obeso');  
    End.

Categories: Pascal , Programação