回帖：错的很严重
一般书上都有标程的
我把我的程序给你吧
program quick;
var n,i:longint;
a:array[1..100000] of longint;
procedure swap(var x,y:longint);
var t:longint;
begin
t:=x;x:=y;y:=t;
end;
procedure qs(l,r:longint);
var i,j,x:longint;
begin
x:=a;i:=l;j:=r;
repeat
while(ia) do dec(j);
if(i