Henry拣钱(money.pas/c/cpp)

最新推荐文章于 2025-02-06 22:29:08 发布

原创最新推荐文章于 2025-02-06 22:29:08 发布 · 847 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#游戏 #output #pascal #input #编程 #测试

NOIP2011黎明前夕的黑暗同时被 2 个专栏收录

223 篇文章

订阅专栏

动态规划

81 篇文章

订阅专栏

本文介绍了一个名为“Henry拣钱”的游戏算法，该游戏旨在帮助角色通过选择最优路径收集尽可能多的钱并避开炸弹。文章详细解释了游戏规则、输入输出样例及实现代码。

Henry拣钱(money.pas/c/cpp)

背景描述：

最近,Henry由于失恋(被某大牛甩掉！)心情很是郁闷.所以,他去了大牛家,寻求Michael大牛的帮助,让他尽快从失恋的痛苦中解脱出来.Michael大牛知道Henry是很爱钱的,所以他是费尽脑水,绞尽脑汁想出了一个有趣的游戏,帮助Henry.....

题目描述：

Michael感觉自己简直是个天才(我们从不这么认为),就把这个游戏取名为:Henry拣钱.为了帮助更多的人采用这种方法早日脱离失恋之苦,Michael特地选在这次DT比赛中把游戏介绍给大家...(大家鼓掌!!!)

其实,这个游戏相当垃圾,目的就是为了满足Henry这种具有强烈好钱的心理的人.游戏是这样的:Michael首先找到了一块方形的土地,面积为m*n(米^2).然后他将土地划分为一平方米大小的方形小格.Michael在每个格子下都埋有钱(用非负数s表示,表示人民币的价值为s)和炸弹(用负数s表示,表示Henry挖出该方格下的东西会花掉s的钱去看病，医炸弹炸伤的伤口)...游戏的要求就是让Henry从一侧的中间列出发,按照下图的5种方式前进（前进最大宽度为5）,不能越出方格.他每到一个格子,必定要取走其下相应的东西.直到到达土地的另一侧,游戏结束.不用说也知道,Henry肯定想得到最多的人民币.所以他偷窥了,Michael埋钱的全过程,绘成了一张距阵图.由于他自己手动找会很麻烦,于是他就找到了学习编程的你.请给帮他找出,最大人民币价值.

拣钱路线规则(只有5个方向，如下图)：

H为Henry的出发点，每组数据的出发点都是最后一行的中间位置！

(前方5个格子为当前可以到达的)

输入数据：

第一行为m n.(n为奇数)，入口点在最后一行的中间

接下来为m*n的数字距阵.

共有m行,每行n个数字.数字间用空格隔开.代表该格子下是钱或炸弹.

为了方便Henry清算,数字全是整数.

输出数据：

一个数,为你所找出的最大人民币价值.

输入样例：

6 7

16 4 3 12 6 0 3

4 -5 6 7 0 0 2

6 0 -1 -2 3 6 8

5 3 4 0 0 -2 7

-1 7 4 0 7 -5 6

0 -1 3 4 12 4 2

输出样例：

数据范围：

N and M<=200.

结果都在longint范围内

时间限制：

每测试点时间<=1S

==================================

=================

{
ID:jie19952
PROG:
LANG:PASCAL
}
var
  n,m:longint;
  map,f1:array[-1..202,-1..202]of longint;
  f:array[-1..202,-1..202]of boolean;
procedure init;
begin
  assign(input,'money.in');
  assign(output,'money.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;

function min(a,b:longint):longint;
begin
  if a<b then exit(a);
  exit(b);
end;

procedure main;
var
  i,j:longint;
  ans:longint;
begin
  readln(m,n);
  fillchar(f,sizeof(f),false);
  fillchar(map,sizeof(map),0);
  for i:=1 to m do
    for j:=1 to n do
      begin
        //f[i,j]:=true;
        f1[i,j]:=-maxlongint;
        read(map[i,j]);
      end;
  f[m,(1+n)shr 1]:=true;
  f[m,max((1+n)shr 1-1,1)]:=true;
  f[m,max((1+n)shr 1-2,1)]:=true;
  f[m,min((1+n)shr 1+1,n)]:=true;
  f[m,min((1+n)shr 1+2,n)]:=true;
  f1[m,(1+n)shr 1]:=map[m,(1+n)shr 1];
  f1[m,max((1+n)shr 1-1,1)]:=map[m,max((1+n)shr 1-1,1)];
  f1[m,max((1+n)shr 1-2,1)]:=map[m,max((1+n)shr 1-2,1)];
  f1[m,min((1+n)shr 1+1,n)]:=map[m,min((1+n)shr 1+1,n)];
  f1[m,min((1+n)shr 1+2,n)]:=map[m,min((1+n)shr 1+2,n)];
  for i:=m downto 2 do
    for j:=1 to n do
      if f[i,j] then
        begin
          f[i-1,j]:=true;
          f[i-1,j+1]:=true; f[i-1,j+2]:=true;
          f[i-1,j-1]:=true; f[i-1,j-2]:=true;
          f1[i-1,j]:=max(f1[i-1,j],f1[i,j]+map[i-1,j]);
          f1[i-1,j-1]:=max(f1[i-1,j-1],f1[i,j]+map[i-1,j-1]);
          f1[i-1,j-2]:=max(f1[i-1,j-2],f1[i,j]+map[i-1,j-2]);
          f1[i-1,j+1]:=max(f1[i-1,j+1],f1[i,j]+map[i-1,j+1]);
          f1[i-1,j+2]:=max(f1[i-1,j+2],f1[i,j]+map[i-1,j+2]);
        end;
  ans:=-maxlongint;
  for i:=1 to n do
    if f[1,i] and (ans<f1[1,i]) then
      ans:=f1[1,i];
  writeln(ans);
end;

begin
  init;
  main;
  terminate;
end.