(ssl2301)混合背包

混合背包
Time Limit:10000MS  Memory Limit:65536K
Total Submit:146 Accepted:88 
Case Time Limit:1000MS
Description
背包体积为V ,给出N个物品，每个物品占用体积为Vi,价值为Wi,每个物品要么至多取1件，要么至多取mi件（mi > 1） , 要么数量无限 ， 在所装物品总体积不超过V的前提下所装物品的价值的和的最大值是多少？
Input
第一行两个数V,N下面N行每行三个数Vi,Wi,Mi表示每个物品的体积，价值与数量，Mi=1表示至多取一件，Mi>1表示至多取Mi件，Mi=0表示数量无限
Output
1个数Ans表示所装物品价值的最大值
Sample Input
10 3
2 1 0
3 3 1
4 5 4
Sample Output
11
Source

var
 v,w,s,f:array[0..6000]of longint;
 n,m,i,j,k:longint;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
 read(m,n);
 for i:=1 to n do readln(v[i],w[i],s[i]);
 for i:=1 to n do
  if s[i]=0 then//s[i]=0→可以无限取→完全背包
   begin
    for j:=v[i] to m do
     f[j]:=max(f[j],f[j-v[i]]+w[i]);
   end
  else
   begin
    for j:=1 to s[i] do//s[i]≠0→有不同数量→多重背包
     for k:=m downto v[i] do
       f[k]:=max(f[k],f[k-v[i]]+w[i]);
   end;
 writeln(f[m]);
end.

//完全背包详见http://blog.csdn.net/ssl_lzx/article/details/60875447

//多重背包详见http://blog.csdn.net/ssl_lzx/article/details/70182442