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

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

[ Hits: 1.327 ]

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

Programa que separa os dígitos de um inteiro

Assistente de instalação por apt!

Equação do 2°

Conversor de moedas

Data por extenso


  

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