內容 ：
拿氣溫來說，攝氏15度和攝氏15.05度的差距對人來說差異實在不大，有了數學概數的觀念，我們可以透過四捨五入法來得到一個數字的估計值，進而方便統計。
現在請你將一些小數利用程式來四捨五入。
現在請你將一些小數利用程式來四捨五入。
輸入說明 ：
共計三個測資點，每個測資檔中有多行小數n(-1<=n<=1)，至多小數點以下有100位數
輸出說明 ：
請輸出四捨五入至小數點以下第二位的結果
範例輸入 ：
1.00000
0.5
0.715
0.1234567890
-0.995
範例輸出 ：
1.00
0.50
0.72
0.12
-1.00
Public Sub Form_Load()
回覆刪除Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do Until EOF(1)
Line Input #1, x
step = Left(x, 5)
If step < 0 Then
step = Val(step) - 0.005
Else
step = Val(step) + 0.005
End If
step = Int(step * 100) / 100
Print #2, Format(step, "0.00")
Loop
Close #2
Close #1
End Sub
BY 阿揚
阿揚好，
回覆刪除這樣子解題，怪怪的吧。如果資料檔中有很大的數字呢?
12345.12345
會出錯吧。
老師 只介於 1 到 -1 之間@@
回覆刪除Dim Nq As Single, Num As Single
回覆刪除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, Nq
Num = Val(Mid(Nq, 1, 5))
If Num < 0 Then
Num = Int((Val(Mid(Nq, 1, 6)) - 0.005) * 100) / 100
Else
Num = Int((Num + 0.005) * 100) / 100
End If
Print #2, Format(Num, "0.00")
Loop
Close #2
Close #1
End
End Sub
BY 小白