2017.07.16【NOIP提高组】模拟赛B组 卫星照片 题解

原题：

https://jzoj.net/senior/#contest/show/2062/0

题目描述：

农夫 John 正在研究他的农场的卫星照片.照片为一个R (1 <=R <= 75) 行 C (1 <= C <= 75) 列的字符矩阵表示.如下图:

..................
..#####.......##..
..#####......##...
..................
#.......###.....#.
#.....#####....... 

图上的一块相连通的 "#" 表示一群奶牛或一个房间, 两个子"#" 连通的意思是说左右或上下相连.而下面的两块则是分开的:

....
.#..
..#.
....

John现在根据卫星照片上的的这些"#"块的形状来判断哪些是牛群,哪些是房间.如果一个"#"块形状一个内部和边全部都是“#”的矩形,则是房间，如果一个连通块只有一个“#”,也是房间.其它的则认为都是牛群.在第一个图中,有三个房间 ( 2x1, 2x5, and 1x1)和2群牛.
请根据输入文件中的数据,统计出房间数和牛群数.数据中牛群不会包围另一个牛群或房间.

输入：

• 第一行,两个整数: R 和 C.
• 和 2..R+1行: 第 i+1 行表示照片的第 i 行情况,由 C 字符组成.

输出：

• 第一行: 房间数.
• 第二行: 牛群数.

样例输入：

5 8
#####..#
#####.##
......#.
.###...#
.###..##

样例输出；

2
2

分析：

爆搜，找到每一个‘#’块，判断它是不是矩阵即可

实现:

uses math;
const
        dx:array[1..4]of longint=(-1,0,1,0);
        dy:array[1..4]of longint=(0,1,0,-1);
var
        s:char;
        bz:array[0..79,0..79]of boolean;
        n,m,i,j,minx,maxx,miny,maxy,tot,r,c:longint;
        h:array[0..7001,0..2]of longint;
procedure bfs(p,q:longint);
var
        i,t,w,x,y:longint;
begin
        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);
                                inc(tot);
                                h[w,1]:=x;
                                h[w,2]:=y;
                                minx:=min(minx,x);
                                maxx:=max(maxx,x);
                                miny:=min(miny,y);
                                maxy:=max(maxy,y);
                                bz[x,y]:=false;
                        end;
                end;
                inc(t);
        until t>w;
end;
begin
        readln(m,n);
        for i:=1 to m do
        begin
                for j:=1 to n do
                begin
                        read(s);
                        if s='#' then bz[i,j]:=true;
                end;
                readln;
        end;
        for i:=1 to m do
                for j:=1 to n do
                        if bz[i,j] then
                        begin
                                tot:=1;
                                minx:=i;
                                maxx:=i;
                                miny:=j;
                                maxy:=j;
                                bfs(i,j);
                                if (maxx-minx+1)*(maxy-miny+1)=tot then inc(r)
                                else inc(c);
                        end;
        writeln(r);
        writeln(c);
end.