Calculadora de IMC em Perl
Publicado por victor (última atualização em 06/12/2018)
[ Hits: 2.250 ]
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";
Renomeando arquivos de forma padronizada
Cadastro usando arquivos .txt para guardar dados
Nenhum comentário foi encontrado.
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Desktop Linux ganha novos apps enquanto IA invade o noticiário
Blender 5.0 Beta, Firefox 144 e avanço da IA dominam o dia no mundo Linux
Desktop Linux ganha fôlego enquanto distros refinam experiência e segurança
Wayland em alta, IA em debate e novos ventos para distros e devices
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Baixar jogos Independentes para Ubuntu (3)
Linux x Plataformas de Trading - um problema (in-)solúvel? (4)
Erro ao fazer remaster usando Penguin eggs (4)