洛谷 P1049 装箱问题

题目描述

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

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

输入输出格式

输入格式：
一个整数，表示箱子容量

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

接下来n行，分别表示这n 个物品的各自体积

输出格式：
一个整数，表示箱子剩余空间。

输入输出样例

输入样例#1：
24
6
8
3
12
7
9
7
输出样例#1：
0
说明

NOIp2001普及组 第4题
DP：
f[i,j]表示前i个物品在箱子重量为j时能放的最大体积。
j>=a[i] f[i,j]:=max(f[i-1,j],f[i-1,j-a[i]]+a[i])
j

var
     i,j,n,m:longint;
     f:array [0..31,0..20001] of longint;
     a:Array [0..31] of longint;
begin
     readln(m);
     readln(n);
     for i:=1 to n do readln(a[i]);
          for i:=1 to n do
              begin
                  for j:=1 to a[i]-1 do f[i,j]:=f[i-1,j];
                  for j:=a[i] to m do
                      if f[i-1,j]>f[i-1,j-a[i]]+a[i]
                         then f[i,j]:=f[i-1,j]
                         else f[i,j]:=f[i-1,j-a[i]]+a[i];
              end;
     writeln(m-f[n,m]);
end.