Calculadora de IMC em Perl
Publicado por victor (última atualização em 06/12/2018)
[ Hits: 1.839 ]
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";
check_mem.pl - Plugin Nagios para checar consumo de RAM
Programa que separa os dígitos de um inteiro
Inserindo o nome de aluno e calculando média de suas notas
Cálculo de área de uma figura geométrica
Nenhum comentário foi encontrado.
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
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Criando um Pen Drive Bootável no Linux
Não existe o slackbuild do bash no repositório slackbuild? (4)
Dualboot Fedora 40 e LinuxMint 21 (2)
problemas com artefatos na instalação (27)
Problemas com o Lutris e o Wine no Slackware 15.0 [RESOLVIDO] (4)