sábado, 19 de enero de 2008

Ordenar Tres Valores en lenguaje ADA

Implemente un procedimiento llamado Ordenar con tres parámetros de entrada/salida de tipo Integer. Este procedimiento deberá ordenar sus parámetros de forma que en el primero quede el valor menor, en el segundo el valor intermedio y en el tercero el valor mayor de los tres (puede haber valores repetidos).

procedure ordenar (A, B, C : in out Integer) is
-- declaramos una variable auxiliar para hacer el intercambio de variables
aux : Integer;
begin
-- si a > b, intercambiamos a con b
if A > B then
aux := A;
A := B;
B := aux;
end if;
-- si c < a, intercambiamos c con a
if C < A then
aux := C;
C := A;
A := aux;
end if;
-- si c < b, intercambiamos c con b
if C < B then
aux := C;
C := B;
B := aux;
end if;
-- fin procedimiento
end ordenar;

2 comentarios:

Anónimo dijo...

de donde sacas el Aux?

Serch dijo...

está declarado arriba ;)