(a + 1) 恆 大於 a ???

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-24 20:32 | 只看該作者

(a + 1) 恆大於 a ???

在數學上

(a + 1) 恆大於 a ,
但是，任何電腦語言，包刮 VBA

以下的程式設計片段

double a, b, c;

a= 1.23;
b= a + 1;

while (b > a) do begin
a= a*1.001;
b= a + 1;

end;
// b <= a, ???
print a, b

// why????

樓主熱帖

天下為公

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

2^#

發表於 2013-10-24 22:19 | 只看該作者

回復 1# sjgau

:o 想知道爲什麼. 請解說.

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

3^#

發表於 2013-10-25 10:35 | 只看該作者

回復 2# sunnyso

請賜教. 為什麼呢? 很想知道.

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

4^#

發表於 2013-10-25 11:02 | 只看該作者

Sub test1052()
Dim a As Single, b As Single
a = 1.23
b = a + 1
' b > a
While (b > a)
a = a * 1.001
b = a + 1
Wend
' b < a, why???
Cells(3, 1) = a
Cells(4, 1) = b
' a= b= 16781740, why???
MsgBox ("Done!")
End Sub

複製代碼

天下為公

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

5^#

發表於 2013-10-25 11:04 | 只看該作者

回復 3# sunnyso

因為，single 的福點數是四個byte, 32個bits,
使用 23個 bits 表示數字的精確度，

2^23 --> no
把 0.5 到 1.0 切割成為 no 等分，
所以，精確度就是 1/no

天下為公

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

6^#

發表於 2013-10-25 11:07 | 只看該作者

Sub test1052()
Dim a As Double, b As Double
a = 1.23
b = a + 1
' b > a

While (b > a)
a = a * 1.001
b = a + 1
Wend
' b < a, why???

Cells(3, 1) = a
Cells(4, 1) = b
' a= b= 9.01577E+15, why???

MsgBox ("Done!")
End Sub

天下為公