ALGORITMOS DE BÚSQUEDA Y ORDENACIÓN

ALGORITMOS DE BÚSQUEDA
EN ARCHIVOS SECUENCIALES
TYPE
tElem=record
clave: tclave;
resto de la información
end;
tarchivoelem=file of tElem.
PROCEDURE buscar(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}
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}