NOIP2006提高组budget金明的预算方案.docVIP

【问题描述】 金明今天很开心，家里购置的新房就要领钥匙了，新房里有一间金明自己专用的很宽敞的房间。更让他高兴的是，妈妈昨天对他说：“你的房间需要购买哪些物品，怎么布置，你说了算，只要不超过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]。(其中*为乘号) 请你帮助金明设计一个满足要求的购物单。 【输入文件】 输入文件budget.in 的第1行，为两个正整数，用一个空格隔开：n，m (其中n(32000)表示总钱数，m(60)为希望购买物品的个数。) 从第2行到第m+1行，第j行给出了编号为j-1的物品的基本数据，每行有3个非负整数v，p，q (其中v表示该物品的价格(v10000)，p表示该物品的重要度(1~5)，q表示该物品是主件还是附件。如果q=0，表示该物品为主件，如果q0，表示该物品为附件，q是所属主件的编号) 【输出文件】 输出文件budget.out只有一个正整数，为不超过总钱数的物品的价格与重要度乘积的总和的最大值(200000)。 【输入样例】 1000 5 800 2 0 400 5 1 300 5 1 400 3 0 500 2 0 【输出样例】 2200 DP:有利润的背包问题，可以先把主件和附件的搭配全部分出来，然后分阶段做背包，O(mn/10) program budget;{第18届国际信息学奥林匹克竞赛金牌获得学生复旦附中高三李天翼noip2006} const maxm=32000;maxn=60; var a,b:array [0..maxm] of longint; c,w,q,u:array [1..maxn] of longint; n,m,i,j,tem:longint; begin assign(input,budget.in);reset(input); assign(output,budget.ans);rewrite(output); readln(m,n); for i:=1 to n do readln(c[i],w[i],q[i]); {物品的价格，物品的重要度，物品是(0主件，0附件所属主件的编号)} for i:=1 to n do w[i]:=w[i]*c[i]; {物品的重要度*价格(物品的重要度} for i:=1 to n do if q[i]=0 then {如果是物品的主件，u[i]=0，标志第i个主件没有附件，q[i]= i，标志第i个主件没有附件} begin u[i]:=0;q[i]:=i end else u[i]:=1; {如果是物品的附件，u[i]=1，标志第i个主件含有附件，q[i]=初始值，所属主件的编号} {下面两重循环排序：没有附件的物品按照读入顺序升序排列，如果读入顺序值=该附件物品所属主件的编号，则有附件的排后面} for i:=1 to n-1 do for j:=1 to n-1 do if (q[j]q[j+1])or(q[j]=q[j+1])and(u[j]u[j+1])then {如果 (q[j]q[j+1]) 或者第j个附件物品所属主件的编号正好=第j+1个读入顺序值q[i]= i，则由语句(u[j]u[j+1])判断哪个含有附件的升序排列在后面} begin tem:=c[j];c[j]:=c[j+1];c[j+1]:=tem; tem:=w[j];w[j]:=w[j+1];w[j+1]:=tem; tem:=q[j];q[j]:=q[j+1];q[j+1]:=tem; tem:=u[j];u[j]:=u[j+1];u[j+1]:=tem end; for i:=0 to m do a[i]:=