Странность в цикле while

[Dry]

Вообщем есть такой простой код:

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = 1

Do While x <= 1.3
y = x + 2
Print Round(y, 3)
x = x + 0.1
Loop
End Sub

На сколько я понимаю он должен вывести на экран 4 значения y, но выводит только 3, как будто x=1.3 не входит в x<=1.3! Почему так происходит? Или я что то непойму?

[Хакер]

Не входит. Действительно.

Поставь на выходе

Код: Выделить всё

MsgBox x - 1.3

и посмотри, насколько x больше числа 1.3 .

[Dry]

Теперь вообще не пойму как так происходит! Если пишу MsgBox x то выдает 1.3, а MsgBox x - 1.3 выдает разницу на "2,22044604925031E-16" почему такое происходит? и как от этого избавится, что бы мне выдало 4 моих значения!

[Matew]

Dry, это ошибка округления. Просто прибавляй к верхней гранцие цикла число, равное, скажем, половине шага цикла.

[Dry]

Всем спасибо за ответы, я вроде понял Но меня все равно удивляет Msgbox 1.3-(1+0.3)

[alibek]

Вещественные числа нельзя сравнивать на равенство.
Только так: (a1-a2)<e