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

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

[ Hits: 1.508 ]

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

Soma varios valores e mostra sua media

Calculadora de IMC em Perl

Calculadora

imprime numeros de forma crescente e decrescente [FOR]

Saiba quanto de energia seu PC gasta aproximadamente por mês


  

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