Algoritmos y Programación en Pascal

310 Capítulo 15. Algoritmos de búsqueda y ordenación
4 2 3 9 5 8
2 4 3 9 5 8
2 3 4 9 5 8
2 3 4 9 5 8
2 3 4 5 9 8
2 3 4 5 8 9
1 2 3 4 5 8
Figura 15.1.
procedure InsercionDirecta(var v: tVector);
{Efecto: se ordena v ascendentemente}
var
i, j: tIntervalo;
aux: tElem;
begin
for i:= 2 to N do begin
{Inv.: ∀ j, 1 ≤ j < i, ⇒ v[j] ≤ v[j+1]}
aux:= v[i];
{se dan los valores iniciales}
j:= i - 1;
while (j >= 1) and (v[j] > aux) do begin
v[j+1]:= v[j];
{Desplazamiento de los valores mayores que v[i]}
j:= j-1
end; {while}
v[j+1]:= aux
end {for}
end; {InsercionDirecta}
15.2.3 Intercambio directo
El algoritmo por intercambio directo recorre el vector buscando el menor
elemento desde la última posición hasta la actual y lo sitúa en dicha posición.
Para ello, se intercambian valores vecinos siempre que estén en orden decreciente.
Así se baja, mediante sucesivos intercambios, el valor menor hasta la posición
deseada. Más concretamente, el algoritmo consiste en:
1. Situar el elemento menor en la primera posición. Para ello se compara
el último elemento con el penúltimo, intercambiando sus valores si están
1
1
1
1
1
1
9