validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Publicado por saymon castro de souza 24/10/2007
[ Hits: 19.991 ]
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.
Editor de texto em Pascal/Lazarus
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
Metodo de Ordenacion : Burbuja
Nenhum comentário foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Minecraft Launcher para Arch Linux
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como bloquear e desbloquear papel de parede no Ubuntu 24.04 (1)
Mouse bluetooth no Debian 12.10. (0)
tentando instalar em um notebook antigo o Linux LegacyOS_2023... (2)