打包

打包

Time Limit:10000MS  Memory Limit:65536K
Total Submit:88 Accepted:40 
Case Time Limit:1000MS

Description

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

Input

第一行：G 和 V 表示最大重量和体积。 
第二行：N 表示拿到 N 件礼物。 
第三到N+2行：每行3个数 Ti Gi Vi 表示各礼物的完美值、重量和体积

Output

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

Sample Input

6 5  
4  
10 2 2  
20 3 2
40 4 3
30 3 3

Sample Output

50

var
 f:array[0..500,0..500]of longint;
 v,g,t:array[0..500]of longint;
 i,j,k,l,n,v1,g1:longint;
function max(a,b:longint):longint;
 begin
  if a>=b then exit(a);
  exit(b);
 end;
begin
 readln(v1,g1);
 readln(n);
 for i:=1 to n do
  readln(t[i],v[i],g[i]);
 for i:=1 to n do
  for j:=v1 downto 1 do
   for k:=g1 downto 1 do
    if (j>=v[i])and(k>=g[i]) then
      f[j,k]:=max(f[j,k],f[j-v[i],k-g[i]]+t[i]);
 write(f[v1,g1]);//二维背包
end.