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:jie19952PROG: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.