【经典代码】快速排序核心代码

procedure ok(l,r:longint);
var i,j,k,t:longint;
begin
    i:=l;
    j:=r;
    k:=a[(i+j) div 2];
    while i<=j do begin
        while a[i]k do dec(j);
        if i<=j then begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
            inc(i);
            dec(j);
        end;
    end;
    if il then ok(l,j);
end;

供复制粘贴~~~~