7公斤米,50克砝码,200克砝码各一个,称1350克米问最少要多少次,并编程回答.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/21 19:38:25
7公斤米,50克砝码,200克砝码各一个,称1350克米问最少要多少次,并编程回答.
Private Sub Form_Load()
Dim i, j, a(), b(), x
For i = 0 To Int(7000 / 50)
For j = 0 To Int(7000 / 200)
If i * 50 + j * 200 = 7000 Then
x = x + 1
ReDim Preserve a(x)
ReDim Preserve b(x)
a(x) = i
b(x) = j
End If
Next j
Next i
i = a(1)
j = b(1)
Print "7公斤米共有" & x & "种组合:"
For x = 1 To UBound(a)
Print "50克砝码称" & a(x) & "次,200克砝码称" & b(x) & "次"
If (i + j) > (a(x) + b(x)) Then i = a(x): j = b(x)
Next x
Print "最少要50克砝码称"; i & "次,200克砝码称" & j & "次"
End Sub
Dim i, j, a(), b(), x
For i = 0 To Int(7000 / 50)
For j = 0 To Int(7000 / 200)
If i * 50 + j * 200 = 7000 Then
x = x + 1
ReDim Preserve a(x)
ReDim Preserve b(x)
a(x) = i
b(x) = j
End If
Next j
Next i
i = a(1)
j = b(1)
Print "7公斤米共有" & x & "种组合:"
For x = 1 To UBound(a)
Print "50克砝码称" & a(x) & "次,200克砝码称" & b(x) & "次"
If (i + j) > (a(x) + b(x)) Then i = a(x): j = b(x)
Next x
Print "最少要50克砝码称"; i & "次,200克砝码称" & j & "次"
End Sub
脑筋急转弯:现有米9公斤,50克、200克砝码各一个,怎么分三次称出7公斤米?
有一架天平,只有5g和35g的砝码各一个,现在要把300克的盐三等分,最少需要用天平称多少次?
淘宝研发笔试:有7公斤大米,50克和200克砝码各一个,用几次可以称出1350克大米
有米9公斤,50克和200克砝码各一个,怎样在天平上称量三次称出2公斤米
现有米9公斤以及50克和200克的砝码各一个.问怎样在天平上只称量三次而称出2公斤米?
现有9公斤大米以及50克和200克的砝码各一个.问怎样在天平上只称量三次而称出2公斤大米?
一堆米,有砝码有9公斤,20克,500克各一个,称三次,如何称出2公斤米?
一个托盘天平和若干砝码,要求天平称出1至31克的所有整数克,砝码只能放在一边,最少需要哪几个重量砝码
一架天秤有10克.20克和50克砝码各一个用三个砝码怎样称出100克花生
有一架天平,只有5g和35g砝码各一个,现在要把300克盐分成三等份,问最少需要用天平称几次
有9公斤大米以及200克的砝码一个.问怎样在天平上只称量三次而称出2公斤大米?
现有10克砝码一个,20克砝码两个,50克一个,100克两个,200克一个,称质量为275克的物体加减砝码最合理的