庆功会
Time Limit:10000MS Memory Limit:65536K Total Submit:235 Accepted:94 Case Time Limit:1000MS
Description
为了庆贺班级在校运动会上取得第一名的成绩,班主任决定开一场庆功会,为此拔款购买奖品奖励运动员,期望拔款金额能购买最大价值的奖品,可以补充他们的精力和体力。
Input
第一行二个数n(n<=500),m(m<=5000),其中n代表希望购买的物品的种数,m表示班会拨的钱数。 接下来n行,每行3个数,v、w、s,分别表示第I种物品的价格、价值(价格 与 价值 是不同的概念)和购买的数量(只能买0件或s件),其中v<=100,w<=1000,s<=10
Output
第一行:一个数,表示此次购买能获得的最大的价值(注意!不是价格)。
Sample Input
5 1000 80 20 4 40 50 9 30 50 7 20 20 1
Sample Output
1040
Source
var
v,w,s,f:array[0..6000]of longint;
n,m,i,j,k:longint;
function max(a,b:longint):longint;//状态转移~
begin
if a>b then exit(a);
exit(b);
end;
begin
read(n,m);
for i:=1 to n do readln(v[i],w[i],s[i]);
for i:=1 to n do
for j:=m downto 0 do//用来求越少钱来买东西
for k:=0 to s[i] do//用来看这个物品要不要多买
begin
if j-k*v[i]<0 then break;//如果买了这堆东西就没钱了就没得买了啊
f[j]:=max(f[j],f[j-k*v[i]]+k*w[i]);
end;
writeln(f[m]);
end.