Pascal算法中基本排序算法演示

1、初态：46 82 40 52 67 31 21 73i=1： 46 40 52 67 31 21 73 82i=2： 40 46 52 31 21 67 73 82i=3： 40 46 31 21 52 67 73 82i=4： 40 31 21 46 52 67 73 82i=5： 31 21 40 46 52 67 73 82i=6： 21 31 40 46 52 67 73 82i=7： 21 31 40 46 52 67 73 82 插入排序:插入排序的基本思想是:设有N个数据已按照要求排列好,存放在数组之中.将一个待排序的数据元素,插入到前面已经排好序的数列中的适当位置,使数列依然有

2、序;直到待排序数据元素全部插入完为止. 示例:设N=7,有下列7个数,要求从小到大的顺序排列,演示过程如下:0 1 2 3 4 5 6 77768688455436877686776868776888477845584776855438477685543 快速排序:快速排序时在冒泡排序基础上的优先排序法,几乎时目前所有排序法中速度最快的方法.在快速排序中,数据比较时从两端向中间进行,一次同时从两个子序列中进行比较定位,从而减少了比较次数和交换次数.快速排序的基本思想时:先从数据序列中选一个元素作为基准,并将序列中所有比该元素小的元素放到它的左边,所有比该元素大的元素都放到它的右边,再对左右两边

3、分别用同样的方法处理知道每一个待处理的序列的长度为1,处理结束.0 1 2 3 4 5 6 7 8 9276382621260164927JI16IJI38J12II2III16 合并排序:两个或两个以上的有序表组合成一个新的有序表的方法叫归并.有如下两组数列: 60,98,55,94,93,16,86,74,60,24,58,93 22,99,73,49,73,15,43,16现要你将它们合并为一个从小到大的有序数列.思想:先将两组数列排好序,然后按如下过程合并到一个新数组:AB16 2455 586060 7486 9393 949815 1622 434973 7399CProgram

4、ex7_12;Type ad=array1.20 of integer;Const a0:array1.12 of integer=(60,98,55,94,93,16,86,74,60,24,58,93); b0:array1.8 of integer=(22,99,73,49,73,15,43,16);Var a1,b1,n,m,i,j,k:integer; a,b,c:ab;Procedure paixu(var e:ab;n:integer); var p,s:integer; begin for i:=1 to n-1 do begin p:=I; for j:=i+1 to n do if ejep then p:=j; if pI then begin s:=ep; ep:=ei; ei:=s; end; end; end;Procedure guibing; begin i:=1;j:=1;k:=0; a1:=ai;b1:=bj; repeat k:=k+1; if in then begin _; j:=j+1; b1:=bj; e