Algoritmos y Programación en Pascal

318 Capítulo 15. Algoritmos de búsqueda y ordenación
w[k]:= vec[i];
i:= i + 1
end {Then}
else begin
w[k]:= vec[j];
j:= j + 1
end; {Else}
k:= k + 1;
end; {While}
for k:= j to de do
w[k]:= vec[k]
for k:= i to ce do
w[k+de-ce]:= vec[k]
end; {Merge}
begin {MergeSortDesdeHasta}
centro:= (izq + der) div 2;
if izq < centro then
MergeSortDesdeHasta(v, izq, centro);
if centro < der then
MergeSortDesdeHasta(v, centro+1, der);
Merge(v, izq, centro, der, v)
end; {MergeSortDesdeHasta}
begin {MergeSort}
MergeSortDesdeHasta(vector, 1, N)
end; {MergeSort}
Para facilitar la comprensión del método se ha realizado un ejemplo, provocando
algunas llamadas sobre el vector inicial v= [8, 5, 7, 3] y mostrando el
vector tras cada llamada:
v = [8, 5, 7, 3]
MergeSortDesdeHasta(v,1,2) v = [5, 8, 7, 3]
MergeSortDesdeHasta(v,3,4) v = [5, 8, 3, 7]
Merge(v,1,2,4,v) v = [3, 5, 7, 8]
15.2.6 Vectores paralelos
Supóngase que se desea ordenar un vector vectFich de la forma
array[1..N] of tFicha
siendo el tipo tFicha de un gran tamaño.