Algoritmos y Programación en Pascal

324 Capítulo 15. Algoritmos de búsqueda y ordenación
aux1
1 1 3 5 . . . aux2 2 2 4 6 . . .
arch
1 1 2 2 3 4 5 6
Figura 15.9.
Veamos el diseño descendente de Mezcla:
mientras no se acabe aux1 y no se acabe aux2 hacer
si aux1^ < aux2^ entonces
arch^:= aux1^
Avanzar aux1
Poner en arch
fin {si}
si aux2^ < aux1^ entonces
arch^:= aux2^
Avanzar aux2
Poner en arch
fin {si}
fin {mientras}
mientras no se acabe aux1 hacer
arch^:= aux1^
Avanzar aux1
Poner en arch
fin {mientras}
mientras no se acabe aux2 hacer
arch^:= aux2^
Avanzar aux2
Poner en arch
fin {mientras}
A continuación se ha escrito el procedimiento Mezcla en Pascal:
procedure Mezcla(var aux1, aux2, arch: archivo);
{Efecto: arch := mezcla ordenada de aux1 y aux2}
begin
Reset(aux1);
Reset(aux2);
ReWrite(arch);
. . .