Algoritmos y Programación en Pascal

15.4. Mezcla y ordenación de archivos secuenciales 327
aux1
arch
7 8 9 4 5
2 3 1 1
7 8 9 2 3 . . . aux2 4 5 1 1 . . .
Figura 15.10.
Dados los valores de arch, un ejemplo de división sería la que aparece en la
figura 15.10.
Este método de división hace que los archivos tengan el mismo número de
tramos o a lo sumo que difieran en uno, por lo que su mezcla se denomina mezcla
equilibrada. Además, se detecta inmediatamente si arch está ordenado, ya que
existirá un único tramo que se escribirá en aux1, quedando aux2 vacío.
Para saber cuándo cambiar de archivo auxiliar hay que comprobar si el
valorAnterior leído es mayor que el valorActual, lo que obliga a realizar una
lectura inicial, sin comparar, para tener un valor asignado a valorAnterior, y
a almacenar en una variable booleana cambio el destino actual. Al escribir al
menos una componente en aux2, éste ya no está vacío, lo que señalizaremos con
una variable booleana esVacio2.
Veamos cómo podría ser un primer esbozo de Division:
si no se ha acabado arch entonces
Leer valorActual de arch
Escribir valorActual en aux1
valorAnterior:= valorActual
fin {si}
mientras no se acabe arch hacer
Leer valorActual de arch
si valorAnterior > valorActual entonces
Cambiar cambio
si cambio entonces
Escribir valorActual en aux1
si no
Escribir valorActual en aux2
esVacio2:= False
fin {si no}
valorAnterior:= valorActual
fin {mientras}
. . .