洛谷 1162——填涂颜色（广度优先搜索）-白红宇

洛谷 1162——填涂颜色（广度优先搜索）

阅读量：5286 次

发布时间：2019-06-14

本文共 1458 字，大约阅读时间需要 4 分钟。

题目描述

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

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

输入时，先将为0的都赋值为2

从四面向里面搜，搜到如果是2的话就，就将这个点变为0；如果是1或0的话，就直接退出循环。

代码如下：

var a:array[1..30,1..30]of 0..2;  n,i,j:longint;begin  readln(n);  for i:=1 to n do    for j:=1 to n do      begin        read(a[i,j]);        if a[i,j]=0 then a[i,j]:=2;      end;  readln;  for i:=1 to n do    begin      for j:=1 to n do if a[i,j]=1 then break                                   else a[i,j]:=0;      for j:=1 to n do if a[j,i]=1 then break                                   else a[j,i]:=0;      for j:=n downto 1 do if(a[i,j]=1)or(a[i,j]=0)then break                                                    else a[i,j]:=0;      for j:=n downto 1 do if(a[j,i]=1)or(a[j,i]=0)then break                                                    else a[j,i]:=0;    end;  for i:=1 to n do    begin      for j:=1 to n do write(a[i,j],' ');      writeln;    end;  readln;end.

转载于:https://www.cnblogs.com/Comfortable/p/8412412.html

你可能感兴趣的文章