SSL 1045——采药

Description

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

Input

　　输入的第一行有两个整数T（1 <= T <= 1000）和M（1 <= M <= 100），用一个空格隔开，T代表总共能够用来采药的时间，M代表山洞里的草药的数目。接下来的M行每行包括两个在1到100之间（包括1和100）的整数，分别表示采摘某株草药的时间和这株草药的价值。

Output

　　输出包括一行，这一行只包含一个整数，表示在规定的时间内，可以采到的草药的最大总价值。

Sample Input

70 3
71 100
69 1
1 2
Sample Output

3
Hint

对于30%的数据，M <= 10；
对于全部的数据，M <= 100。

---

设f[i,j]为取到第i个数，用j的时间的最大价值
那么就可以得到f[i,j]:=max(f[i,j],f[i-1,j-w[i]]+a[i])
那么一个循环来枚举i
一个循环来枚举j为m downto w[i]

---

代码如下：

var
  m,n:longint;
  w,c:array [0..1000] of longint;
  f:array [0..100,0..1000] of longint;
procedure init;
var
  i:longint;
begin
  readln(m,n);
  for i:=1 to n do
    readln(w[i],c[i]);
end;

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

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

begin
  init;
  main;
end.