混合背包

混合背包
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

var
 v,w,s:array[1..6000]of longint;
 f:array[0..6000]of longint;
 i,j,n,m,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//多重背包
  begin
  for j:=m downto 0 do
   for k:=0 to s[i] do
    if j>=k*v[i] then f[j]:=max(f[j],f[j-k*v[i]]+w[i]*k);
  end
  else//完全背包
  begin
   for j:=0 to m do
    if j>=v[i] then f[j]:=max(f[j],f[j-v[i]]+w[i]);
  end;
 write(f[m]);
end.