pascal 快排标程的祥解

原理：把数组分成两边，使左边的数总是小于右边的，再分别排序（好像是分治....）

procdure sort(l,r:longint);

var

i,j,x,y:longint;

begin

i:=l;j:=r;x:=a[(i+j) shr 1];

{shr 1就是 div 2,x似乎只是用来比较的}

repeat

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

{在左边找一个比x大的数}

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

{在右边找一个比x小的数}

if not(i>j) then begin

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

{把较小的数换到左边}

inc(i);dec(j);

end;

until i>j;

{repeat {循环后保证有a[i]左边的数都比右边的小}

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

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

{递归继续排}

end;

[这个程序是Pascal自带的，根据自己的理解写了几句说明。原来学快排的时候好像讲的不是这个程序，不过因为对这个太熟悉了就没记那个了....]