tyvj P1127 - 计算细胞数

P1127 - 计算细胞数

From 陈超锐    Normal (OI) 总时限：5s    内存限制：128MB

描述 Description

一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。 如:阵列 0234500067 1034560500 2045600671 0000000089 有４个细胞

输入格式 InputFormat

第一行　：两个数字M N （1<=Ｍ<=50 1<=N<80）表示该阵列有Ｍ行Ｎ列 从第２行到第Ｍ＋１行　每行有连续的Ｎ个字符

输出格式 OutputFormat

一行: 细胞个数

样例输入 SampleInput [复制数据]

4 10
0234500067
1034560500
2045600671
0000000089

样例输出 SampleOutput [复制数据]

4

来源 Source

(陈超锐提供)

Delphi语言: 高亮代码由发芽网提供

program tyvj1127;
var mark:array[0..51,0..81] of boolean;
   d:array[1..4] of integer=(1,-1,0,0);
   l:array[1..4] of integer=(0,0,-1,1);
   a:array[0..51,0..81] of integer;
   i,j,m,n,ans:integer;
   st:string;
procedure dfs(x,y:integer);
var i:integer;
begin
 mark[x,y]:=true;
 for i:=1 to 4 do
  if (a[x+d[i],y+l[i]]>0) and (not mark[x+d[i],y+l[i]]) then
   dfs(x+d[i],y+l[i]);
end;
begin
fillchar(a,sizeof(a),0);
fillchar(mark,sizeof(mark),true);
readln(m,n);
for i:=1 to m do  begin
 readln(st);
 for j:=1 to n do  begin
  mark[i,j]:=false;
  a[i,j]:=ord(st[j])-48;
  end;
end;
 ans:=0;
 for i:=1 to m do
  for j:=1 to n do
   if (not mark[i,j]) and(a[i,j]>0) then begin
    inc(ans);
    dfs(i,j);
   end;
writeln(ans);
end.