編程題目（分割鉛塊）

海貍先生

有一40千克的鉛塊，把它分成4塊（每塊為整數(shù)重量），用這4塊鉛塊作為天平稱的砝碼，可以稱出1----40千克任何重量（整數(shù)重量）的物體，問：如何分割？

注意：

1.天平兩邊都可以放砝碼。

2.以上所有的數(shù)值均為整數(shù)，而不是小數(shù)。

3.一次性稱出重量，而不能分步稱出，然后求其總和。

tmtony

我有些暈

Trynew

Public Sub Test()

Dim a As Integer, b As Integer, c As Integer, d As Integer, i As Integer

For a = 1 To 40: For b = a To 40: For c = b To 40: For d = c To 40

  If a + b + c + d = 40 Then

    For i = 1 To 39

        If CheckNum(i, a, b, c, d) = False Then Exit For

    Next

    If i = 40 Then Debug.Print a & "," & b & "," & c & "," & d

  End If

Next: Next: Next: Next

End SubPublic Function CheckNum(Num As Integer, w As Integer, x As Integer, y As Integer, z As Integer) As Boolean

For a = -1 To 1: For b = -1 To 1: For c = -1 To 1: For d = -1 To 1

  If a * w + b * x + c * y + d * z = Num Then

    CheckNum = True

    Exit Function

  End If

Next: Next: Next: Next

End Function

答案是：1,3,9,27（跟我用心算的結(jié)果一樣，并且是唯一解 :）

海貍先生

可以簡化一下a肯定等于1，d 肯定等于　40-1-b-cPublic Sub Test()

Dim b As Integer, c As Integer, i As Integer

For b = 1 To 37

   For c = b To 37

      For i = 1 To 39

         If CheckNum(i, b, c) = False Then Exit For

      Next

      If i = 40 Then Debug.Print "1," & b & "," & c & "," & 40 - 1 - b - c

   Next

Next

End SubPublic Function CheckNum(Num As Integer, x As Integer, y As Integer) As Boolean

For a = -1 To 1

   For b = -1 To 1

      For c = -1 To 1

         For d = -1 To 1

            If a + b * x + c * y + d * (40 - 1 - x - y) = Num Then

               CheckNum = True

               Exit Function

            End If

         Next

      Next

   Next

Next

End Function