全国青少年信息学奥林匹克联赛
排序算法
一、插入排序(Insertion Sort)
1.基本思想：
每次将一个待排序的数据元素，插入到前面已经排好序的数列中的适当位置，使数列依然有序；直到待排序数据元素全部插入完为止。2.排序过程： 【示例】：
[初始关键字] [49] 38 65 97 76 13 27 49 J=2(38) [38 49] 65 97 76 13 27 49 J=3(65) [38 49 65] 97 76 13 27 49 J=4(97) [38 49 65 97] 76 13 27 49 J=5(76) [38 49 65 76 97] 13 27 49 J=6(13) [13 38 49 65 76 97] 27 49 J=7(27) [13 27 38 49 65 76 97] 49 J=8(49) [13 27 38 49 49 65 76 97] Procedure InsertSort(Var R : FileType); //对R[1..N]按递增序进行插入排序, R[0]是监视哨// Begin for I := 2 To N Do //依次插入R[2],...,R[n]// begin R[0] := R[I]; J := I1 end R[J + 1] := R[0] ; //插入R[I] // end End; //InsertSort //
二、选择排序 1.基本思想：
每一趟从待排序的数据元素中选出最小（或最大）的一个元素，顺序放在已排好序的数列的最后，直到全部待排序的数据元素排完。 2.排序过程： 【示例】：
初始关键字 [49 38 65 97 76 13 27 49] 第一趟排序后 13 ［38 65 97 76 49 27 49] 第二趟排序后 13 27 ［65 97 76 49 38 49] 第三趟排序后 13 27 38 [97 76 49 65 49] 第四趟排序后 13 27 38 49 [49 97 65 76] 第五趟排序后 13 27 38 49 49 [97 97 76] 第六趟排序后 13 27 38 49 49 76 [76 97] 第七趟排序后 13 27 38 49 49 76 76 [ 97] 最后排序结果 13 27 38 49 49 76 76 97 Procedure SelectSort(Var R : FileType); //对R[1..N]进行直接选择排序 // Begin for I := 1 To N1趟选择排序// begin K := I; For J := I + 1 To N Do //在当前无序区R[I..N]中选最小的元素R[K]// begin If R[J] I Then //交换R[I]和R[K] // begin Temp := R[I]; R[I] := R[K]; R[K] := Temp; end; end End. //SelectSort //
三、冒泡排序(BubbleSort) 1.基本思想：
两两比较待排序数据元素的大小，发现两个数据元素的次序相反时即进行交换，直到没有反序的数据元素为止。 2.排序过程：
设想被排序的数组R［1..N］垂直竖立，将每个数据元素看作有重量的气泡，根据轻气泡不能在重气泡之下的原则，从下往上扫描数组R，凡扫描到违反本原则的轻气泡，就使其向上\"漂浮\"，如此反复进行，直至最后任何两个气泡都是轻者在上，重者在下为止。 【示例】：
49 13 13 13 13 13 13 13 38 49 27 27 27 27 27 27 65 38 49 38 38 38 38 38 97 65 38 49 49 49 49 49 76 97 65 49 49 49 49 49 13 76 97 65 65 65 65 65 27 27 76 97 76 76 76 76 49 49 49 76 97 97 97 97 Procedure BubbleSort(Var R : FileType) //从下往上扫描的起泡排序// Begin For I := 1 To N-1 Do //做N-1趟排序// begin NoSwap := True; //置未排序的标志// For J := N1 //从右向左扫描，查找第1个小于 X的元素// If I X // begin R[J] := R[I]; //相当于交换R[I]和R[J]// J := J - 1 end Until I = J; R[I] := X //基准X已被最终定位// End; //Parttion // Procedure QuickSort(Var R :FileType; S,T: Integer); //对R[S..T]快速排序// Begin If S
五、堆排序(Heap Sort) 1.基本思想：
堆排序是一树形选择排序，在排序过程中，将R[1..N]看成是一颗完全二叉树的顺序存储结构，利用完全二叉树中双亲结点和孩子结点之间的内在关系来选择最小的元素。
2.堆的定义: N个元素的序列K1,K2,K3,...,Kn.称为堆，当且仅当该序列满足特性：
Ki≤K2i Ki ≤K2i+1(1≤ I≤ [N/2])
堆实质上是满足如下性质的完全二叉树：树中任一非叶子结点的关键字均大于等于其孩子结点的关键字。例如序列10,15,56,25,30,70就是一个堆，它对应的完全二叉树如上图所示。这种堆中根结点（称为堆顶）的关键字最小，我们把它称为小根堆。反之，若完全二叉树中任一非叶子结点的关键字均大于等于其孩子的关键字，则称之为大根堆。 3.排序过程：
堆排序正是利用小根堆（或大根堆）来选取当前无序区中关键字小（或最大）的记录实现排序的。我们不妨利用大根堆来排序。每一趟排序的基本操作是：将当前无序区调整为一个大根堆，选取关键字最大的堆顶记录，将它和无序区中的最后一个记录交换。这样，正好和直接选择排序相反，有序区是在原记录区的尾部形成并逐步向前扩大到整个记录区。
【示例】：对关键字序列42，13，91，23，24，16，05，88建堆 Procedure Sift(Var R :FileType; I, M : Integer); //在数组R[I..M]中调用R[I]，使得以它为完全二叉树构成堆。事先已知其左、右子树(2I+1
Else Exit //调整完毕，退出循环// end R[I] := X; //将最初被调整的结点放入正确位置// End;//Sift// Procedure HeapSort(Var R : FileType); //对R[1..N]进行堆排序// Begin
For I := N Div Downto 1 Do //建立初始堆//
Sift(R, I , N)
For I := N Downto 2 do //进行N-1趟排序//
begin
T := R[1]; R[1] := R[I]; R[I] := T; //将当前堆顶记录和堆中最后一个记录交换//
Sift(R, 1, I-1) //将R[1..I-1]重成堆//
end End; //HeapSort//
六、几种排序算法的比较和选择
1.选取排序方法需要考虑的因素： (1) 待排序的元素数目n； (2) 元素本身信息量的大小； (3) 关键字的结构及其分布情况； (4) 语言工具的条件，辅助空间的大小等。 2.小结：
(1) 若n较小(n
(2) 若文件的初始状态已按关键字基本有序，则选用直接插入或冒泡排序为宜。 (3) 若n较大，则应采用时间复杂度为O(nlog2n)的排序方法：快速排序、堆排序或归并排序。 快速排序是目前基于比较的内部排序法中被认为是最好的方法。 (4) 在基于比较排序方法中，每次比较两个关键字的大小之后，仅仅出现两种可能的转移，因此可以用一棵二叉树来描述比较判定过程，由此可以证明：当文件的n 7
个关键字随机分布时，任何借助于\"比较\"的排序算法，至少需要O(nlog2n)的时间。 (5) 当记录本身信息量较大时，为避免耗费大量时间移动记录，可以用链表作为存储结构。
