背包问题——装箱问题（洛谷1049）用true模板

题目描述 Description

有一个箱子容量为V（正整数，0＜＝V＜＝20000），同时有n个物品（0＜n＜＝30，每个物品有一个体积（正整数）。

要求n个物品中，任取若干个装入箱内，使箱子的剩余空间为最小。

输入输出格式 Input/output

输入格式：
一个整数，表示箱子容量
一个整数，表示有n个物品
接下来n行，分别表示这n 个物品的各自体积
输出格式：
一个整数，表示箱子剩余空间。

输入输出样例 Sample input/output

样例测试点#1

输入样例：

24
6
8
3
12
7
9
7

输出样例：

 0

var v,n,i,j,max:longint;

a:array[1..30] of longint;

f:array[1..20000] of boolean;    //表示是否可以到达

begin

readln(v);

readln(n);

for i:=1 to n do readln(a[i]);

f[0]:=true;

for i:=1 to n do

for j:=v-a[i] downto 0 do            //01背包倒过来

if f[j] then  f[j+a[i]]:=true;     //如果f[j]可以到，那么f[j+a[i]]也可以到

for i:=v downto 1 do       //倒过来找最大的可以到达的包

if f[i] then

begin

max:=i;

break;

end;

writeln(v-max);

end.