triangulo
Publicado por marcio santos borges 08/12/2005
[ Hits: 5.381 ]
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"; }
Cadastro usando arquivos .txt para guardar dados
Programa que separa os dígitos de um inteiro
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (5)
E aí? O Warsaw já está funcionando no Debian 13? (2)
Dúvidas sobre a originalidade de conteúdos online (12)