BZOJ 2021 [Usaco2010 Jan]Cheese Towers

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

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.