Calculadora de IMC em Perl
Publicado por victor (última atualização em 06/12/2018)
[ Hits: 1.846 ]
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";
Cálculo de área de uma figura geométrica
Assistente de instalação por apt!
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando e usando o Dconf Editor, o "regedit" para Linux
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Qual a relevancia dos valores de bogomips com os Mhz e Ghz[DUVIDA] (1)
Remover por completo uma DE (4)
Dificuldade em ler binário (17)