位图 (Standard IO)

最新推荐文章于 2022-12-07 17:25:31 发布

原创最新推荐文章于 2022-12-07 17:25:31 发布 · 629 阅读

0 ·

CC 4.0 BY-SA版权

PASCAL 同时被 3 个专栏收录

190 篇文章

订阅专栏

中山纪念中学的那几天

86 篇文章

订阅专栏

21 篇文章

订阅专栏

本文介绍了一种计算二维位图中每个像素到最近白色点距离的算法。采用动态规划方法，通过多次迭代更新所有像素点到白色像素点的最短距离，适用于182x182大小的位图。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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个空格分开，分别表示对应的象素点距离白色点的距离。

题解
DP啊，看代码吧

代码

var
  f:array[0..200,0..200]of longint;
  n,m:longint;
function min(o,p:longint):longint;
begin
  if o<p then exit(o);
  exit(p);
end;

procedure init;
var
  i,j:longint;
  ss:string;
begin
  readln(n,m);
  fillchar(f,sizeof(f),$7f);
  for i:=1 to n do
    begin
      readln(ss);
      for j:=1 to m do
        if ss[j]='1' then f[i,j]:=0;
    end;
end;

procedure main;
var
  x,y,i,j,k:longint;
begin
  for k:=1 to m+n do
    for i:=1 to n do
      for j:=1 to m do
        begin
          y:=min(f[i+1,j]+1,f[i-1,j]+1);
          x:=min(f[i,j+1]+1,f[i,j-1]+1);
          f[i,j]:=min(f[i,j],min(x,y));
        end;
end;

procedure print;
var
  i,j:longint;
begin
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f[i,j],' ');
      writeln;
    end;
end;

begin
  init;
  main;
  print;
end.