1102 采药

Codevs p1102 采药

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

如果你是辰辰，你能完成这个任务吗？

---

输入描述 Input Description

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

---

输出描述 Output Description

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

样例输入 Sample Input

70 3
71 100
69 1
1 2

---

样例输出 Sample Output

3

分析

该题为一个简单的01背包；；；；

代码如下

program p1102;
var i,j,t,m:longint;
    time,value:array[1..100] of longint;
    f:array[0..1000] of longint;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;

begin
 assign(input,'D:/input/codevs/p1102.txt');
 reset(input);
 assign(output,'D:/output/codevs/p1102.txt');
 rewrite(output);
 readln(t,m);
 for i:=1 to m do
  readln(time[i],value[i]);
 for i:=1 to m do
  for j:=t downto time[i]  do
   begin
    f[j]:=max(f[j],f[j-time[i]]+value[i]);
   end;
 writeln(f[t]);
 close(input);
 close(output);
end.

---

评测结果

运行结果

• 测试点#medic0.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
• 测试点#medic1.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
• 测试点#medic2.in 结果:AC 内存使用量: 128kB 时间使用量: 1ms
• 测试点#medic3.in 结果:AC 内存使用量: 128kB 时间使用量: 1ms
• 测试点#medic4.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
• 测试点#medic5.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
• 测试点#medic6.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
• 测试点#medic7.in 结果:AC 内存使用量: 236kB 时间使用量: 1ms
• 测试点#medic8.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms
• 测试点#medic9.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms