Lista 02 - DCC/UFMG

30) Dado três valores, A, B e C, construa um algoritmo em PORTUGOL para verificar se
estes valores podem ser valores dos lados de um triângulo, e se for, se é um triangulo
escaleno, um triangulo eqüilátero ou um triangulo isósceles.
algoritmo L2P30;
var
real: A, B, C;
início
leia(A,B,C);
se ( A < B+C ) e ( B < A+C ) e ( C < A+B ) então
se (A = B) e (A = C) então
imprima("Triangulo Eqüilátero");
senão
se (A = B) ou (A = C) ou (B = C) então
imprima("Triangulo Isósceloes");
senão
imprima("Triangulo Escaleno");
fim-se
fim-se
senão
imprima("Os valores digitados não podem ser lados de um triângulo!");
fim-se
fim
program l2p30;
var
A, B, C: real;
begin
write('Digite o valor do lado A: ');
readLn(A);
write('Digite o valor do lado B: ');
readLn(B);
write('Digite o valor do lado C: ');
readLn(C);
if ( A < B+C ) and ( B < A+C ) and ( C < A+B ) then
if ( A = B ) and ( A = C ) then
writeLn('Triangulo Equilatero')
else
if ( A = B ) or ( A = C ) or ( B = C ) then
writeLn('Triangulo Isosceloes')
else
writeLn('Triangulo Escaleno')
else
writeLn('Os valores digitados nao podem ser lados de um triangulo!');
end.
A = input('Digite o valor do lado A: ');
B = input('Digite o valor do lado B: ');
C = input('Digite o valor do lado C: ');
if ( A < B+C ) & ( B < A+C ) & ( C < A+B )
if (A == B) & (A == C)
disp('Triangulo Equilatero');
else
if (A == B) | (A == C) | (B == C)
disp('Triangulo Isosceloes');
else
disp('Triangulo Escaleno');
end
end
else
disp('Os valores digitados nao podem ser lados de um triangulo!');
end
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 38