Lista 02 - DCC/UFMG

31) Dados 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, classificá-los
(imprimi-los) segundo os ângulos. (Triângulo Retângulo = 90º, Triângulo Obtusângulo
> 90º , Triângulo Acutângulo < 90º)
algoritmo L2P31;
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
imprima("É um triangulo");
se ( A**2 = B**2 + C**2 ) ou
( B**2 = A**2 + C**2 ) ou
( C**2 = A**2 + B**2 ) então
imprima("Triangulo Retângulo");
senão
se ( A**2 > B**2 + C**2 ) ou
( B**2 > A**2 + C**2 ) ou
( C**2 > A**2 + B**2 ) então
imprima("Triangulo Obtusângulo");
senão
se ( A**2 < B**2 + C**2 ) e
( B**2 < A**2 + C**2 ) e
( C**2 < A**2 + B**2 ) então
imprima("Triangulo Acutângulo");
fim-se
fim-se
fim-se
senão
imprima("Os valores digitados não podem ser lados de um triângulo!");
fim-se
fim
program l2p31;
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 begin
write('eh um triangulo');
if ( A*A = B*B + C*C ) or
( B*B = A*A + C*C ) or
( C*C = A*A + B*B ) then
write('Triangulo Retângulo')
else
if ( A*A > B*B + C*C ) or
( B*B > A*A + C*C ) or
( C*C > A*A + B*B ) then
writeLn('Triangulo Obtusângulo')
else
if ( A*A < B*B + C*C ) and
( B*B < A*A + C*C ) and
( C*C < A*A + B*B ) then
writeLn('Triangulo Acutângulo');
end
else
writeLn('Os valores digitados não podem ser lados de um triângulo!');
end.
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 39