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

Crivo de Eratóstenes Simples em Perl

Saiba quanto de energia seu PC gasta aproximadamente por mês

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

data do servidor em perl

Renomeando arquivos de forma padronizada

Nenhum coment�rio foi encontrado.