在复习快排的时候突然发现了这个问题，以前从没有出现过的。 好奇怪的样子。以下为主程序。
********************************************
program quicksort ;
var
q,r,i,j,x:longint ;
a:array [1..10000]of longint;
procedure exchange(c,d:integer); // 交换过程
var
k:integer;
begin
k:=c;
c:=d;
d:=k;
end;
function partition(a:array of longint;q,r:longint):longint; //求快排的分隔下标
begin
x:=a [r];
i:=q-1;
for j:=q to r-1 do
if a[j]<=x then
begin
i:=i+1;
exchange(a[j],a[b]);
end;
exchange(a[i+1],a[r]);
partition:=i+1;
end;
procedure qsort(a:array of longint ;q,r:longint); //简单的递归
var
p:longint;
begin
if q<r then
p:=partition(a,q,r);
qsort(a,q,p-1);
qsort(a,p+1,r);
end;
begin //主程序
for i:=1 to 3 do
read(a[i]);
qsort(a[i],1,3);
for i:=1 to 10 do
write(a[i],' ');
end.
*****************************************
用f7找错误的时候提示在这一句
这些错误的原因我都从来没有遇到过啊，这要怎么改啊，改了快1个多小时了。还完全不知道该怎么办。希望大神们教一下啊

我学的是取中间的数然后把这排数字分两块 定义指针i，j 如果a[i]<基准数就不断的inc（i）【while】a[j]>基准数就不断的dec（j）
until i>j
然后递归

估计是子程序参数表不能有数组？

看了楼上顺口问句，
lz
的数组在哪里定义的？var还是type？

1、procedure exchange(c,d:integer); // 交换过程
var
k:integer;
begin
k:=c;
c:=d;
d:=k;
end;
==========================================
你这个只是在过程中交换，过程结束后，原变量还是原来的值
你可以用一个新程序单独试试
2、QSORT的参数你定义的是数组，引用的时候你却用数组元素
，前后不一致

我只想知道楼主的快排为啥这么长 我们的才30 40行左右