Description
John要建一个奶酪塔,高度最大为T。他有N种奶酪,每种有无限个。第i种高度为Hi(一定是5的倍数),价值为Vi。一块高度>=K的奶酪被称为大奶酪,一个奶酪如果在它上方有大奶酪(多块只算一次),它的高度就会变成原来的4/5.。。很显然John想让他的奶酪他价值和最大。。求这个最大值。。
Input
第一行分别是 N T K接下来N行分别是Vi Hi
Output
一行最大值
Sample Input
3 53 25
100 25
20 5
40 10
100 25
20 5
40 10
Sample Output
240
水题一道,先用不是大奶酪的奶酪背包一次,再枚举最上面的大奶酪背包一次即可。
代码:
{$inline on}
var
f:array[0..100,0..1000]of longint;
hh,v,h:array[0..100]of longint;
ans,i,j,kk,k,t,n,m:longint;
function max(a,b:longint):longint;inline;
begin
if a>b then exit(a) else exit(b);
end;
begin
fillchar(f,sizeof(f),$ff);
readln(n,t,k);
f[0][0]:=0;
for i:=1 to n do
readln(v[i],h[i]);
for i:=1 to n do
hh[i]:=(h[i]*4) div 5;
for i:=1 to n do
if h[i]<k then
for j:=h[i] to t do
if f[0][j-h[i]]<>-1 then
f[0][j]:=max(f[0][j],f[0][j-h[i]]+v[i]);
for i:=1 to n do
if h[i]>=k then
begin
f[i][h[i]]:=v[i];
for j:=1 to n do
for kk:=hh[j]+h[i] to t do
if f[i][kk-hh[j]]<>-1 then
f[i][kk]:=max(f[i][kk],f[i][kk-hh[j]]+v[j]);
end;
ans:=0;
for i:=0 to n do
for j:=h[i] to t do
ans:=max(ans,f[i][j]);
writeln(ans);
end.