请问各位精通PASCAL语言的长兄们,运行错误202(栈溢出)一般采用什么东西...
发布网友
发布时间：2024-10-24 05:29
共2个回答
热心网友
时间：1天前
快排别写错，一般不会error202(堆栈溢出）。给你一个标准的。
procedure qs(l,r:longint);
var
i,j,x,t:longint;
begin
i:=l; j:=r;
x:=a[(i+j) div 2];
repeat
while (a[i]<x) do inc(i);
while (a[j]>x) do dec(j);
if i<=j then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
inc(i);
dec(j);
end;
until i>j;
if (i<r) then qs(i,r);
if (l<j) then qs(l,j);
end;
热心网友
时间：1天前
设置编译参数，分配更大的栈内存空间，在菜单“Option”、“Memory Size”里面设置，默认是16384，你适当加大。
