【2014.8.17NOIP普及组模拟】数池塘

题目描述

      农夫约翰的农场可以表示成N*M（1<=N<=100,1<=M<=100）个方格组成的矩形。由于近日的降雨，在约翰农场上的不同地方形成了池塘。每一个方格或者有积水（'W'）或者没有积水（'.'）。农夫约翰打算数出他的农场上共形成了多少池塘。一个池塘是一系列相连的有积水的方格，每一个方格周围的八个方格都被认为是与这个方格相连的。

      现给出约翰农场的图样，要求输出农场上的池塘数。

题解

  把走过的标记和没水的一样，向八个方向找。

代码：

var
  a:array[0..120,0..120] of boolean;
  b:array[1..8,1..2] of longint=((0,1),(0,-1),(1,0),(-1,0),(1,1),(1,-1),(-1,1),(-1,-1));
  n,m,ans:longint;
  s:string;
procedure seach(x,y:longint);
var
  i:longint;
begin
  if (x<1)or(y<1)or(x>n)or(y>m) then exit;
  a[x,y]:=false;
  for i:=1 to 8 do
    if a[x+b[i,1],y+b[i,2]] then seach(x+b[i,1],y+b[i,2]);
end;
var
  i,j:longint;
begin
  assign(input,'lkcount.in');reset(input);
  assign(output,'lkcount.out');rewrite(output);
  fillchar(a,sizeof(a),false);
  readln(n,m);
  for i:=1 to n do
    begin
      readln(s);
      for j:=1 to m do
        if s[j]='W' then a[i,j]:=true
      else a[i,j]:=false;
    end;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j] then begin seach(i,j);inc(ans);end;
  writeln(ans);
  close(input);close(output);
end.