Pascal中的快速排序源代码

　　procedure sort(l,r: longint);

　　var i,j,x,y: longint;

　　begin

　　i:=l; j:=r; x:=a[(l+r) div 2];

　　repeat

　　while a[i]<x do inc(i);

　　while x<a[j] do dec(j);

　　if i<=j then

　　begin

　　y:=a[i]; a[i]:=a[j]; a[j]:=y;

　　inc(i); dec(j);

　　end;

　　until i>j;

　　if l<j then sort(l,j);

　　if i<r then sort(i,r);

　　end;

　　begin

　　sort(1,max);

　　end;

 

　　设要排序的数组是A[0]……A[N-1]，首先任意选取一个数据（通常选用第一个数据）作为关键数据，然后将所有比它小的数都放到它前面，所有比它大的数都放到它后面，这个过程称为一趟快速排序。一趟快速排序的算法是： 　　

1）设置两个变量I、J，排序开始的时候：I=0，J=N-1； 　　

2）以第一个数组元素作为关键数据，赋值给X，即 X=A[0]； 　　

3）从J开始向前搜索，即由后开始向前搜索（J=J-1），找到第一个小于X的值，让该值与X交换（找到就行.找到后i大小不变）； 　　

4）从I开始向后搜索，即由前开始向后搜索（I=I+1），找到第一个大于X的值，让该值与X交换（找到就行.找到后j大小不变）； 　　

5）重复第3、4步，直到 I=J； (3,4步是在程序中没找到时候j=j-1，i=i+1。找到并交换的时候i， j指针位置不变。另外当i=j这过程一定正好是i+或j+完成的最后另循环结束)