hades 2008-08-20 01:20:00
点我顶贴
收藏
删除
program pp；
var
n,i,j,k:longint；
procedure pd(n,m:longint)；
var
i,j,k,s:longint；
a,b:array[0..100000] of longint；
begin
fillchar(a,sizeof(a),0)；
fillchar(b,sizeof(b),0)；
for i:=1 to m do
begin
a[i]:=i；
b[i]:=n-m+i；
end；
k:=m；
s:=0；
repeat
if k=m then
s:=s+1；
if a[k]<b[k] then begin
a[k]:=a[k]+1；
if k<m then for k:=k+1 to m do
a[k]:=a[k-1]+1；
end
else k:=k-1；
until k=0；
if s mod 2=0 then writeln(’0’) else writeln(’1’)；
end；
begin
readln(n)；
for i:=1 to n do
begin
readln(j,k)；
pd(j,k)；
end；
end.
为什么全部都是栈溢出？郁闷ING…………状态: Unaccepted
测评机： Xeost[5]
得分： 0分
提交日期： 2008-8-20 16:11:00
有效耗时： 该状态没有记录
测试结果1: 运行错误|栈溢出
测试结果2: 运行错误|栈溢出
测试结果3: 运行错误|栈溢出
测试结果4: 运行错误|栈溢出
测试结果5: 运行错误|栈溢出
测试结果6: 运行错误|栈溢出
测试结果7: 运行错误|栈溢出
测试结果8: 运行错误|栈溢出
测试结果9: 运行错误|栈溢出
测试结果10: 运行错误|栈溢出
谢谢了。。。