Cálculo de área de uma figura geométrica
Publicado por Roddas Cabral (última atualização em 24/10/2017)
[ Hits: 1.532 ]
Este simples programa faz o cálculo de área de uma figura geométrica solicitada pelo utilizador.
#!perl print "Seja benvindo ao cálculo de áreas\n Insira a área que deseja calcular segundo a lista: \n\n"; print"1-Retângulo\n2-Trapêzio\n3-Triângulo\n4-Circulo\n5-Paralelogramo\n"; chomp($resposta = <STDIN>); if($resposta == 1) { print"Selecionou [Retângulo]\n"; print"Insira o valor da Base: "; chomp($base = <STDIN>); print"Insira o valor da Altura: "; chomp($altura = <STDIN>); print"A área do Rectângulo é de " .$base*$altura; exit; } if($resposta == 2) { print"Selecionou [Trapêzio\n"; print"Insira o valor da Base superior: "; chomp(my $baseSuperior = <STDIN>); print"Insira o valor da Base inferior: "; chomp(my $baseInferior = <STDIN>); print"Insira o valor da Altura "; chomp(my $altura = <STDIN>); print "A altura do trapêzio é de ". int((($baseInferior+$baseSuperior)/2) * $altura); exit; } if($resposta == 3) { print"Selecionou [Triângulo]\n"; print"Insira o valor da Base: "; chomp(my $base = <STDIN>); print"Insira o valor da Altura: "; chomp(my $altura = <STDIN>); print"A área do Triângulo é de " .int(($base*$altura)/2); exit; } if($resposta == 4) { use constant PI => 3,14; print"Selecionou [Circulo]\n"; print"Insira o valor do Raio: "; chomp(my $raio = <STDIN>); print"O valor do Circulo é de : ". int(PI * $raio * $raio); exit; } if($resposta == 5) { print"Selecionou [Paralelogramo]\n"; print"Insira o valor da Base: "; chomp(my $base = <STDIN>); print"Insira o valor da Altura: "; chomp(my $altura = <STDIN>); print"A área do Paralelogramo é de " .int($base*$altura); exit; }else { print STDERR "Erro"; }
Usando comandos shell com Perl
Assistente de instalação por apt!
Soma varios valores e mostra sua media
Nenhum comentário foi encontrado.
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
O que você está ouvindo agora? [2] (169)
Alternar as janelas clicando na barra de tarefas (8)
Erro no Visual Studio Code impede que ele execute qualquer código em c... (0)