洛谷 P1162 填涂颜色

洛谷 P1162 填涂颜色

---

题目

题目描述

由数字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

说明

1<=n<=30

---

题解

BFS,将最外围的0点作为起点做BFS，将与外围0点在同一个联通块的点做上标记，最后将未做标记的0点填成2

---

代码（Pascal）

const flag:array[1..4,0..1]of longint=((0,1),(1,0),(0,-1),(-1,0));
var n,m,head,tail:longint;
    q:array[0..905]of record
                           x,y:longint;
                          end;
    vis:array[0..35,0..35]of boolean;
    map:array[0..35,0..35]of longint;
 procedure init;
  var i,j:longint;
   begin
      readln(n);head:=0;
      fillchar(vis,sizeof(vis),0);
      for i:=1 to n do
       begin
         for j:=1 to n do
          begin
            read(map[i,j]);
            if ((i=1)or(j=1)or(i=n)or(j=n))and(map[i,j]=0) then
             begin
               inc(head);
               q[head].x:=i;
               q[head].y:=j;
               vis[i,j]:=true;
              end;
           end;
         readln;
        end;
    end;
 function check(x,y:longint):boolean;
  begin
    if (x<1)or(y<1)or(x>n)or(y>n)or(map[x,y]=1)or(vis[x,y]=true) then exit(false);
    exit(true);
   end;
 procedure find(x,y:longint);
  begin
    inc(tail);vis[x,y]:=true;
    q[tail].x:=x;q[tail].y:=y;
   end;
 procedure main;
  var i,j,x,y,z,w:longint;
      s:char;
   begin
     tail:=head+1;head:=0;
     while head<tail do
      begin
        inc(head);
        x:=q[head].x;y:=q[head].y;
        for i:=1 to 4 do
         if check(x+flag[i,0],y+flag[i,1]) then find(x+flag[i,0],y+flag[i,1]);
       end;
      for i:=1 to n do
       begin
         for j:=1 to n do
          if vis[i,j]=true then write('0 ')
                           else if map[i,j]=1 then write('1 ')
                                              else write('2 ');
         writeln;
        end;
     end;
 begin
   init;
   main;
  end.