Algoritmos y Programación en Pascal

306 Capítulo 15. Algoritmos de búsqueda y ordenación
begin
extInf:= 1;
extSup:= N;
encontrado:= False;
while (not encontrado) and (extSup >= extInf) do begin
{Inv.: si elem está en v, ⇒ v[extInf] ≤ elem ≤ v[extSup]}
posMed:= (extSup + extInf) div 2;
if elem = v[posMed] then
encontrado:= True
else if elem > v[posMed] then
{se actualizan los extremos del intervalo}
extInf:= posMed + 1
else
extSup:= posMed - 1
end; {while}
if encontrado then
BusquedaBinaria:= palMed
else
BusquedaBinaria:= 0
end; {BusquedaBinaria}
La necesidad de acceder de forma directa a las componentes intermedias no
permite la aplicación de este tipo de soluciones a archivos secuenciales.
15.2 Ordenación de arrays
En muchas situaciones se necesita tener ordenados, según algún criterio, los
datos con los que se trabaja para facilitar su tratamiento. Así, por ejemplo, en
un vector donde se tengan almacenados los alumnos de cierta asignatura junto
con la calificación obtenida, sería interesante ordenar los alumnos por orden
alfabético, o bien, ordenar el vector según la calificación obtenida para poder
sacar una lista de “Aprobados” y “Suspensos”.
En este apartado se presentan los algoritmos de ordenación más usuales, de
los muchos existentes. Su objetivo común es resolver el problema de ordenación
que se enuncia a continuación:
Sea v un vector con n componentes de un mismo tipo, tElem. Definimos la
función ordenación como:
ordenación : Vn(tElem) −→ Vn(tElem)
de tal forma que ordenación(v) = v’ donde v’=(v’1,..., v’n) es una permutación
de v=(v1,..., vn) tal que v’1 ≤ v’2 ≤ . . . ≤ v’n donde ≤ es la
relación de orden elegida para clasificar los elementos de v.