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

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

[ Hits: 1.668 ]

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

Separa os dígitos de um número

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Escrevendo varias linhas em um arquivo qualquer

Potenciação

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros


  

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