洛谷1162 填涂颜色

本题地址： http://www.luogu.org/problem/show?pid=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

说明

1<=n<=30

program p1162;
type
        LL=longint;
var
        i,j,n:LL;
        a:array[1..100,1..100]of LL;
      {  b:array[0..100,0..100]of boolean;}
procedure work(x,y:LL);
begin
        {b[x,y]:=false;}
        if (x>=1)and(x<=n)and(y>=1)and(y<=n)and(a[x,y]=2) then begin
                a[x,y]:=0;
                {if b[x-1,y] then} work(x-1,y);
               { if b[x,y-1] then }work(x,y-1);
               { if b[x+1,y] then }work(x+1,y);
               { if b[x,y+1] then }work(x,y+1);
                {if b[x-1,y-1] then} work(x-1,y-1);
                {if b[x+1,y-1] then} work(x+1,y-1);
              {  if b[x-1,y+1] then} work(x-1,y+1);
               { if b[x+1,y+1] then} work(x+1,y+1);
        end else exit;
end;
begin
        readln(n);
        fillchar(b,sizeof(b),true);
        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;
        for i:=1 to n do
        begin
                if a[1,i]=2 then work(1,i);
                if a[i,1]=2 then work(i,1);
                if a[n,i]=2 then work(n,i);
                if a[i,n]=2 then work(i,n);
        end;
        for i:=1 to n do begin
                for j:=1 to n do
                        write(a[i,j],' ');
                writeln;
        end;
end.

写完之后我发现我脑残了，用个b是什么意思

然后正解是去掉花括号里的东西（但是题目数据貌似有问题，只写了八十分）

花时间做水题竟然有成就感= =我堕落了