Calculadora de IMC em Perl
Programa básico, reescrito em Perl, que calcula seu IMC e te informa se você está abaixo, acima ou em seu peso ideal.
Descrição
Programa básico, reescrito em Perl, que calcula seu IMC e te informa se você está abaixo, acima ou em seu peso ideal.
print" CALCULADORA DO IMC V2 \n";
print" PRIMEIRAMENTE VAMOS CALCULAR SEU IMC: \n":
print" DIGITE SEU PESO EM KG \n";
chomp($peso = <STDIN>);
print" DIGITE SUA ALTURA EM METROS \n";
chomp($altura = <STDIN>);
print" O RESULTADO DE SEU IMC É" .$peso/$altura*$altura;
print" AGORA QUE JÁ SABEMOS O RESULTADO DE SEU IMC, VAMOS VER SE SEU PESO ESTÁ CORRETO: \n";
print" DIGITE SEU IMC: \n";
chomp($imc = <STDIN>);
if($imc < 17 and $imc = 18)
{
print" VOCÊ ESTÁ ABAIXO DO PESO, GANHE MASSA \n";
}
if($imc > 40)
{
print"VOCê ESTÁ MUITO ACIMA DO PESO, PERCA MASSA \n";
}
if($imc >= 19 and $imc <= 25)
{
print" PARABÉNS, VOCÊ ESTÁ EM SEU PESO IDEAL \n";
}
if ($imc > 25 and $imc <= 29)
{
print" CUIDADO, VOCÊ ESTÁ ACIMA DO PESO \n":
}
if ($imc > 29 and $imc <= 34)
{
print" VOCÊ ESTÁ OBESO, PERCA MASSA \n";
}
if ($imc > 34 and $imc <= 39)
{
print" VOCÊ ESTÁ MUITO ACIMA DO PESO, PERCA MASSA \n";
}
print" SATISFEITO COM SEUS RESULTADOS?? \n":
print" NOSSO SISTEMA TEM 98% DE PRECISÃO \n";