培训学案算法排序归并.pdfVIP

归并排序

某数列在对序列A[1]，A[2]，……，A[n]，现采用归并思想进行排序。

分析：

这里我们采用二分法。先将n个元素分成两个各含n/2或（n/2）个元素的子序列；



再用归并排序法对两个子序列递归的排序；最后合并两个已排序的子序列以得到排序结果。

在对子序列排序时，当其长度为1时递归结束。单个元素被视为是已经排好的序列。

下面我们来分析一下对两个已排好序的子序列A[P．．Q]和A[Q+1．．R]，将它们合并成

一个已排好的子序列[P．．R]。

引入一个辅助过程merge（A，P，Q，R）来完成这一合并工作，其中A是数组，P，Q，R

是下标。其方法是：每次选两个子序列中较小的一个元素加入到目标序列中，直到某一个子

序列为空，最后把另一子序列中剩下的元素加入到目标序列中。

procedureMerge(varA:ListType;P,Q,R:Integer);

{将A[P．．Q]和A[Q+1．．R]，合并到序列A[P．．R]}

var

I,{左子序列指针}

J,{右子序列指针}

T:Integer;{合并后的序列的指针}

Lt:ListType;{暂存合并的序列}

begin

T:=P;I:=P;J:=Q+1;

whileT=Rdobegin{合并未完成}

{若左序列剩有元素并且右序列元素全部合并或

左序列的首元素小于等于右序列的首元素，则左序列的首元素进入合并序列}

if(I=Q)and((JR)or(A[I]=A[J]))thenbegin

Lt[t]:=A[I];Inc(I);

end

elsebegin{否则右序列的首元素进入合并序列}

Lt[t]:=A[J];Inc(J);

end;

Inc(T);{合并后的序列的指针右移}

end;

A:=Lt;{合并后的序列赋给A}

end;

下面我们来看看分治过程。利用merge_sort（A，P，R）对数组A[P．．R]进行排序。若

P=R,则子序列只有一个元素，分解完毕。否则，计算出中间下标Q,将A[P．．R]分成A[P．．Q]

和A[Q+1．．R]。若数组A[P．．R]的元素个数K=R-P+1为偶数，则两个数组各含K/2个元素；

否则A[P．．Q]含k/2个元素，A[Q+1．．R]含k/2个元素。



procedureMerge_Sort(varA:ListType;P,R:Integer);

var

Q:Integer;

begin

ifPRthenbegin{若子序列A中不止一个元素}

Q:=(P+R-1)div2;{计算中间下标Q}

Merge_Sort(A,P,Q);{继续对左子序列A[P．．Q]递归排序}

Merge_Sort(A,Q+1,R);{继续对左子序列A[Q+1．．R]递归排序}

Merge(A,P,Q,R){对左子序列和右子序列归并排序}