3385: [Usaco2004 Nov]Lake Counting 数池塘

3385: [Usaco2004 Nov]Lake Counting 数池塘

Time Limit: 1 Sec  Memory Limit: 128 MB
Submit: 22  Solved: 21
[Submit][Status][Discuss]

Description

    农夫约翰的农场可以表示成N×M(1≤N，M≤100)个方格组成的矩形．由于近日的降雨，

在约翰农场上的不同地方形成了池塘．每一个方格或者有积水(’W’)或者没有积水(’．’)．农夫约翰打算数出他的农场上共形成了多少池塘．一个池塘是一系列相连的有积水的方格，每一个方格周围的八个方格都被认为是与这个方格相连的．

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

Input

    第1行：由空格隔开的两个整数N和M．

    第2到N+1行：每行M个字符代表约翰农场的一排方格的状态．每个字符或者是’W’或者

是’．’，字符之间没有空格．

Output

    约翰农场上的池塘数．

 

Sample Input

10 12
W ........ WW.
. WWW ..... WWW
.... WW ... WW.
......... WW.
......... W..
..W ...... W..
.W.W ..... WW.
W.W.W ..... W.
.W.W ...... W.
..W ....... W.

Sample Output

3

HINT

 

    共有3个池塘：一个在左上角，一个在左下角，还有一个沿着右边界

 

Source

Gold

 

题解：一开始居然WA了一下，结果发现子程序里面忘申请局部变量i了TT

别的实在没了，直接灌水秒之，不明白这个为啥也能成为金组。。。不过貌似NOV2004只有金组的= =

/**************************************************************
    Problem: 3385
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:8 ms
    Memory:344 kb
****************************************************************/
 
const dir:array[1..8,1..2] of longint=((0,1),(0,-1),(1,0),(-1,0),(1,-1),(-1,1),(1,1),(-1,-1));
var
   i,j,k,l,m,n,ans:longint;
   ch:char;
   a:array[0..101,0..101] of longint;
procedure floodfill(x,y:longint);
          var i:longint;
          begin
               if a[x,y]=0 then exit;
               a[x,y]:=0;
               for i:=1 to 8 do
                   if a[x+dir[i,1],y+dir[i,2]]=1 then floodfill(x+dir[i,1],y+dir[i,2]);
          end;
begin
     readln(n,m);
     fillchar(a,sizeof(a),0);
     for i:=1 to n do
         for j:=1 to m do
             begin
                  read(ch);
                  if upcase(ch)='W' then a[i,j]:=1;
                  if j=m then readln;
             end;
     ans:=0;
     for i:=1 to n do
         for j:=1 to m do
             if a[i,j]=1 then
                begin
                     inc(ans);
                     floodfill(i,j);
                end;
     writeln(ans);
     readln;
end.