Calculadora de IMC em Perl
Publicado por victor (última atualização em 06/12/2018)
[ Hits: 2.260 ]
Homepage: kkk
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";
Calculando a média entre dois valores
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
O programa assinador digital (0)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)
Instalação não está resolvendo as dependencias (2)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)









