triangulo
Publicado por marcio santos borges 08/12/2005
[ Hits: 5.095 ]
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"; }
Soma varios valores e mostra sua media
Lista de números aleatórios não-repetidos de um intervalo em Perl
Renomeando arquivos de forma padronizada
"Codificação" de texto em Perl
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Removi o pacote snap e deu ruim (2)
Criar um script para testar pen drive (4)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba