【备战NOIP2012图论专项模拟试题】位图

Description

给出一个大小为n行*m列的矩形位图。该位图的每一个象素点不是白色就是黑色，但是至少有一个象素点是白色。在i行j列的象素点我们称为点（i，j）。两个象素点p1=(i1,j1)和p2=(i2,j2)之间的距离定义如下：

d(p1,p2)=|i1-i2|+|j1-j2|

现在的任务是：对于每一个象素点，计算它到最近的白色点的距离。如果它本身是白色点，距离为0。

Input

【输入格式】

第1行：2个整数n，m（1<=n <=182,1<=m<=182）

接下来n行，每一行有一个长度为m的0/1字符串，描述一行象素点。如果点（i，j）为白色，则值为1，否则值为0。

Output

【输出格式】

共n行，每行有m个整数，数之间用1个空格分开，分别表示对应的象素点距离白色点的距离。

Sample Input

3 4

0001

0011

0110

Sample Output

3 2 1 0

2 1 0 0

1 0 0 1

Data Constraint

Hint

【备战NOIP2012图论专项模拟试题】

分析：可以用广搜。我用了DP，但是要转移n+m次。

代码：

var
 f:Array [0..183,0..183] of longint;
 n,i,j,m,l:longint;
 ch:char;
function min(a,b,c,d,e:longint):longint;
 begin
  if a<b then min:=a
         else min:=b;
  if c<min then min:=c;
  if d<min then min:=d;
  if e<min then min:=e;
  exit(min);
 end;

begin
 readln(n,m);
 for i:=0 to 183 do
  for j:=0 to 183 do
   f[i,j]:=maxlongint div 2;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     read(ch);
     if ch='1' then f[i,j]:=0;
    end;
   readln;
  end;
 for l:=1 to n+m do
  for i:=1 to n do
   for j:=1 to m do
    f[i,j]:=min(f[i,j],f[i-1,j]+1,f[i,j-1]+1,f[i+1,j]+1,f[i,j+1]+1);
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(f[i,j],' ');
  writeln;
 end;
end.