如果将一个长50厘米宽30厘米高20厘米的礼盒包装起来,至少需要多少包装纸,不考虑接头 财富值1

2016-03-30 15:03发布

7条回答

var  
h:array [1..2,1..20] of integer;  
hn:integer;  
procedure init;  
var i:integer;  
begin  
fillchar(h,sizeof(h),0);  
hn:=0;  
repeat  
inc(hn);  
read(h[1,hn])  
until eof;  
end;  
procedure doit;  
var i,j,n:integer;  
begin  
for i:=1 to 20 do h[2,i]:=1;  
n:=1;  
for i:=hn-1 downto 1 do  
begin  
for j:=i+1 to hn do  
if (h[1,i]>=h[1,j]) and (h[2,i]<h[2,j]+1)  
then h[2,i]:=h[2,j]+1;  
if n<h[2,i] then n:=h[2,i];  
end;  
writeln(n);  
end;  
begin  
init;  
doit;  
end.

应该是 (50*30+50*20+30*20)*2=6200平方厘米

看你怎么包装,有专业的包装纸

C.CCH - 亲爱滴:习惯依偎着.ň
4楼-- · 2016-03-30 21:03

50×30×2+30×20×2+20×50×2=6200

(50乘30+50乘20+30乘20)乘2=620

表面积

(50x30+50x20+30x20)x2

=(1500+1000+600)x2

=3100x2

=6200平方厘米

求表面积。

50×30×2+50×20×2+30×20×2

=3000+2000+1200

=6200平方厘米

答:需要6200平方厘米的包装纸。

一周热门 更多>