Lista 02 - DCC/UFMG

program l2p14;
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 16