Lista 02 - DCC/UFMG

13) Construa um algoritmo em PORTUGOL que dado quatro valores, A, B, C e D, o
algoritmo imprima o maior e o menor valor.
algoritmo L2P13;
var
inteiro: A, B, C, D;
início
leia(A,B,C,D);
se ( A > B ) e ( A > C ) e ( A > D ) então
imprima("Maior: ",A);
fim-se
se ( B > A ) e ( B > C ) e ( B > D ) então
imprima("Maior: ",B);
fim-se
se ( C > A ) e ( C > B ) e ( C > D ) então
imprima("Maior: ",C);
fim-se
se ( D > A ) e ( D > B ) e ( D > C ) então
imprima("Maior: ",D);
fim-se
se ( A < B ) e ( A < C ) e ( A < D ) então
imprima("Menor: ",A);
fim-se
se ( B < A ) e ( B < C ) e ( B < D ) então
imprima("Menor: ",B);
fim-se
se ( C < A ) e ( C < B ) e ( C < D ) então
imprima("Menor: ",C);
fim-se
se ( D < A ) e ( D < B ) e ( D < C ) então
imprima("Menor: ",D);
fim-se
fim
program l2p13;
var
A, B, C, D: integer;
begin
write('Entre com quatro valores: ');
readLn(A,B,C,D);
if ( A > B ) and ( A > C ) and ( A > D ) then
writeLn('Maior: ',A);
if ( B > A ) and ( B > C ) and ( B > D ) then
writeLn('Maior: ',B);
if ( C > A ) and ( C > B ) and ( C > D ) then
writeLn('Maior: ',C);
if ( D > A ) and ( D > B ) and ( D > C ) then
writeLn('Maior: ',D);
if ( A < B ) and ( A < C ) and ( A < D ) then
writeLn('Menor: ',A);
if ( B < A ) and ( B < C ) and ( B < D ) then
writeLn('Menor: ',B);
if ( C < A ) and ( C < B ) and ( C < D ) then
writeLn('Menor: ',C);
if ( D < A ) and ( D < B ) and ( D < C ) then
writeLn('Menor: ',D);
end.
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 13