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

最新推荐文章于 2020-07-12 14:20:42 发布

原创最新推荐文章于 2020-07-12 14:20:42 发布 · 514 阅读

0 ·

CC 4.0 BY-SA版权

jzoj 专栏收录该内容

94 篇文章

订阅专栏

这篇博客探讨了一道编程竞赛题，题目涉及一个岛屿上家族分布的模拟问题。岛上家族成员相邻，不同家族间由河流或山丘隔开。题目要求根据输入的地图确定岛屿上的家族数量。解决方案包括读取输入数据，使用布尔数组标记已遍历的家庭，通过检查每个家庭的相邻格子来更新家族计数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述

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

输入

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

输出

一个数字，表示家族数。

样例输入

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

样例输出

数据范围限制

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.