快排

最新推荐文章于 2024-02-28 16:20:09 发布

weixin_30809173

最新推荐文章于 2024-02-28 16:20:09 发布

阅读量63

点赞数

原文链接：http://www.cnblogs.com/t-s-y/p/10316863.html

版权

声明

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

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;