Calculadora de IMC em Perl

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

[ Hits: 216 ]

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

Calculadora

Equação do 2°

triangulo

Cálculo do MDC em Perl

Lista de números aleatórios não-repetidos de um intervalo em Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts