Cálculo de área de uma figura geométrica
Publicado por Roddas Cabral (última atualização em 24/10/2017)
[ Hits: 1.543 ]
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"; }
Saiba quanto de energia seu PC gasta aproximadamente por mês
Usando comandos shell com Perl
Renomeando arquivos de forma padronizada
Calculando a média entre dois valores
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
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
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
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
Remoção de propaganda com o programa Comskip[AJUDA] (4)
Instalação do drive do adaptador wiffi (5)
Linux Lite Demorando Muito Para Ligar (1)