題意

? 某港口有一批集裝箱，將其編號，分別為1至N。每一個箱子的外型尺寸都是一樣的，現在要將其中某些集裝箱疊放起來，集裝箱疊放的規則如下：
（1)每個集裝箱上最多只能直接疊放一個集裝箱。?

（2)編號較小的集裝箱不能放在編號較大的集裝箱之上。?

（3)每個集裝箱都給出了自身的重量和可承受的重量，每個集裝箱之上的所有集裝箱重量之和不得超過該集裝箱的可承受的重量。
? ?現在要求你編程，從中選出最多個集裝箱，使之在滿足以上條件的情況下疊放起來，即要求疊得盡可能地高。?

分析

w[i]表示第i個箱子的重量。

p[i]表示第i個箱子的承受重量。

f(i,j)表示前i個箱子中最多可選出f(i,j)個疊放，還可承受重量j。?

f(i,j)=Max{ f[i-1,j-w[i]]+1 ,f[i-1,j] }。

var
n,i,j,tj:longint;
w,p:array[0..1001]of longint;
f:array[0..1001,0..6000]of longint;


function max(x,y:longint):longint;
begin
? ? if x>y then exit(x) else exit(y);
end;


begin
? ? readln(n);
? ? for i:=1 to n do
? ? readln(w[i],p[i]);
? ? fillchar(f,sizeof(f),0);
? ? f[n,w[n]]:=1;
? ? for i:=n-1 downto 1 do
? ? begin
? ? ? ? f[i]:=f[i+1];
? ? ? ? for j:=0 to p[i] do
? ? ? ? f[i,j+w[i]]:=max(f[i+1,j]+1,f[i,j+w[i]]);
? ? end;
? ? tj:=0;
? ? for i:=0 to 6000 do
? ? if f[1,i]>tj then tj:=f[1,i];
? ? write(tj);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500158.html

總結

以上是生活随笔為你收集整理的叠放箱子问题的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。