(ssl2291)分组背包

分组背包
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
Source

var
 c,w,f:array[0..1000]of longint;
 a:array[0..100,0..100]of longint;
 n,v,t,g,i,j,k:longint;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
 readln(v,n,t);
 for i:=1 to n do
  begin
   readln(w[i],c[i],g);
   inc(a[g,0]);//这个组的总数+1
   a[g,a[g,0]]:=i;
  end;
 for i:=1 to t do//每个组只能拿一个=一共拿t个
  for j:=v downto 0 do
   for k:=1 to a[i,0] do
    if j>=w[a[i,k]] then
     f[j]:=max(f[j],f[j-w[a[i,k]]]+c[a[i,k]]);
 writeln(f[v]);
end.