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

1898. 【2014.8.17NOIP普及组模拟】数池塘(lkcount.pas/c/cpp) 
(File IO): input:lkcount.in output:lkcount.out

时间限制:  1000 ms  空间限制:  128000 KB  具体限制  

Goto ProblemSet

题目描述

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

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

每次从没搜索过的点开始搜，把与之相邻的点标记，搜索的次数就是答案。

const
  maxn=102;
  dx:array[1..8] of longint=(-1,-1,0,1,1,1,0,-1);
  dy:array[1..8] of longint=(0,1,1,1,0,-1,-1,-1);
var
  a:array[0..maxn+1,0..maxn+1] of char;
  f:array[0..maxn+1,0..maxn+1] of longint;
  m,n,i,j,ans:longint;

procedure init;
var
  i,j:longint;
begin
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
       begin
        read(a[i,j]);
        if a[i,j]='W'
          then f[i,j]:=1;
       end;
      readln;
    end;
end;

function check(x,y:longint):boolean;
begin
  check:=true;
  if (x<1) or (y<1) or (x>100) or (y>100) or (a[x,y]='.') or (f[x,y]<>1)
     then exit(false);
end;

procedure dfs(x,y:longint);
var
  i:longint;
begin
  for i:=1 to 8 do
    if check(x+dx[i],y+dy[i]) then
      begin
        f[x+dx[i],y+dy[i]]:=2;
        dfs(x+dx[i],y+dy[i]);
      end;
end;

begin
  assign(input,'lkcount.in'); reset(input);
  assign(output,'lkcount.out');rewrite(output);
  init;
  for i:=1 to n do
    for j:=1 to m do
      if (a[i,j]='W') and (f[i,j]=1)
        then begin dfs(i,j); inc(ans); end;
  writeln(ans);
  close(input);close(output);
end.