钓鱼 洛谷p1717

题目描述

话说发源于小朋友精心设计的游戏被电脑组的童鞋们藐杀之后非常不爽，为了表示安慰和鼓励，VIP999决定请他吃一次“年年大丰收”，为了表示诚意，他还决定亲自去钓鱼，但是，因为还要准备2013NOIP,z老师只给了他H（1<=H<=16）个小时的空余时间，假设有N（2<=n<=25）个鱼塘都在一条水平路边，从左边到右编号为1、2、3、。。。、n）。VIP是个很讲究效率的孩子，他希望用这些时间钓到尽量多的鱼。他从湖1出发，向右走，有选择的在一些湖边停留一定的时间钓鱼，最后在某一个湖边结束钓鱼。他测出从第I个湖到I+1个湖需要走5*ti分钟的路，还测出在第I个湖边停留，第一个5分钟可以钓到鱼fi，以后再每钓5分钟鱼，鱼量减少di。为了简化问题，他假定没有其他人钓鱼，也不会有其他因素影响他钓到期望数量的鱼。请编程求出能钓最多鱼的数量。

输入输出格式

输入格式：

第一行：湖的数量n。

第二行：时间h（小时）。

第三行：n个数，f1，f2，…fn。

第四行：n个数，d1，d2，….dn。

第五行：n-1个数，t1，t2，….tn-1

输出格式：

一个数，所能钓鱼的最大数量。

输入输出样例

输入样例#1： 复制

2
1
10  1
2  5
2

输出样例#1： 复制

31

设f[i,j]表示在第i个池塘，钓了j分钟所得到的最大值

设在前一个鱼塘钓了j2分钟，则在当前这个鱼塘钓了j-j2 分钟，这是状态转移

var
p,d,t:array[0..1000]of int64;
sum,f:array[0..300,0..3500]of int64;
n,h,ans:int64;
i,j,j2:longint;
function max(x,y:int64):longint;
begin
 if x>y then exit(x) else exit(y);
end;
begin
 readln(n);
 readln(h);
 h:=h*12;
 for i:=1 to n do read(p[i]);
 readln;
 for i:=1 to n do read(d[i]);
 readln;
 for i:=1 to n-1 do read(t[i]);
  for i:=1 to n do
   for j:=1 to h do
    begin
     sum[i,j]:=sum[i,j-1]+p[i]-(d[i]*(j-1));
    end;
    for i:=0 to n do
     for j:=0 to h do
      f[i,j]:=-(1<<20);
      f[0,0]:=0;
   //  for i:=1 to n do   f[i,0]:=0;
   //   for i:=1 to n do f[0,i]:=0;
    for i:=1 to n do
     for j:=t[i-1] to h do
      for j2:=0 to j-t[i-1] do
      begin
        f[i,j]:=max(f[i,j],f[i-1,j2]+sum[i,j-t[i-1]-j2]);
        ans:=max(f[i,j],ans);
      end;
      writeln(ans);
end.