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

Separa os dígitos de um número

localtime.pl

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Crivo de Eratóstenes Simples em Perl

Cadastro usando arquivos .txt para guardar dados

Nenhum coment�rio foi encontrado.