triangulo

Publicado por marcio santos borges 08/12/2005

[ Hits: 5.422 ]

Download triangulo.pl




este programa e simples ele pede 3 valores de um triangulo  e te informa se e equilatero isosceles ou escaleno ou se os valores nao forma um triangulo

  



Esconder código-fonte

#!/usr/bin/perl
# autor : m4rc1054nt05
# data : 08-12-2005
# programa do triangulo

print "            programa que do triangulo\n\n";

print "Digite o primeiro valor:\n";
$v1 = <STDIN>;
chomp ($v1);

print "Digite o segundo valor:\n";
$v2 = <STDIN>;
chomp ($v2);

print "Digite o terceiro valor:\n";
$v3 = <STDIN>;
chomp ($v3);


if ( $v1 < $v2+$v3 && $v2 < $v1+$v3 && $v3 < $v1+$v2){

     if ( $v1==$v2 && $v2==$v3 ){
         print "o triangulo e equilatero\n";
      }

     else {
       
         if ( $v1==$v2 || $v1==$v3 || $v2==$v3 ){
              print "o triangulo e isosceles\n";
         }

         else {
            print "o triangulo e escaleno\n";
         }
}
}

else {
    print "os numeros nao formam um triangulo\n";
}

Scripts recomendados

Calculadora de IMC em Perl

Soma varios valores e mostra sua media

Separa os dígitos de um número

Gerando senhas aleatórias

Simples Contador


  

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