采药

• 2005年分区联赛普级组之三 采药
  Time Limit:1000MS  Memory Limit:65536K
  Total Submit:358 Accepted:188 
  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。 
  Source 
  elba
  

分析：典型的01背包问题，用逆推法依次解决。

• var
   map:array[1..1000] of longint;
   dis:array[1..1000] of longint;
   i,n,j,max:longint;
  begin
   readln(n);
   for i:=1 to n do
    read(map[i]);
   dis[n]:=1;
   for i:=n-1 downto 1 do
    begin
    max:=1;
     for j:=i+1 to n do
     begin
      if (map[i]<map[j]) and (dis[j]+1>max) then
                                            max:=dis[j]+1;
      dis[i]:=max;
     end;
    end;
    max:=0;
    for i:=1 to n do
     if dis[i]>max then max:=dis[i];
    write(max);
  end.

方程：

for i:=n-1 downto 1 do
  begin
  max:=1;
   for j:=i+1 to n do
   begin
    if (map[i]<map[j]) and (dis[j]+1>max) then
                                          max:=dis[j]+1;
    dis[i]:=max;