Question

pascal为什么？它总在a:array[1..max]of longint; 在]这里报错？ 如能回答 谢谢！

const n=10;
var a:array[1..max] of longint;
i:longint;
//////////////////////////
procedure qsort(l,r:longint);
var
i,j,m,te:longint;
begin
i:=l;
j:=r;
mid:=a[(l+r)div 2];
repeat
while a[i]<mid do i:=i+1;
while mid<a[j] do j:=j-1;
if i<=j then
begin
te:=a[i];
a[i]=a[j];
a[j]:=te;
i:=i+1;
j:=j-1;
end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
//////////////////////////
begin
randomize;
for i:=1 to n do a[i]:=random(30000);
writeln('before');
for i:=1 to n do writeln(a[i]:3);
writeln('sorting...');
qsort(1,max);
for i:=1 to n do writel(a[i]:3)
end.

Answer 1

LZ需要把max定义一个值才行、、、pascal中只有pi、maxlongint等可以直接表示常数

Answer 2

数组的上界max未赋值，自然会出错 ！
可以在const中给max赋常数值，如：
const max=10000;