Algoritmos y Programación en Pascal

322 Capítulo 15. Algoritmos de búsqueda y ordenación
procedure BuscarOrd(var f: tArchivoElems; c: clave;
var elem: tElem; var encontrado: boolean);
{PostC.: si c está en f entonces encontrado = True y elem es
el elemento buscado; en otro caso encontrado = False}
var
ultimaClave: clave;
begin
encontrado:= False;
ultimaClave:= cota superior de las claves;
while not EoF(f) and ultimaClave > c do begin
Read(f, elem);
if c = elem.clave then
encontrado:= True;
ultimaClave:= elem.clave
end {while}
end; {BuscarOrd}
15.4 Mezcla y ordenación de archivos secuenciales
Una de las operaciones fundamentales en el proceso de archivos es el de su
ordenación, de forma que las componentes contiguas cumplan una cierta relación
de orden.
Cuando los archivos tengan un tamaño pequeño pueden leerse y almacenarse
en un array, pudiéndose aplicar las técnicas de ordenación estudiadas para
arrays. Estas técnicas son también aplicables a archivos de acceso directo (véase
el apartado B.9).
Por último, cuando el único acceso permitido a los archivos es el secuencial,
como en los archivos de Pascal, es necesario recurrir a algoritmos específicos para
dicha ordenación.
El método más frecuente de ordenación de archivos secuenciales es en realidad
una variante no recursiva del algoritmo Merge Sort estudiado para arrays en el
apartado anterior. Consiste en dividir el archivo origen en dos archivos auxiliares
y después mezclarlos ordenadamente sobre el propio archivo origen, obteniendo
de esta forma, al menos, pares de valores ordenados. Si ahora se vuelve a dividir
el archivo origen y se mezclan otra vez, se obtienen, al menos, cuádruplas de
valores ordenados, y así sucesivamente hasta que todo el archivo esté ordenado.
A este proceso que usa dos archivos auxiliares se le denomina de mezcla
simple. Si se usan más archivos auxiliares, se llama de mezcla múltiple, con el
que se puede mejorar el tiempo de ejecución.