Кто-нибудь может объяснить, почему так?
Код
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;
М | Название темы отредактировано. |