Cálculo de área de uma figura geométrica
Publicado por Roddas Cabral (última atualização em 24/10/2017)
[ Hits: 1.332 ]
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"; }
Assistente de instalação por apt!
Aprendendo a fazer equações em Perl
Nenhum comentário foi encontrado.
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
Instalação do Programa Imposto de Renda Pessoa Física 2023 [RESOLVIDO]... (6)
Instalando e compilando o GCC/G++ erro (4)
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter