內容 ：
某工廠生產4種正立方體產品，邊長分別為1,2,3,4公分，該工廠的包裝箱為4*4*4公分(不計算包裝箱厚度)，現在有若干筆訂單，每一筆訂購單可能包括各種產品但數量可能不同，請計算每一筆訂購最少各需要多少的包裝箱。
輸入說明 ：
每行是一筆訂購單，由四個整數組成，每個整數以一個空白間格，依序分別代表邊長1,2,3,4公分的產品數量，每一個數量均為不大於20000的非負整數，以一個空白隔開。
輸出說明 ：
輸出各筆訂購的最少包裝箱數目，每一筆一行。
範例輸入 ：
5 4 8 2
12 14 32 7
範例輸出 ：
11
41
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 While Not EOF(1)
ans = 0
Input #1, w, x, y, z
If z > 0 Then ans = ans + z
If y > 0 Then
ans = ans + y
w = w - (y * 37)
End If
If x Mod 8 = 0 Then
ans = ans + x \ 8
Else
ans = ans + ((x * 8) \ 64) + 1
If w > 0 Then w = w - (64 - (x Mod 8) * 8)
End If
If w > 0 Then
ans = ans + (w \ 64)
If w Mod 64 <> 0 Then ans = ans + 1
End If
Print #2, ans
Loop
Close
Close
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 While Not EOF(1)
Input #1, a, b, c, d
All = Val(a) * 1 + Val(b) * 2 + Val(c) * 3 + Val(d) * 4
ans = All \ 4
Print #2, ans
Loop
Close #2
Close #1
End
End Sub