UC知道采药问题，看看我的pascal程序哪里有问题？
来源：百度知道 编辑：UC知道 时间：2024/06/04 01:49:23
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。
我的程序代码是：
type
arra=array[0..100] of integer;
var
a,b:arra;
s,time,j,m,i,x,y:integer;
procedure try(var time,m:integer);
var
total,i,start:integer;
begin
total:=0;
for i:=1 to 100 do
if (i<=time) and (a[i]<>0) then total:=total+1;
if (total=0) or (m=0) then
额，好长啊，写这么多当然容易错了，
用动态规划啊，20行搞定，
动态转移方程是：f[j] = max{ f[j-v[i]] + p[i] ，f[j] }
顺便搜索也贴一下啦
输入输出格式不一样，稍稍改一下把
Program ex2c;
const maxn=31;
var i,best,n,maxv:integer;
v,p,s:array[0..maxn] of integer; {设s[i]为前i件物品的总价值}
procedure search(k,restv,ps:integer);
{搜索第k件物品，当前剩余空间为restv，当前总价值为ps}
begin
if ps>=best then best:=ps; {如果当前价值比当前最优答案优，则修改当前最优答案}
if ps+(s[n]-s[k-1])<best then exit; {剪枝}
if k<=n then begin
if restv>=v[k] then search(k+1,restv-v[k],ps+p[k]); {取该物品}
search(k+1,restv,ps);{不取该物品}
end;
end;
begin{main}
readln(maxv,n);
for i:=1 to n do read(v[i]);
for i:=1 to n do read(p[i]);
best:=0;
fillchar(s,sizeof(s),0);
for i:=1 to n do
s[i]:=s[i-1]+p[i];
search(1,maxv,0);
writeln(best);
end.<