首页 > 代码库 > 2001装箱问题

2001装箱问题

题目描述 Description

有一个箱子容量为V(正整数,0<=V<=20000),同时有n个物品(0<n<=30),每个物品有一个体积(正整数)。

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

输入描述 Input Description

一个整数v,表示箱子容量

一个整数n,表示有n个物品

接下来n个整数,分别表示这n 个物品的各自体积

输出描述 Output Description

一个整数,表示箱子剩余空间。

样例输入 Sample Input

24

6

8

3

12

7

9

7

样例输出 Sample Output

0

数据范围及提示 Data Size & Hint
 
 
 

题解:

动归背包。

用f【j】表示j的容量可不可以装齐,f【j】=f【j】 or f【j-a【i】】。

var m,n,i,j:longint;

    a:array[0..31]of longint;

    f:array[0..20001]of boolean;

begin

 readln(m,n);

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

 f[0]:=true;

 for i:=1 to n do

  for j:=m downto a[i] do f[j]:=f[j] or f[j-a[i]];

 for i:=m downto 0 do

  if f[i] then

   begin

    write(m-i);

    break;

   end;

end.

2001装箱问题