Algoritmos y Programación en Pascal

308 Capítulo 15. Algoritmos de búsqueda y ordenación
La situación final en el ejemplo es representada en la siguiente figura:
1 2 4 5 7 8 9
_ _
El primer nivel de diseño del algoritmo es:
para cada i entre 1 y n - 1 hacer
Colocar en vi el menor entre vi, . . . ,vn;
Devolver v, ya ordenado
donde Colocar en vi el menor entre vi, . . . ,vn es:
valMenor:= v[i];
posMenor:= i;
para cada j entre i + 1 y n hacer
si v[j] < valMenor entonces
valMenor:= v[j];
posMenor:= j
fin {si}
fin {para}
Intercambiar v[i] con v[PosMenor];
Por lo tanto, una posible implementación de ordenación de un vector, siguiendo
el algoritmo de selección directa, podría ser la siguiente:
procedure SeleccionDirecta(var v: tVector);
{Efecto: se ordena v ascendentemente}
var
i, j, posMenor: tIntervalo;
valMenor, aux: integer;
begin
for i:= 1 to N-1 do begin
{Inv.: ∀ j, 1 ≤ j ≤ i −1, ⇒ v[j] ≤ v[j+1]
y además todos los v[i]...v[N] son mayores que v[i-1]}
valMenor:= v[i];
{se dan valores iniciales}
posMenor:= i;
for j:= i + 1 to n do
if v[j] < valMenor then begin
{se actualiza el nuevo valor menor y la
posición donde se encuentra}
valMenor:= v[j];
posMenor:= j
end {if}