Programa básico, reescrito em Perl, que calcula seu IMC e te informa se você está abaixo, acima ou em seu peso ideal.

• Download calcperl.pl
• Enviar nova versão

Esconder código-fonte

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";

Calculando a média entre dois valores

localtime.pl

Múltiplos de 7 - Decrescente

Cálculo do MDC em Perl

Crivo de Eratóstenes Simples em Perl

Nenhum comentário foi encontrado.