0 1背包问题pascal记忆化搜索做01背包问题

pascal记忆化搜索做01背包问题

首先， 解释一下要倒序的原因： 由于01背包每种物品只能选一件 所以在迭代算法中 顺序的话会更改了上一次前面的数据 简单的说 就是一个物品会被选多次 因此用倒序 其次，楼下做的不是记忆化搜索而是dp（动归） 记忆化搜索主要部分 不是程序别抄 f(i,j)表示前i件物品还剩j容量 function f(i,j:integer):longint; if i>n then exit(0); if f1[i,j]<>0 then exit(f1[i,j]); <==记忆化搜索的精髓（记录已经用过的） x1:=f(i+1,j) if weight[i]<=j then x2:=f(i+1,j-weight[i])+value[i] else x2:=0 if x1>x2 then f:=x1 else f:=x2 f1[i,j]:=f <==记录