【01背包】采药

题目:采药 rqnoj15

题目描述

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

输入格式

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

输出格式

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

样例输入

70 371 10069 11 2

样例输出

3

 

01背包的标准模型

program rqnoj15;var  n,m:longint;  t,p:array[0..10000+10] of longint;  f:array[0..1,0..10000+10] of longint;procedure init;begin  assign(input,'rqnoj15.in');  assign(output,'rqnoj15.out');  reset(input);  rewrite(output);end;procedure outit;begin  close(input);  close(output);  halt;end;procedure readdata;var  i:longint;begin  read(n,m);  for i:=1 to m do    read(t[i],p[i]);end;procedure main;var  i,j,best:longint;begin  for i:=1 to m do  begin    for j:=0 to n do    begin      f[i mod 2,j]:=f[(i-1)mod 2,j];      if (j>=t[i])and(f[i mod 2,j]<f[(i-1)mod 2,j-t[i]]+p[i]) then        f[i mod 2,j]:=f[(i-1)mod 2,j-t[i]]+p[i];    end;  end;  best:=0;  for j:=n downto 0 do    if f[m mod 2,j]>best then best:=f[m mod 2,j];  writeln(best);end;begin  init;  readdata;  main;  outit;end.