关于数学问题,一张大板可以切多少个小板,废料多不多,请提供计算公式,长方形 正方形打个比方把,一张宽1220mm*长2440mm*厚3mm的铝板 要切成长230宽125厚3mm请问怎么计算一张大板能切几个这个小
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/26 15:48:09
关于数学问题,一张大板可以切多少个小板,废料多不多,请提供计算公式,长方形 正方形打个比方把,一张宽1220mm*长2440mm*厚3mm的铝板 要切成长230宽125厚3mm请问怎么计算一张大板能切几个这个小
关于数学问题,一张大板可以切多少个小板,废料多不多,请提供计算公式,长方形 正方形
打个比方把,一张宽1220mm*长2440mm*厚3mm的铝板 要切成长230宽125厚3mm请问怎么计算一张大板能切几个这个小板?剩下的废料多不多? 请写出公式,方便以后计算
或者加Q教我下非常感谢1093353851
关于数学问题,一张大板可以切多少个小板,废料多不多,请提供计算公式,长方形 正方形打个比方把,一张宽1220mm*长2440mm*厚3mm的铝板 要切成长230宽125厚3mm请问怎么计算一张大板能切几个这个小
计算裁成块数：大板面积（长*宽）/小板面积（长*宽）
注意：为了裁出最多块数,大板的长（或宽）尽量等于小板所有块数长的和（或宽的和）,以减少废料多.
结果：95
算法：
Private Sub Command1_Click()
Dim x, y, c As Integer
Dim a(1) As Integer
x = 1220
y = 2440
a(0) = 230
a(1) = 125
If (x Mod a(0)) * (y Mod a(1)) > (x Mod a(...
全部展开
结果：95
算法：
Private Sub Command1_Click()
Dim x, y, c As Integer
Dim a(1) As Integer
x = 1220
y = 2440
a(0) = 230
a(1) = 125
If (x Mod a(0)) * (y Mod a(1)) > (x Mod a(1)) * (y Mod a(0)) Then
c = (x \ a(1)) * (y \ a(0))
Else
c = (x \ a(0)) * (y \ a(1))
End If
MsgBox "最大能切" & c & "块"
End Sub
收起