Calculadora de IMC em Perl
Publicado por victor (última atualização em 06/12/2018)
[ Hits: 2.210 ]
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";
Calcula equação de segundo grau completa
Assistente de instalação por apt!
Crivo de Eratóstenes Simples em Perl
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
Monitoramento pfsense com zabbix (4)
Erro na inicialização do Debian como resolver (5)
Dúvidas sobre a originalidade de conteúdos online (11)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (4)