Cálculo de área de uma figura geométrica
Publicado por Roddas Cabral (última atualização em 24/10/2017)
[ Hits: 1.766 ]
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"; }
check_mem.pl - Plugin Nagios para checar consumo de RAM
Calcula equação de segundo grau completa
Crivo de Eratóstenes Simples em Perl
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)
Instalação não está resolvendo as dependencias (2)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)
Alternativas ao Multilogin para gerenciamento de múltiplas contas/prof... (0)