Algoritmos y Programación en Pascal

15.2. Ordenación de arrays 309
if posMenor i then begin
{Si el menor no es v[i], se intercambian los valores}
aux:= v[i];
v[i]:= v[posMenor];
v[posMenor]:= aux
end {if}
end; {for i}
end; {SeleccionDirecta}
15.2.2 Inserción directa
Este algoritmo recorre el vector v insertando el elemento vi en su lugar correcto
entre los ya ordenados v1, . . . ,vi−1. El esquema general de este algoritmo
es:
1. Se considera v1 como primer elemento.
2. Se inserta v2 en su posición correspondiente en relación a v1 y v2.
3. Se inserta v3 en su posición correspondiente en relación a v1, . . . ,v3.
. . .
. . .
i. Se inserta vi en su posición correspondiente en relación a v1, . . . ,vi.
n. Se inserta vn en su posición correspondiente en relación a v1, . . . ,vn.
En el diagrama de la figura 15.1 se muestra un ejemplo de aplicación de este
algoritmo.
Atendiendo a esta descripción, el diseño descendente de este algoritmo tiene
como primer nivel el siguiente:
para cada i entre 2 y N hacer
Situar v[i] en su posición ordenada respecto a v[1],. . . , v[i-1]
Donde Situar v[i] en su posición ordenada respecto a v[1],. . . , v[i-1]
puede refinarse de la siguiente forma:
Localizar la posición j entre 1 e i-1 correspondiente a v[i];
Desplazar una posición las componentes v[j+1],. . . , v[i-1];
v[j]:= v[i]
Por lo tanto, una implementación de este algoritmo será: