BFS（广搜） 细胞问题

SSL 2324
洛谷 P1451 求细胞数量
题目描述
一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。如:阵列
0234500067
1034560500
2045600671
0000000089
有4个细胞。
P.S. 有人看不懂，其实就是并在一起的方阵算一个细胞。

题目分析
和找石油差不多的题目，不过用的是广搜。
首先，读入时可以将非零数标记为True。
然后用两重循环，每次找到为True的就进入BFS并增加细胞数量。
BFS在这里的作用，将整个细胞标记为False，然后在接下来的循环中就不会再找这个细胞了。

const  dx:array[1..4]of longint=(1,-1,0,0);  dy:array[1..4]of longint=(0,0,1,-1);var  n,m,x,y:longint;  a:array[1..100,1..100]of boolean;  f:array[1..10000]of longint;  s:array[1..10000,1..2]of longint;procedure init;var  i,j:longint;  c:char;begin  readln(m,n);  for i:=1 to m do   begin     for j:=1 to n do      begin        read(c);        if c<>'0' then a[i,j]:=true         else a[i,j]:=false;      end;     readln;   end;end;function ping(x,y:longint):boolean;begin  if (not (x in[1..m]))or(not(y in[1..n])) then exit(false);  if not a[x,y] then exit(false);  exit(true);end;procedure bfs;var  h,t,i:longint;begin  h:=0;t:=1;  s[1,1]:=x;s[1,2]:=y;  repeat   inc(h);   for i:=1 to 4 do    if ping(s[h,1]+dx[i],s[h,2]+dy[i]) then     begin       inc(t);       f[t]:=h;       s[t,1]:=s[h,1]+dx[i];       s[t,2]:=s[h,2]+dy[i];       a[s[t,1],s[t,2]]:=false;     end;  until h=t;end;procedure main;var  s:longint;begin  s:=0;  for x:=1 to m do   for y:=1 to n do    if a[x,y] then begin inc(s);bfs; end;  writeln(s);end;begin  init;  main;end.