2018.01.26【NOIP普及组】模拟赛D组——家族(family.pas/cpp)

题目描述

在一个与世隔绝的岛屿上，有一个有趣的现象：同一个家族的人家总是相邻的（这里的相邻是指东南西北四个方向），不同的家族之间总会有河流或是山丘隔绝，但同一个家族的人不一定有相同姓氏。现在给你岛上的地图，求出岛上有多少个不同的家族。岛上的地图有n 行，每行有若干列，每个格子中要么是’空格表示大海，要么是‘ *’，表示河流或山丘，要么是小写字母，表示一户人家的姓氏。

输入

第一行是个数字 N，表示下面信息的行数，接下来是 N 行字符，每行由小写字母和*号组成，有些行的最前面也可能包含若干连续的空格，表示这些区域是大海，每一行最多不超过 200 个字符。

输出

一个数字，表示家族数。

样例输入

4
*zlw**pxh
l*zlwk*hx*
w*tyy**yyy
zzl

样例输出

3

数据范围限制

10%的数据， n<=1

30%的数据， n<=10

100% 的数据， n<=100 每一行最多不超过 200 个字符

思路

输入

开一个boolean数组，先把有人的，也就是字母的设为true，然后就没了

过程

直接便利一遍：看这个是否为true，如果是那么直接改为false，然后看一下它的东南西北有没有，有的会也是这么做。。。

程序

var
i,j,k,n:longint;
b:array[0..101,0..201]of boolean;
procedure init;
var
s:string;
i,j,l:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(s);
l:=length(s);
for j:=1 to l do
if (s[j]=' ')or(s[j]='*') then b[i,j]:=false
else b[i,j]:=true;
end;
end;
procedure ss(x,y:longint);
begin
b[x,y]:=false;
if b[x+1,y] then ss(x+1,y);
if b[x,y+1] then ss(x,y+1);
if b[x-1,y] then ss(x-1,y);
if b[x,y-1] then ss(x,y-1);
end;
begin
assign(input,'family.in');
assign(output,'family.out');
reset(input);
rewrite(output);
init;
k:=0;
for i:=1 to n do
for j:=1 to 200 do
if b[i,j] then
begin
inc(k);
ss(i,j);
end;
writeln(k);
close(input);
close(output);
end.