Погрешность вычисления |
Погрешность вычисления |
kosyak |
18.06.2008 0:11
Сообщение
#1
|
|||
Пионер Группа: Пользователи Сообщений: 100 Пол: Мужской Репутация: 0 |
Прошу прощение, если тема не в том разделе и может об этом было уже сказано (я не нашел)
Кто-нибудь может объяснить, почему так? Код program pr; var i: real; begin i:=0; while i<=1 do begin writeln(i); i:=i+0.1; end; writeln(i); readln; end. По всем правилам программа последним числом должна вывести 1,1... Но нет!! Она выводит 1.... Причем Delphi при аналогичном коде выводит правильно: Код procedure TForm1.Button1Click(Sender: TObject); var i: real; begin i:=0; while i<=1 do begin memo1.Lines.Add(floattostr(i)); i:=i+0.1; end; memo1.Lines.Add(floattostr(i)); end;
|
|||
Текстовая версия | 29.04.2024 20:26 |