題意：
description
一矩形陣列由數字0到9組成,數字1到9代表細胞,細胞的定義為沿細胞數字上下左右還是細胞數字則為同一細胞,求給定矩形陣列的細胞個數。如:陣列
0234500067
1034560500
2045600671
0000000089
有4個細胞。
input
輸入共m+1行第一行有兩個資料，分別表示總行數和總列數以下的m行，每行有n個0-9之間的數
output
細胞個數
sample input
40234500067
1034560500
2045600671
0000000089
sample output
4題解：
這題用廣搜，也可以用深搜。
const dx:array[1..4] of -1..1=(-1,0,1,0);
dy:array[1..4] of -1..1=(0,1,0,-1);
var int:text;
name,s:string;
pic:array[1..50,1..79] of byte;
bz:array[1..50,1..79] of boolean;
m,n,i,j,num:integer;
h:array[1..4000,1..2] of byte;
procedure doing(p,q:integer);
var i,t,w,x,y:integer;
begin
inc(num);bz[p,q]:=false;
t:=1;w:=1;h[1,1]:=p;h[1,2]:=q;
repeat
for i:=1 to 4 do
begin
x:=h[t,1]+dx[i];
y:=h[t,2]+dy[i];
if (x>0) and (x<=m) and (y>0) and (y<=n) and bz[x,y]
then begin
inc(w);h[w,1]:=x;
h[w,2]:=y;bz[x,y]:=false;end;
end;
inc(t);
until t>w;
end;
begin
fillchar(bz,sizeof(bz),true);num:=0;
readln(m,n);
for i:=1 to m do
begin
readln(s);
for j:=1 to n do
begin
pic[i,j]:=ord(s[j])-ord('0');
if pic[i,j]=0 then bz[i,j]:=false;
end;
end;
for i:=1 to m do
for j:=1 to n do if bz[i,j] then doing(i,j);
writeln(num);
readln;
end.
SSL2324 細胞問題
一矩形陣列由數字0到9組成,數字1到9代表細胞,細胞的定義為沿細胞數字上下左右還是細胞數字則為同一細胞,求給定矩形陣列的細胞個數。如 陣列 0234500067 1034560500 2045600671 0000000089 有4個細胞。輸入共m 1行第一行有兩個資料，分別表示總行數和總列數以下的...
SSL ZYC 2324 細胞問題
題目大意 一矩形陣列由數字0到9組成,數字1到9代表細胞,細胞的定義為沿細胞數字上下左右還是細胞數字則為同一細胞,求給定矩形陣列的細胞個數。比如 一共有4個細胞。思路 這是一道bfs的題目，從a 1 1 搜到a n m 找到乙個細胞就把這個細胞和緊挨著的細胞清零，並計數。也就是說，每找到乙個細胞就進...
SSLOJ2324 細胞問題 P1451
一矩形陣列由數字0到9組成,數字1到9代表細胞,細胞的定義為沿細胞數字上下左右還是細胞數字則為同一細胞,求給定矩形陣列的細胞個數。如 陣列 有4個細胞。輸入共m 1行第一行有兩個資料，分別表示總行數和總列數以下的m行，每行有n個0 9之間的數 細胞個數 40234500067 1034560500 ...