JZOJ8.11（C组）【NOIP动态规划专题】采药2 (Standard IO)

题目：辰辰是个天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。”  　　如果你是辰辰，你能完成这个任务吗？

分析：

本来如同原来的采药，但是数据大了许多，不过价值和代价最大都只是10，可以看做重复的100个物品，再用多重背包来做；

附上代码：

const
  maxn=1000;

var
  n,m:longint;
  time,value:array [0..maxn] of longint;
  f:array [0..maxn,0..maxn] of longint;

procedure init;
var
  i:longint;
begin
  read(n,m);
  for i:=1 to n do
    read(time[i],value[i]);
end;

function max(x,y:longint):longint;
begin
  if x>y then
    exit(x);
  exit(y);
end;

procedure main;
var
  i,j:longint;
begin
  for i:=1 to n do
    for j:=1 to m do
      begin
        f[i,j]:=f[i-1,j];
        if j>=time[i] then
          f[i,j]:=max(f[i,j],f[i-1,j-time[i]]+value[i]);
      end;
end;

begin
  init;
  main;
  write(f[n,m]);
end.