ALGORITMOS DE BÚSQUEDA Y ORDENACIÓN

BÚSQUEDA EN ARCHIVOS
SECUENCIALES ORDENADOS
El algoritmo, en este caso puede ser mejorado:
PROCEDURE buscarord(var f:tarchivoelem;c:tclave;var
elem:tElem; var encontrado:boolean);
{Efecto. 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}