Hlog 2012-08-08 07:23:00
点我顶贴
收藏
删除
把全部鼓舞最大的信件挑出来,让他自己按照value一个个看就是了?
还是说不能读value相等的两封信件?
我根本没用v数组,也AC了
program xiang;
var n,m,t,i,j,k:longint;
f:array[0..100,0..100] of longint;
v,time,h,w:array[1..100] of longint;
begin
readln(n,m,t);
for i:=1 to n do
readln(v[i],time[i],h[i],w[i]);
m:=m-1;
for i:=1 to n do
for j:=m downto h[i] do
for k:=t downto time[i] do
if f[j][k]<f[j-h[i]][k-time[i]]+w[i] then f[j][k]:=f[j-h[i]][k-time[i]]+w[i];
writeln(f[m][t]);
readln;
end.