Calculadora de IMC em Perl

Publicado por victor (última atualização em 06/12/2018)

[ Hits: 165 ]

Homepage: kkk

Download calcperl.pl




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

  



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

Scripts recomendados

Conversor de moedas

Crivo de Eratóstenes Simples em Perl

Calculando a média entre dois valores

Assistente de instalação por apt!

check_mem.pl - Plugin Nagios para checar consumo de RAM


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário