叠放箱子问题

叠放箱子问题


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
 zl,cs:array[0..10001] of longint;
 f:array[0..10001,0..6001] of longint;
 n,s,ans,j,i:longint;
begin
 read(n);
 for i:=1 to n do
  begin
   read(zl[i],cs[i]);
   readln;
  end;
 f[n,zl[n]]:=1;
 for i:=n-1 downto 1 do
  begin
   f[i]:=f[i+1];
   for j:=0 to cs[i] do
   if f[i+1,j]+1 > f[i,j+zl[i]]
   then f[i,j+zl[i]]:=f[i+1,j]+1
   else f[i,j+zl[i]]:=f[i,j+zl[i]];
  end;
 ans:=0;
 for i:=0 to 6000 do
  if f[1,i]>ans then ans:=f[1,i];
 write(ans);
end.
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值