填涂颜色-洛谷 1162

题目描述

由数字0 组成的方阵中，有一任意形状闭合圈，闭合圈由数字1构成，围圈时只走上下左右4个方向。现要求把闭合圈内的所有空间都填写成2.例如：6X6的方阵（n=6），涂色前和涂色后的方阵如下：

0 0 0 0 0 0 0 0 0 0 0 0

0 0 1 1 1 1 0 0 1 1 1 1

0 1 1 0 0 1 0 1 1 2 2 1

1 1 0 0 0 1 1 1 2 2 2 1

1 0 0 0 0 1 1 2 2 2 2 1

1 1 1 1 1 1 1 1 1 1 1 1

输入输出格式

输入格式：
每组测试数据第一行一个整数：n。其中n(1<=n<=30)

接下来n行，由0和1组成的nXn的方阵。

方阵内只有一个闭合圈，圈内至少有一个0。

//感谢黄小U饮品指出本题数据和数据格式不一样. 已修改(输入格式)

输出格式：
已经填好数字2的完整方阵。

输入输出样例

输入样例#1：
6
0 0 0 0 0 0
0 0 1 1 1 1
0 1 1 0 0 1
1 1 0 0 0 1
1 0 0 0 0 1
1 1 1 1 1 1
输出样例#1：
0 0 0 0 0 0
0 0 1 1 1 1
0 1 1 2 2 1
1 1 2 2 2 1
1 2 2 2 2 1
1 1 1 1 1 1

题解：这道题用广搜，先是从四条边开始碰到0就向四个方向拓展，拓展到一个不为1的点就可以把这个点入队，然后输出处理一下就行了。

const
  maxn=30;
  dx:array[1..4] of longint=(-1,0,1,0);
  dy:array[1..4] of longint=(0,1,0,-1);
var
  a:array[0..maxn,0..maxn] of longint;
  b:array[0..10000,1..3] of longint;
  i,j,n:longint;

function check(x,y:longint):boolean;
begin
  check:=true;
  if (x<1) or (x>n) or (y<1) or (y>n) or (a[x,y]<>0) then exit(false);
end;

procedure dfs(qx,qy:longint);
var i,h,t,zx,zy:longint;
begin
  b[1,1]:=qx;b[1,2]:=qy;
  b[1,3]:=maxlongint;
  h:=0;t:=1;
  while h<t do
    begin
      inc(h);
      for i:=1 to 4 do
        begin
          zx:=b[h,1]+dx[i];
          zy:=b[h,2]+dy[i];
          if check(zx,zy) then
            begin
              inc(t);
              b[t,1]:=zx;
              b[t,2]:=zy;
              a[zx,zy]:=maxlongint;
            end;
        end;
    end;
end;

begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
     read(a[i,j]);
  for i:=1 to n do
    begin
      if a[1,i]=0 then dfs(1,i);
      if a[i,1]=0 then dfs(i,1);
      if a[n,i]=0 then dfs(n,i);
      if a[i,n]=0 then dfs(i,n);
    end;
  for i:=1 to n do
    begin
      for j:=1 to n do
        if a[i,j]=maxlongint
          then write(0,' ')
          else if a[i,j]=0 then write(2,' ') else write(a[i,j],' ');
      writeln;
    end;
end.