Lista 02 - DCC/UFMG

program l2p15;
var
A, B, C: real;
begin
write('Entre com tres valores: ');
readLn(A,B,C);
if ( A > B ) and ( A > C ) then begin
writeLn('1o. - ',A:5:2);
if ( B > C ) then begin
writeLn('2o. - ',B:5:2);
writeLn('3o. - ',C:5:2); end
else begin
writeLn('2o. - ',C:5:2);
writeLn('3o. - ',B:5:2); end
end;
if ( B > A ) and ( B > C ) then begin
writeLn('1o. - ',B:5:2);
if ( A > C ) then begin
writeLn('2o. - ',A:5:2);
writeLn('3o. - ',C:5:2); end
else begin
writeLn('2o. - ',C:5:2);
writeLn('3o. - ',A:5:2); end
end;
if ( C > A ) and ( C > B ) then begin
writeLn('1o. - ',C:5:2);
if ( A > B ) then begin
writeLn('2o. - ',A:5:2);
writeLn('3o. - ',B:5:2); end
else begin
writeLn('2o. - ',B:5:2);
writeLn('3o. - ',A:5:2); end
end;
end.
A = input('Entre um valor: ');
B = input('Entre um valor: ');
C = input('Entre um valor: ');
if ( A > B ) & ( A > C )
fprintf(1,'1o. - %f\n',A);
if ( B > C )
fprintf(1,'2o. - %f\n',B);
fprintf(1,'3o. - %f\n',C);
else
fprintf(1,'2o. - %f\n',C);
fprintf(1,'3o. - %f\n',B);
end
end
if ( B > A ) & ( B > C )
fprintf(1,'1o. - %f\n',B);
if ( A > C )
fprintf(1,'2o. - %f\n',A);
fprintf(1,'3o. - %f\n',C);
else
fprintf(1,'2o. - %f\n',C);
fprintf(1,'3o. - %f\n',A);
end
end
if ( C > A ) & ( C > B )
fprintf(1,'1o. - %f\n',C);
if ( A > B )
fprintf(1,'2o. - %f\n',A);
fprintf(1,'3o. - %f\n',B);
else
fprintf(1,'2o. - %f\n',B);
fprintf(1,'3o. - %f\n',A);
end
end
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 18