triangulo
Publicado por marcio santos borges 08/12/2005
[ Hits: 5.426 ]
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
#!/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
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Problemas com Driver NVIDIA (5)
Warcraft II Remastered no Linux? (8)
Instalação dualboot Windows 11 e Debian 13 (7)









