jzoj P1517 背包问题

题目大意：
从T组物品中选出一些物品，放入背包中，总空间为v，求装了物品后，剩余空间的最小值。
限制条件：从每组物品中挑选物品必须要选取连续的一段。就是说，如果这组物品共有n个： 物品1、物品2、物品3、…、物品n，那么只能选取物品i、物品i+1、…、物品j，其中1<=i<=j<=n,或者不选。

60%的数据满足：1 <= ni <= 10
100%的数据满足：1 <= ni <= 100，1<=v<=5000，1<=T<=10

题解：
可以发现，每组物品，只能选连续的一段且只能选一次，所以我们可以想到DP.
b[i,j]表示第i组物品，是否出现连续一段总体积为j的情况。
f[i,j]表示前T组物品，用了j体积装物品，能装载的物品的最大值。
然后怎么去做b[i,j]？
用一个前缀和去统计，然后暴力去枚举判断就好了。
然后状态转移方程：
f[i,j]:=max(f[i,j-1],max(f[i-1,j-k]+k));
1<=i<=n 0<=j<=m 0<=k<=j
最后在这里面找出一个最大值，然后用v减去max。

var
     a,c,sum:array [0..11,0..102] of longint;
     b:array [0..11,0..5001] of boolean;
     f:array [0..11,0..5001] of longint;
     max,i,j,k,l,n,m:longint;
begin
     readln(m,n);
     for i:=1 to n do
     begin
          read(a[i,0]);
          for j:=1 to a[i,0] do
          begin
               read(a[i,j]);
               sum[i,j]:=sum[i,j-1]+a[i,j];
          end;
          readln;
     end;
     for i:=1 to n do
     begin
           c[i,0]:=1;
           for j:=1 to a[i,0] do
               for k:=1 to j do
                   for l:=1 to k do
                       if sum[i,k]-sum[i,l-1]<=m then
                          b[i,sum[i,k]-sum[i,l-1]]:=true;
     end;
     for i:=1 to n do
       for j:=0 to m do
       begin
           f[i,j]:=f[i-1,j];
           for k:=0 to j do
               if b[i,k] then
                  if f[i-1,j-k]+k>f[i,j]
                     then f[i,j]:=f[i-1,j-k]+k;
           if f[i,j]>max then max:=f[i,j];
       end;
     writeln(m-max);
end.