/ Vijos / 讨论 / FBI树 /

高手帮忙看下,哪里出错?

程序如下:

var s:ansistring;

n:integer;

c:longint;

procedure fen(l,r:longint);

var i:longint;

begin

i:=(l+r) div 2;

if i1 then

begin

fen(l,i);

fen(i+1,r);

end;

if pos('0',copy(s,l,r-l+1))=0 then write('I')

else if pos('1',copy(s,l,r-l+1))=0 then write('B')

else write('F');

end;

begin

readln(n);

readln(s);

c:=length(s);

if n=0 then

case s[1] of

'0':write('B');

'1':write('I');

end;

fen(1,c);

end.

---|---|---|---|---|---|---|---|---|---|

每次运行就非法操作,FPC退出,

麻烦帮忙看下哪里有问题.

谢...

0 条评论

目前还没有评论...

信息

ID
1114
难度
3
分类
数据结构 | 点击显示
标签
递交数
4150
已通过
2215
通过率
53%
被复制
25
上传者