第二天

今天，对大家道歉啊。说好上个星期也更新的。但是，数据找不回来了。抱歉。。。

今天，记忆力不好，因该是*多了。（手打和谐）。

第二题：

       因为之前的NOIP都可以用 uese math；

       但是这里不行。。。

 

打包[pack.pas/pack.c/pack.cpp]

【问题描述】

你现在拿到了许多的礼物，你要把这些礼物放进袋子里。你只有一个最多装下V 体积物品的袋子，你不能全部放进去。你也拿不动那么重的东西。你估计你能拿的最大重量为 G。现在你了解了每一个物品的完美值、重量和体积，你当然想让袋子中装的物品的完美值总和最大，你又得计划一下了。

【输入】

第一行：V 和 G 表示最大重量和体积。

第二行：N 表示拿到 N 件礼物。

第三到N+2行：每行3个数 T_iV_i G_i 表示各礼物的完美值、重量和体积【输出】

输出共一个数，表示可能获得的最大完美值。

【输入输出样例】

输入(pack.in)： 6 5 4 10 2 2 20 3 2 40 4 3 30 3 3

输出(pack.out)： 50

【数据范围】

对于20%的数据 N，V，G，T_i，V_i，G_i≤10

对于50%的数据 N，V，G，T_i，V_i，G_i≤100

对于80%的数据 N，V，G，T_i，V_i，G_i≤300

80%到100%的数据是N，V，G，T_i，V_i，G_i≤380 的离散随机数据。

var
  i,j,k,n,m,aa,bb,x,y,z:longint;
  c,a,b:array[0..1001]of longint;
  f:array[0..1001,0..1001]of longint;
function max(a,b:longint):longint;
begin
  if a>b then exit(a)
         else exit(b);
end;

begin
  assign(input,'pack.in'); assign(output,'pack.out');
  reset(input); rewrite(output);
  readln(aa,bb);
  readln(n);
  for i:=1 to n do
    begin
      read(a[i],b[i],c[i]);
    end;
  for i:=1 to n do

    for j:=aa downto b[i] do
      for k:=bb downto c[i] do
        begin
          f[j,k]:=max(f[j,k],f[j-b[i],k-c[i]]+a[i])
        end;
  writeln(f[aa,bb]);
  close(input);
  close(output);
end.