叠放箱子问题

来源：互联网发布：网络系统工程师简历编辑：程序博客网时间：2024/06/11 14:00

叠放箱子问题

Time Limit:10000MS Memory Limit:65536K
Total Submit:309 Accepted:115
Case Time Limit:1000MS

Description

　　某港口有一批集装箱，将其编号，分别为1至N。每一个箱子的外型尺寸都是一样的，现在要将其中某些集装箱叠放起来，集装箱叠放的规则如下：
　　1)每个集装箱上最多只能直接叠放一个集装箱。
　　2)编号较小的集装箱不能放在编号较大的集装箱之上。
　　3)每个集装箱都给出了自身的重量和可承受的重量，每个集装箱之上的所有集装箱重量之和不得超过该集装箱的可承受的重量。

　　现在要求你编程，从中选出最多个集装箱，使之在满足以上条件的情况下叠放起来，即要求叠得尽可能地高。

Input

　　第一行是一个正整数N，表示共有N个集装箱（1≤ N ≤1000）。
　　以下共有N行，每行两个正整数，中间用空格分隔，分别表示每个集装箱的自身重量和可承受的重量，两个数均为小于等于3000。

Output

输出最多可叠放的集装箱总数。运行时间不超过去时10秒。

Sample Input

5  19 15 7 13 5 7 6 8 1 2

Sample Output

４

var a,b:array[0..1000] of longint; f:array[0..6000,0..6000] of longint; i,n,m,j,k:longint;function min(a,b:longint):longint; begin  if a<b then exit(a)         else exit(b); end;function max(a,b:longint):longint; begin  if a<b then exit(b)         else exit(a); end;begin readln(n);  for i:=1 to n do   readln(b[i],a[i]); f[n,b[n]]:=1;  for i:=n-1 downto 1 do   begin   for j:=1 to 6000 do    f[i,j]:=f[i+1,j];   for j:=0 to a[i] do    f[i,j+b[i]]:=max(f[i+1,j]+1,f[i,j+b[i]]);   end;  for i:=1 to 6000 do   if f[1,i]>k then k:=f[1,i];  write(k);end.

0 0