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

• Download triangulo.pl
• Enviar nova versão

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

Obtendo horas do sistema

Cálculo do MDC em Perl

Anagrama usando Perl

Verificar se usuário é root

"Codificação" de texto em Perl

Nenhum coment�rio foi encontrado.