我的PASCAL哪里错了？谁能帮我修改一下？（就用搜索法）

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:38:10
题目：
辰辰是个天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。”
如果你是辰辰，你能完成这个任务吗？
输入格式
输入的第一行有两个整数T（1 <= T <= 1000）和M（1 <= M <= 100），用一个空格隔开，T代表总共能够用来采药的时间，M代表山洞里的草药的数目。接下来的M行每行包括两个在1到100之间（包括1和100）的整数，分别表示采摘某株草药的时间和这株草药的价值。
输出格式
输出包括一行，这一行只包含一个整数，表示在规定的时间内，可以采到的草药的最大总价值。
样例输入：
70 3
71 100
69 1
1 2
样例输出：
3

program caiyao(input,output);
var
t,m:integer;
i:integer;
zuihao:integer;
tian,money:array[1..100]of integer;
procedure shi(sheng,ge,zong:integer);
var
n:integer;
begin
n:=0;
for i:=ge to m do
if tian[i]<=sheng then
begin
if n<>0 then zong:=zong-money[n];
zong:=zong+money[i];
n:=i;
shi(sheng-tian[i],i+1,zong);

解法有错
简单的0/1背包 想用迭代随你 空间省100倍而已
我的程序贴一下 供你参考
program caiyao;
var
a:array[1..100,0..1000] of longint;
b,c:array[1..100] of integer;
t,m,i,j:integer;
function max(x,y:longint):longint;
begin
if x>y then max:=x else max:=y;
end;
begin
readln(t,m);
for i:=1 to m do readln(b[i],c[i]);
for i:=0 to t do
if i<b[1] then a[1,i]:=0 else a[1,i]:=c[1];
for i:=2 to m do
for j:=0 to t do
if j<b[i] then
a[i,j]:=a[i-1,j]
else
a[i,j]:=max(a[i-1,j],a[i-1,j-b[i]]+c[i]);
writeln(a[m,t]);
end.

采药吗？
用动态规划的啊，不能用搜索的...
const
maxm=1000;
maxn=300;
type ar=array[1..maxn] of longint;
var
m,n,j,i:longint;
c,w:ar;
f:array[0..maxn,0..maxm] of longint;
function max(x,y:integer):longint;
begin
if x>y
then max:=x
else max: