Cálculo de área de uma figura geométrica

Publicado por Roddas Cabral (última atualização em 24/10/2017)

[ Hits: 1.332 ]

Download 1.2.pl




Este simples programa faz o cálculo de área de uma figura geométrica solicitada pelo utilizador.

  



Esconder código-fonte

#!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";
      }
   

Scripts recomendados

Fatorial

Verificar se usuário é root

Assistente de instalação por apt!

Aprendendo a fazer equações em Perl

Calculadora


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts