背包问题——装箱问题（洛谷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.