金明的预算方案 2006年NOIP全国联赛提高组
题目描述 Description
金明今天很开心，家里购置的新房就要领钥匙了，新房里有一间金明自己专用的很宽敞的房间。更让他高兴的是，妈妈昨天对他说：“你的房间需要购买哪些物品，怎么布置，你说了算，只要不超过N元钱就行”。今天一早，金明就开始做预算了，他把想买的物品分为两类：主件与附件，附件是从属于某个主件的，下表就是一些主件与附件的例子：
如果要买归类为附件的物品，必须先买该附件所属的主件。每个主件可以有0个、1个或2个附件。附件不再有从属于自己的附件。金明想买的东西很多，肯定会超过妈妈限定的N元。于是，他把每件物品规定了一个重要度，分为5等：用整数1~5表示，第5等最重要。他还从因特网上查到了每件物品的价格（都是10元的整数倍）。他希望在不超过N元（可以等于N元）的前提下，使每件物品的价格与重要度的乘积的总和最大。
设第j件物品的价格为v[j]，重要度为w[j]，共选中了k件物品，编号依次为j1，j2，……，jk，则所求的总和为：
v[j1]*w[j1]+v[j2]*w[j2]+ …+v[jk]*w[jk]。（其中*为乘号）
请你帮助金明设计一个满足要求的购物单。
输入描述 Input Description
第1行，为两个正整数，用一个空格隔开：
N m
（其中N（<32000）表示总钱数，m（<60）为希望购买物品的个数。）
从第2行到第m+1行，第j行给出了编号为j-1的物品的基本数据，每行有3个非负整数
v p q
（其中v表示该物品的价格（v<10000），p表示该物品的重要度（1~5），q表示该物品是主件还是附件。如果q=0，表示该物品为主件，如果q>0，表示该物品为附件，q是所属主件的编号）
输出描述 Output Description
只有一个正整数，为不超过总钱数的物品的价格与重要度乘积的总和的最大值（<200000）
样例输入 Sample Input
1000 5
800 2 0
400 5 1
300 5 1
400 3 0
500 2 0
样例输出 Sample Output
2200
刚看完背包九讲，找了一道题练一练
这道题属于 有依赖的背包
共m个物品，可看为共有k个集合{由主件和附件的选择决策组成}
如果一个主件有1个附件，则有2种决策方案{只选主件，主件和附件}
如果--------- 2个附件，则有4种决策方案{主件，主件和附件1，主件和附件2，主件和附件1和附件2}
f[i,j]表示前i个集合，代价为j 所获得的最大利益
转移方程：f[i,j]=max{f[i-1,j], f[i-1,j-w[i][k]]+v[i][k] | 0<=k<=第i个集合的决策数 }
核心代码：
for i:=1 to 集合数 do
for j:=v downto 0 do
begin f[i,j]:=f[i-1,j];{如果不选这个集合}
for k:=1 to 这个集合的决策数 do
f[i,j]:=max（f[i,j], f[i-1,j-w[i][k]{该决策的代价}+v[i][k]{该决策的利益}）
end;
var n,m:longint; jhn:longint;
jh:array[0..60]of record
v,w:array[1..60]of longint;
end;
jk:array[0..60]of longint;
p,t,w,w1,v,v1:array[1..60]of longint;
f:array[0..60,0..32000]of longint;
son:array[0..60,0..60]of longint;
findmax:longint;
i,j,k:longint;procedure choose(x:longint);
var i,j:longint;
begin if son[x,0]=1
then begin inc(jk[ jhn ]);
jh[ jhn ].v[jk[ jhn ]]:=v1[x]+v1[ son[x,1] ];
jh[ jhn ].w[jk[ jhn ]]:=w1[x]+w1[ son[x,1] ];
end;
if son[x,0]=2
then begin inc(jk[ jhn ]);
jh[ jhn ].v[jk[ jhn ]]:=v1[x]+v1[ son[x,1] ];
jh[ jhn ].w[jk[ jhn ]]:=w1[x]+w1[ son[x,1] ];
inc(jk[ jhn ]);
jh[ jhn ].v[jk[ jhn ]]:=v1[x]+v1[ son[x,2] ];
jh[ jhn ].w[jk[ jhn ]]:=w1[x]+w1[ son[x,2] ];
inc(jk[ jhn ]);
jh[ jhn ].v[jk[ jhn ]]:=v1[x]+v1[ son[x,1] ]+v1[ son[x,2] ];
jh[ jhn ].w[jk[ jhn ]]:=w1[x]+w1[ son[x,1] ]+w1[ son[x,2] ];
end;
end;function max(x,y:longint):Longint;
begin if x>y
then exit(x)
else exit(y);
end;begin fillchar(son,sizeof(son),0);
fillchar(jk,sizeof(jk),0);
readln(n,m);
for i:=1 to m do
begin readln(w1[i],t[i],p[i]);
v1[i]:=w1[i]*t[i];
if p[i]<>0
then begin inc(son[p[i],0]);
son[ p[i] , son[p[i],0] ]:=i;
end;
end;
for i:=1 to m do
if p[i]=0
then begin inc(jhn); jk[ jhn ]:=1;
jh[ jhn ].v[1] :=v1[i];
jh[ jhn ].w[1] :=w1[i];
if son[i,0]<>0
then choose(i);
end;
for i:=1 to jhn do
for j:=n downto 0 do
begin f[i,j]:=f[i-1,j];
for k:=1 to jk[i] do
if jh[i].w[k]<=j
then f[i,j]:=max(f[i,j],f[i-1,j-jh[i].w[k] ]+jh[i].v[k]);
end;
writeln(f[jhn,n]);
end.