洛谷 P1417 烹调方案

洛谷 P1417 烹调方案

---

题目

题目背景

由于你的帮助，火星只遭受了最小的损失。但gw懒得重建家园了，就造了一艘飞船飞向遥远的earth星。不过飞船飞到一半，gw发现了一个很严重的问题：肚子饿了~

gw还是会做饭的，于是拿出了储藏的食物准备填饱肚子。gw希望能在T时间内做出最美味的食物，但是这些食物美味程度的计算方式比较奇葩，于是绝望的gw只好求助于你了。

题目描述

一共有n件食材，每件食材有三个属性，ai，bi和ci，如果在t时刻完成第i样食材则得到ai-t*bi的美味指数，用第i件食材做饭要花去ci的时间。

众所周知，gw的厨艺不怎么样，所以他需要你设计烹调方案使得美味指数最大

输入输出格式

输入格式：
第一行是两个正整数T和n，表示到达地球所需时间和食材个数。

下面一行n个整数，ai

下面一行n个整数，bi

下面一行n个整数，ci

输出格式：
输出最大美味指数

输入输出样例

输入样例#1：

74 1
502
2
47

输出样例#1：

408

说明

【数据范围】

对于40%的数据1<=n<=10

对于100%的数据1<=n<=50

所有数字均小于100,000

---

题解

DP

---

代码（Pascal）

var t,n,t1,ans:int64;
    a,b,c:array[0..51] of int64;
    f:array[0..51,0..100000] of int64;
 function max(a,b:int64):int64;
  begin
    if a>b then exit(a) else exit(b);
   end;
 procedure init;
  var i:longint;
   begin
     readln(t,n);
     for i:=1 to n do read(a[i]); readln;
     for i:=1 to n do read(b[i]); readln;
     for i:=1 to n do read(c[i]); readln;
    end;
 procedure main;
  var i,j:longint;
   begin
     for i:=1 to n-1 do
      for j:=i+1 to n do
       begin
         if c[i]*b[j]>c[j]*b[i] then                    
          begin
            t1:=a[i];a[i]:=a[j];a[j]:=t1;
            t1:=b[i];b[i]:=b[j];b[j]:=t1;
            t1:=c[i];c[i]:=c[j];c[j]:=t1;
           end;
        end;
     for i:=1 to n do
      for j:=0 to t do
       if j-c[i]>=0 then f[i,j]:=max(f[i-1,j],f[i-1,j-c[i]]+a[i]-j*b[i])
                    else f[i,j]:=f[i-1,j];
     for i:=0 to t do
      ans:=max(ans,f[n,i]);
    end;
 procedure print;
  begin
    writeln(ans);
   end;
 begin
   init;
   main;
   print;
  end.