【NOIP2014模拟9.7】我要的幸福 (Standard IO)

波波i

于 2017-01-13 21:40:37 发布

阅读量434

点赞数

CC 4.0 BY-SA版权

分类专栏：纪中成神之路动态规划

本文链接：https://blog.youkuaiyun.com/qq872425710/article/details/54412235

纪中成神之路同时被 2 个专栏收录

33 篇文章

订阅专栏

动态规划

12 篇文章

订阅专栏

本文介绍了一种寻找从起点到终点字典序最小路径的算法。该算法首先标记不可通行区域，然后通过比较相邻格子权值确定下一步方向，最终输出路径。适用于n*m矩阵环境，仅允许向下或向右移动。

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

题意：

给你个n*m的矩阵，他们有权值，0不能走，而且只能向下向右走。求出一条路径的字典序最小。走不到输出Oh,the life is too difficult!

思路：

先把所有的不可以走的路求出来，然后找他们可以走的路，全部入队，然后只保留最小的，如果有同个就全部保留，然后用这些数接着走，直到有n*m-1个队列就好了。

程序：

const
 maxn=1000;
var
 a,f:array [0..maxn+2,0..maxn+2] of longint;
 i,j,n,m,x,y:longint;
begin
 readln(n,m);
 fillchar(a,sizeof(a),$7f);
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   read(a[i,j]);
   if a[i,j]=0 then a[i,j]:=maxlongint;
  end;
  readln;
 end;

 for i:=n downto 1 do
  for j:=m downto 1 do
  begin
   if (i=n) and (j=m) then continue;
   if (a[i+1,j]>20000000) and (a[i,j+1]>20000000) then a[i,j]:=a[i+1,j];
   if a[i+1,j]<a[i,j+1] then  f[i,j]:=1
    else  if a[i+1,j]>a[i,j+1] then f[i,j]:=2
     else  if a[i+2,j]>a[i,j+2] then f[i,j]:=2
      else f[i,j]:=1;

  end;
 if a[1,1]>200000000 then
  begin
   writeln('Oh,the life is too difficult!');
   halt;
  end;
  x:=1; y:=1;
 while (x<>n) or (y<>m) do
 begin
  write(a[x,y],' ');
  if f[x,y]=1 then inc(x)
              else inc(y);
 end;
 writeln(a[n,m]);
end.