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