Algoritmos y Programación en Pascal

15.3. Algoritmos de búsqueda en archivos secuenciales 321
componentes del archivo. Por tanto, la estrategia de búsqueda será la misma
que se emplea en los algoritmos de búsqueda secuencial en arrays (véanse los
apartados 15.1.1 y 15.1.2).
En este breve apartado nos limitaremos a mostrar la adaptación directa de
estos algoritmos de búsqueda para archivos arbitrarios y para archivos ordenados.
15.3.1 Búsqueda en archivos arbitrarios
Supongamos que se dispone de un archivo definido de la siguiente forma:
type
tElem = record
clave: tClave;
resto de la información
end;
tArchivoElems = file of tElem;
Con esto, el procedimiento de búsqueda queda como sigue (por la simplicidad
de la implementación se han obviado los pasos previos de diseño y algunos
aspectos de la corrección):
procedure Buscar(var f: tArchivoElems; c: tClave; 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}
begin
encontrado:= False;
while not EoF(f) and not encontrado do begin
Read(f, elem);
if c = elem.clave then
encontrado:= True
end {while}
end; {Buscar}
15.3.2 Búsqueda en archivos ordenados
Al igual que ocurre con la búsqueda secuencial en arrays, el algoritmo puede
mejorarse si las componentes del archivo están ordenadas por sus claves. En
este caso, se puede evitar recorrer inútilmente la parte final del archivo si hemos
detectado una clave mayor que la buscada, ya que entonces tendremos la certeza
de que el elemento no está en el archivo. La modificación en el código es muy
sencilla, puesto que basta con variar la condición de salida del bucle while para
que contemple la ordenación del archivo. El nuevo procedimiento es el siguiente: