分组背包

分组背包
Time Limit:10000MS Memory Limit:65536K
Total Submit:65 Accepted:47
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

f[j]:=max(f[j],f[j-w[a[g,i]]]+c[a[g,i]]);

---

var
  w,c:array[0..31]of longint;
  a:array[0..11,-1..31]of longint;
  f:array[0..201]of longint;
  i,j,g,n,m,k:longint;
begin
  readln(n,m,k);
  for i:=1 to m do
  begin
    readln(w[i],c[i],g);
    inc(a[g,0]);
    a[g,a[g,0]]:=i;
  end;
  for g:=1 to k do
    for j:=n downto 0 do
      for i:=1 to a[g,0] do
        if j>=w[a[g,i]] then
          if f[j]<f[j-w[a[g,i]]]+c[a[g,i]] then
            f[j]:=f[j-w[a[g,i]]]+c[a[g,i]];
  writeln(f[n]);
end.