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

Calculadora

check_mem.pl - Plugin Nagios para checar consumo de RAM

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

Cadastro usando arquivos .txt para guardar dados

Escrevendo varias linhas em um arquivo qualquer

Nenhum comentário foi encontrado.