validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Publicado por saymon castro de souza 24/10/2007
[ Hits: 19.590 ]
Programa feito em pascal que resolve aquele exercício típico de disciplinas iniciais de programação: validar e classificar o triângulo (equilátero, escaleno e isóceles).
Program Triangulo; Uses Crt; Var L1, L2, L3 : Integer; Begin Writeln(´Digite o primeiro lado do triangulo: ´); Read(L1); Writeln(´Digite o segundo lado do triangulo: ´); Read(L2); Writeln(´Digite o terceiro lado do triangulo: ´); Read(L3); {a soma de dois lados de um triângulo não deve ser maior que o terceiro lado} if ((L1 < (L2+l3)) and (L2 < (L1+l3)) and (L3 < (L2+l3))) then {verificando se é um triangulo válido} Begin if ((L1 = L2) and (L2 = L3)) Then Writeln(´Triangulo equilatero.´) else if ((L1 <> L2) and (L2 <> L3) and (L1 <> L3)) Then Writeln(´Triangulo escaleno.´) else Writeln(´Triangulo isoceles.´); End Else Write(´Triangulo não válido!!´); End.
Números primos (usando arrays)
Script que verifica se um número é primo ou não
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
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
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
redirecionando saida de comando touch para o AWK[AJUDA] (11)
filtrar só as pastas onde tem arquivo (1)
Impressora Canon Ip 1800 (Drivers) 64 bit (9)