Cálculo de área de uma figura geométrica
Publicado por Roddas Cabral (última atualização em 24/10/2017)
[ Hits: 1.352 ]
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"; }
Aprendendo a fazer equações em Perl
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
pacotes 32 bit no void 64 bit (1)
erro ao clonar repo github (7)
ASRock H310CM-HG4 vs Linux (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (26)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba