pascal-排序.docVIP

排序 一、排序的概念 将一组无序的数据元素（或记录）序列，按关键字递减（或递增）的顺序重新排列成一个有序序列的过程称排序。 设有N个记录的序列｛R1，R1，…，RN｝，其相应的关键字为｛K1，K2，…，KN｝ 确定一种排列p1,p2,…,pn，使其相应的关键字满足如下的递减（或递增）关系： 　　Kp1≤Kp2≤…≤Kpn 一般排序都是基于数组存储的方式。 排序过程中，若只使用计算机的内存存放待排序的记录，称内部排序。若数据量很大，在排序过程中，记录要在内、外存储器之间移动，称外部排序。 二、插入排序 1、直接插入排序(Insertion Sort) 开始时，认为序列中第一个元素已排好序，将第二个元素与第一个元素进行比较，若顺序不对，则交换这两个元素的位置（否则不交换），这样第二个元素就插入到已排序序列中。依次类推，对第I个元素排序时，其前面的I－1个元素已排成有序序列，将第I个元素依次与前面的I－1个元素逐一比较，找出一个合适的位置J（1≤J≤I－1），并将第J到第I－1的元素都后移一个位置，将第I个元素放到第J个位置上。依次直到N个元素完成。 例、用直接插入法对下列数据排序：7，5，4，9，1，6，3，2 排序过程如下： 　初始序列　　　[7]　5　　4　　9　　1　　6　　3　　2 　第一次排序　　[5　 7]　 4　　9　　1　　6　　3　　2 　第二次排序　　[4　　5　 7]　 9　　1　　6　　3　　2 　第三次排序　　[4　　5　 7　　9] 　1　　6　　3　　2 　第四次排序　　[1　 4　 5　　7　　9] 　6　　3　　2 　第五次排序　　[1　　4　 5　　6　　7　　9] 　3　　2 　第六次排序　　[1　　3　 4　　5　　6　　7　　9] 　2 　第七次排序　　[1　　2　 3　　4　　5　　6　　7　　9] 算法如下： VOID－InsertSort begin 　For I:=1 to n do Begin S:=x[I+1]; j:=i; while (j=0) and (sx[j]) do｛从第I个位置向前查找S的位置｝ begin ;x[j+1]:=x[j]; j:=j-1; end x[j+1]:=s; end; end. 直接插入排序算法简洁，易理解，容易实现。当序列中的记录“基本有序”或n值较小时，它是最佳的排序方法。但是，通常待排记录的数量n很大，此时直接插入排序就不适用了。…放在同一组中，X2、X5、X8，…放在另一组中，依次类推。对各组进行一次排序。改变增量D2，使D2＜D1，用同样的方法进行排序，…,直至增量D＝1时。 增量的取法：最后一次必须是1，一般取法是D[I+1]=d[I]/2,第一个为元素个数的1/2 例：希尔排序法对下列数据排序：61，32，28，90，11，40，55，47，18，87 （1）取增量D＝5，则所有元素分成5组：（X1，X6）、（X2，X7）、…,进行组内排序 （2）取增量D＝2，将第一次排序后得到的元素分成2组（X1，X3，X5，X7，X9）和（X2，X4，X6，X8，X10），进行组内排序。 （3）取增量D＝1，再进行排序 算法如下： founction ShellSort; {x数组为元素序列，D数组为增量数组，N为增量个数} begin for m:=0 to n do begin span:=d[m] for k:=0 to span do begin i:=k; repeat s:=x[i+span]; j:=i; while (j=0) and (sx[j]) do begin x[j+span]:=x[j]; j:=j-span; end; x[j+span]:=s; i:=i+span; until i=n; end; end; end. 三、交换排序 1、冒泡排序（Bubble Sort）…） procedure Bubble_Sort(var L:List); var i,j:position; begin 1 for i:=First(L) to Last(L)-1 do 2 for j:=First(L) to Last(L)-i do 3 if L[j]L[j+1] then 4 swap(L[j],L[j+1]); //交换L[j]和L[j+1] end; 2、快速排序（Quick Sort） 基本思想：在当前R[1..H]中任取一个数据元素作为比较的基准(不妨记为X)，用此基准将