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

 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

输出样例：

51

数据范围：

  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.