История изменений
Исправление
Napilnik,
(текущая версия)
:
и чё?
И то. Ты хоть указывай, на каком компиляторе получил своё безобразие. Потому что у тебя в выводе последнего числа наблюдается 2 лишних знака, баг какой-то, который фиксить надо, если версия свежая. У меня, на fpc 2.6.4 выхлоп такой:
$ ./z2
FloatToStr(x) = 0.2
str(x, s) = 2.00000000000000E-001
x = 2.00000000000000E-001
FloatToStr(y) = 0.2
str(y, s) = 2.0000000000000000E-0001
y = 2.0000000000000000E-0001
0.2+0.1 = 3.00000000000000E-001
Исходная версия
Napilnik,
:
и чё?
И то. Ты хоть указывай, на каком компиляторе получил своё безобразие. Потому что у тебя в выводе последнего числа наблюдается 2 лишних знака, баг какой-то, который фиксить надо, если версия свежая. У меня, на fpc 2.6.4 выхлоп такой:
$ ./z2
FloatToStr(x) = 0.2
str(x, s) = 2.00000000000000E-001
x = 2.00000000000000E-001
FloatToStr(y) = 0.2 str(y, s) = 2.0000000000000000E-0001 y = 2.0000000000000000E-0001
0.2+0.1 = 3.00000000000000E-001