vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/26 01:22:53
![vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.](/uploads/image/z/5530685-5-5.jpg?t=vb%E7%BC%96%E7%A8%8B%2C%E6%AD%A5%E9%AA%A4%E8%AF%A6%E8%A7%A3%E6%9C%89%E4%B8%80%E6%A0%B9%E9%95%BF%E5%BA%A6%E4%B8%BA546%E7%B1%B3%E7%9A%84%E9%92%A2%E6%9D%90%E6%96%99%2C%E8%A6%81%E5%B0%86%E5%AE%83%E6%88%AA%E5%8F%96%E6%88%90%E4%B8%A4%E7%A7%8D%E8%A7%84%E6%A0%BCa%E3%80%81b%E7%9A%84%E9%95%BF%E5%BA%A6%E5%88%86%E5%88%AB%E4%B8%BA19%E7%B1%B3%E5%92%8C28%E7%B1%B3%E7%9A%84%E7%9F%AD%E6%96%99%2C%E6%AF%8F%E7%A7%8D%E8%87%B3%E5%B0%911%E6%AE%B5%2C%E9%97%AE%E5%88%86%E9%9A%94%E6%88%90a%2Cb%E5%90%84%E5%A4%9A%E5%B0%91%E6%AE%B5%E5%90%8E%2C%E5%89%A9%E4%BD%99%E7%9A%84%E6%AE%8B%E6%96%99r%E6%9C%80%E5%B0%91%3F%E7%BC%96%E7%A8%8B%E8%A7%A3%E5%86%B3%E6%AD%A4%E8%AE%A1%E7%AE%97%E9%97%AE%E9%A2%98.)
vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
vb编程,步骤详解
有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
Dim p As Integer, q As Integer
Dim i As Integer, j As Integer,n as integer
'有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,
'每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
For i = 1 To Int(546 / 19)
' For j = 2 To Int(546 / 28)
If (546 - 19 * i) Mod 28 < (546 - 19 * (i - 1)) Mod 28 Then
p = i: q = (546 - 19 * i) / 28
End If
n=546-19*p-28*q
'Next
Next
Print p, q,n '输出 27 1 5