为什么会堆栈溢出错(202)

Program p1298;

Var

a,b,c,d:array[0..1001]of Longint;

e:array[1..4]of Longint;

i,j,k,l,m,n,f,x,y,z:Longint;

Function min(a,b:Longint):Longint;

Begin

If a>b then min:=b else min:=a;

End;{min}

Procedure quicksort1(t,s:Longint);

Var

i,j,p,mid:Longint;

Begin

i:=t;j:=s;mid:=c[(i+j)shr 1];

Repeat

While c[i]mid do dec(j);

If ij;

If t

0 条评论

目前还没有评论...

信息

ID
1498
难度
5
分类
贪心 点击显示
标签
递交数
4060
已通过
1532
通过率
38%
被复制
13
上传者