书架Bookshelf

题目：

题目描述

当FJ不在为奶牛挤奶、打包包裹、将他的奶牛排成一队、或是砌栅栏的时候，他喜欢坐着看一本好书。多年来他收集了N(1 <= N <= 2,000)本书，他想建立一套新的书架来保存他的书。

每本书宽W(i)，高度为H(i)。书需要被按照顺序地放进书架，比如：第一个书架放了k本书，那应该是第1本到第k本，第二个书架放的书应该以第k+1本开始。每个书架可以存放宽度和至多为L(1 <= L <=1,000,000,000)的书，这个书架的高度应该是他所放的书中最高的一本书的高度。整套书架的高度为每个书架高度之和。每本书应该垂直的放在书架里。

请帮助FJ计算这套书架最小可能的高度值。

输入

第1行：两个用空格隔开的整数：N, L

第2行至第n + 1行：第i +１行有两个用空格隔开的整数：H(i), W(i)

   (1 <= H(i) <= 1,000,000; 1 <= W(i) <= L)

输出

一行，这套书架最小可能的高度值。

样例输入

5 10

5 7

9 2

8 5

13 2

3 8

样例输出

21

作者思路：多谢明伟大牛的指导。
dp，dp，dp！！！
首先预处理出sum（前缀和）和hmax（高度最大）
然后dp！
递推式：f[i]:=min(f[j]+hmax[j+1,i],f[i]);（sum[i]-sum[j]<=m）

代码：

var h,w,sum,f:array[0..2001] of longint;    hmax:array[0..2001,0..2001] of longint;    n,m,i,j,k:longint;function max(x,y:longint):longint;begin  if x>y then exit(x) else exit(y);end;function min(x,y:longint):longint;begin  if x<y then exit(x) else exit(y);end;begin  assign(input,'bookshelf.in');  assign(output,'bookshelf.out');  reset(input);  rewrite(output);  read(n,m);  for i:=1 to n do  begin    read(h[i],w[i]);    sum[i]:=sum[i-1]+w[i];  end;  for i:=1 to n do  begin    hmax[i,i]:=h[i];    for j:=i+1 to n do      hmax[i,j]:=max(hmax[i,j-1],h[j]);  end;  {for i:=1 to n do    for j:=i+1 to n do      for k:=i to j do        hmax[i,j]:=max(hmax[i,j],h[k]);   }  {for i:=1 to n do    for j:=i to n do      for k:=i to j do        sum[i,j]:=sum[i,j]+w[k];}  for i:=1 to n do f[i]:=maxlongint div 5;  for i:=1 to n do    for j:=0 to i-1 do      if sum[i]-sum[j]<=m then        f[i]:=min(f[j]+hmax[j+1,i],f[i]);  write(f[n]);  close(input);  close(output);end.