讨论 / 受不了啦 求错误
wjltz 2011-05-06 19:40:00
点我顶贴 收藏 删除
531794 分子团 wjltz WA:80 FP 2011-5-7 10:33:00 查看

531793 分子团 wjltz WA:80 FP 2011-5-7 10:31:00 查看

531791 分子团 wjltz WA:60 FP 2011-5-7 10:14:00 查看

531790 分子团 wjltz WA:80 FP 2011-5-7 10:11:00 查看

531788 分子团 wjltz WA:80 FP 2011-5-7 10:07:00 查看

531787 分子团 wjltz WA:80 FP 2011-5-7 10:03:00 查看

531786 分子团 wjltz WA:80 FP 2011-5-7 9:58:00 查看

531775 分子团 wjltz WA:40 FP 2011-5-7 9:09:00 查看

531772 分子团 wjltz WA:40 FP 2011-5-7 8:58:00 查看

531770 分子团 wjltz WA:40 FP 2011-5-7 8:48:00 查看

531765 分子团 wjltz WA:40 FP 2011-5-7 8:34:00 查看

program lt1;

const dx:array[1..4] of longint=(0,1,0,-1);

dy:array[1..4] of longint=(1,0,-1,0);

var i,n,m,j,ans,l,r,k:longint;

a:array[0..101,0..101] of longint;

b,c:array[1..100000] of longint;

s:string;

begin

ans:=0;

read(n,m);

readln;

for i:=1 to n do

begin

readln(s);

for j:=1 to m do

if s[j]='0' then a[i,j]:=0

else a[i,j]:=1;

end;

for i:=1 to n do

for j:=1 to m do

if a[i,j]=1 then begin

inc(ans);

fillchar(b,sizeof(b),0);

fillchar(c,sizeof(c),0);

l:=1;

r:=1;

b[1]:=i;

c[1]:=j;

while l<=r do

begin

a[b[l],c[l]]:=0;

for k:=1 to 4 do

if a[b[l]+dx[k],c[l]+dy[k]]<>0 then begin

inc(r);

b[r]:=b[l]+dx[k];

c[r]:=c[l]+dy[k];

end;

inc(l);

end;

end;

writeln(ans);

end.

状态: Unaccepted

测评机: Xeost[5]

得分: 80分

提交日期: 2011-5-7 10:33:00

有效耗时: 313毫秒

测试结果1: 通过本测试点|有效耗时172ms

测试结果2: 通过本测试点|有效耗时47ms

测试结果3: 通过本测试点|有效耗时47ms

测试结果4:

测试结果5: 通过本测试点|有效耗时47ms

#1 wjltz@2011-05-06 19:40:00
回复 删除
测试结果4 正确为10 错误为2
查看更多回复
提交回复