validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
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).
Descrição
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.