zoukankan      html  css  js  c++  java
  • SSL 1640——叠放箱子问题

    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


    动态转移方程为f[i,j+w[i]]:=max(f[i+1,j]+1,f[i,j+w[i]);
    n-1>=i>=1
    0<=j<=s[i]


    代码如下:

    var f:array[0..1001,0..6000]of longint;
        w,s:array[0..1001]of longint;
        i,j,ans,n:longint;
    
    function max(a,b:longint):longint;
    begin
      if a>b then exit(a) else exit(b);
    end;
    
    procedure dp;
    var
      i,j,ans:longint;
    begin
      f[n,w[n]]:=1;
      for i:=n-1 downto 1 do
        begin
          f[i]:=f[i+1];
          for j:=0 to s[i] do
            f[i,j+w[i]]:=max(f[i+1,j]+1,f[i,j+w[i]]);
        end;
      ans:=0;
      for i:=0 to 6000 do if f[1,i]>ans then ans:=f[1,i];
      writeln(ans);
    end;
    
    begin
      readln(n);
      for i:=1 to n do read(w[i],s[i]);
      dp;
    end.
  • 相关阅读:
    使用Areas分离ASP.NET MVC项目
    将json转化为model
    简单的三层asp.net webForm使用Ninject实现Ioc
    本机连接虚拟机Oracle时报错的解决办法
    老电脑升级
    安装Oracle时选择桌面类和服务器类的区别
    64位操作系统下启用32位模式
    log4net在WinForm和ASP.net下的设置
    Delphi2009下编译提示“无法找到“Excel_TLB”
    Delphi 中的MD5实现方法(转)
  • 原文地址:https://www.cnblogs.com/Comfortable/p/8412374.html
Copyright © 2011-2022 走看看