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

• Download 1.2.pl
• Enviar nova versão

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

Renomeando arquivos de forma padronizada

Inserindo o nome de aluno e calculando média de suas notas

Programa que separa os dígitos de um inteiro

Queimando CDs on-the-fly

"Codificação" de texto em Perl

Nenhum comentário foi encontrado.