原题：
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.
