快排

声明

 

　　排序模板，直接拿来用！！！(从小到大排序，双关键字之类的改改就行）

　　

procedure qsort(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 not(i>j) then
                begin
                        y:=a[i];
                        a[i]:=a[j];
                        a[j]:=y;
                        inc(i);
                        j:=j-1;
                end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);
end;