分组背包

分组背包

Time Limit:10000MS  Memory Limit:65536K
Total Submit:60 Accepted:44
Case Time Limit:1000MS

Description

有N件物品和一个容量为V的背包。第i件物品的费用是c[i]，价值是w[i]。这些物品被划分为若干组，每组中的物品互相冲突，最多选一件。求解将哪些物品装入背包可使这些物品的费用总和不超过背包容量，且价值总和最大。

Input

第一行：三个整数，v(背包容量，v<=200),n（物品数量，n<=30)和t（最大组号，t<=10）;
第2..n+1行：每行三个整数wi,ci,p，表示每个物品的重量、价值、所属组号。

Output

仅一行，一个数，表示最大总价值。

Sample Input

10 6 3
2 1 1
3 3 1
4 8 2
6 9 2 
2 8 3
3 9 3

Sample Output

20

• var
   w,c:array[0..101] of longint;
   f:array[0..1001] of longint;
   a:array[1..10,0..101] of longint;
   n,m,j,k,l,i,v,p,t:longint;
  begin
   readln(v,n,t);
   for i:=1 to n do
    begin
     readln(w[i],c[i],p);
     inc(a[p,0]);
     a[p,a[p,0]]:=i;
    end;
   for i:=1 to t do
    for j:=v downto 0 do
     for k:=1 to a[i,0] do
      if j>=w[a[i,k]] then
      if f[j-w[a[i,k]]]+c[a[i,k]]>f[j] then
     f[j]:=f[j-w[a[i,k]]]+c[a[i,k]];
    write(f[v]);
  end.