問題敘述
蝸牛沿著竹竿底部往上爬，繳幾天可以爬到竹竿頂端呢？先看看以下的範例：
一隻蝸牛從6 公尺長的竹竿底部往上爬，已知這隻蝸牛從太陽出來到太岔下山可以往上爬3 公尺，太陽下山後到隔天太陽昇起前是蝸牛的休息時間，在這段休息時間內蝸牛會下滑1 公尺。而且，蝸牛的疲勞系為10 (%)，這表示從第二天開始，蝸牛每天都會少爬3 * 10 % = 0.3 公尺。請問蝸牛在第幾天以爬到竹竿頂端呢？
從下表可以看出這隻蝸牛在第三天可以爬到竹竿的頂端。天數起始高度可爬行距離累積高度下滑後高度
1 0.0 3.0 3.0 2.0
2 2.0 2.7 4.7 3.7
3 3.7 2.4 6.1
你的任務是找出蝸牛爬竿的通解，根據下列條件限制算出蝸牛在第幾天時可以順利爬到竹竿頂端或是失敗？
條件限制
1. 竹竿的高度介於6 ~ 100 公尺之間。
2. 第一天可以往上爬行的距離介於0 ~ 100 公尺之間。
3. 休息時下滑距離介於0 ~ 99 公尺之間。
4. 疲勞系數介於0 ~ 99 (%) 之間。
5. 爬行過程㆗如果下滑觸地 (高度<= 0)，則判定為失數(Fail)。
輸入檔格式
輸入檔可以是一個或是多個狀況，每行代表一個狀況。每行包含四個正整數 H、U、D 和F 各以一個空白隔開；當H = 0 時代表輸入檔的結束，否則H 代表竹竿的高度，U 代表第一天蝸牛可以爬行的距離，D 代表蝸牛休息時下滑的距離，F 代表疲勞係數。
輸出檔格式
對於每一個測試狀況，輸出檔都要輸出一行判斷蝸牛成功(success)或是失敗(fail)，以及這是發生在第幾天，格式如輸出範例。
輸入範例
6 3 1 10
10 2 1 50
12 6 3 10
0 0 0 0
輸出範例
success on day 3
fail on day 3
success on day 5
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, h, u, d, f
If h = 0 Then End
ans = 0
a = 0
Do
a = a + 1
ans = ans + u
u = u * (1 - (f / 100))
If ans >= h Then Print #2, "success on day" & a: Exit Do
ans = ans - d
If ans <= 0 Then Print #2, "fail on day" & a: Exit Do
Loop Until ans <= 0 Or ans >= h
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, h, u, d, f
u1 = u * (f / 100)
If h = 0 Then End
ans = 0
a = 0
Do
a = a + 1
ans = ans + u
u = u - u1
If ans >= h Then Print #2, "success on day" & a: Exit Do
ans = ans - d
If ans <= 0 Then Print #2, "fail on day" & a: Exit Do
Loop Until ans <= 0 Or ans >= h
Loop
Close
Close
End
End Sub