張三把所持有的1000個盤子分別裝在10個箱子裡，每個箱子分別裝進1、2、4、8、16、32、64、128、256、及489個盤子。張三將這些箱子依序標上1~10的號碼。有天，李四想找張三借N個盤子，張三知道每個箱子的編號與箱子內所放盤子的個數，但如何設計一個程式，在不拆開箱子重新組合盤子的情況下，告訴張三應拿出那些箱子給李四，才能得到李四要借的盤子數目呢？
輸入說明：每列中的數字代表要借的盤子數，當為0時表示結束。(請參照輸入範例)
輸入範圍：每列中的數字皆大於0，小於等於1000。
輸入範例：in.txt
717
329
0
第 3 頁/共 5 頁
輸出說明：每個數字代表箱子的編號，每個數字與數字間的區隔為一個空白符號，請由大到小排列。(請參照輸出範例)
輸出範例：out.txt
10 8 7 6 3
9 7 4 1
Dim mycount, ans As Integer
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
strr = Split("0 1 2 4 8 16 32 64 128 256 489", " ")
Do
Input #1, mycount
ans = 0
If mycount = 0 Then Exit Do
For i = 10 To 1 Step -1
If ans + strr(i) <= mycount Then ans = ans + strr(i): Print #2, i;
If ans = mycount Then Exit For
Next
Print #2,
Loop
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
x = Split("1、2、4、8、16、32、64、128、256、489", "、")
Do
Input #1, n
If n = 0 Then Exit Do
For i = 9 To 0 Step -1
If n >= Val(x(i)) Then n = n - Val(x(i)): Print #2, i + 1;
If n = 0 Then Exit For
Next
Print #2, ""
Loop
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do
Input #1, x
If x = 0 Then Exit Do
t = Split("1 2 4 8 16 32 64 128 256 489", " ")
For i = 9 To 0 Step -1
If x >= Val(t(i)) + s Then s = s + Val(t(i)): Print #2, i + 1
If x = s Then Exit For
Next
Loop
Close
Close
End
End Sub