Глюк?

← →
Lamer6666 (2008-11-19 00:13) [0]

Не пойму в чем проблема?
procedure TForm1.Button1Click(Sender: TObject); var X1,Step1,a:Double;Sy:String; begin a:=2.3; X1:=0.2; step1:=0.2; while X1<=8 do begin Memo1.Lines.Add("x="+FloatToStr(X1)); X1:=X1+step1; end; end;

Результат:
...............
x=7; y=
x=7,2; y=
x=7,4; y=
x=7,6; y=
x=7,8; y=
Куда x=8 девается??

← →
Anatoly Podgoretsky © (2008-11-19 00:18) [1]

> Lamer6666 (19.11.2008 0:13:00) [0]

Потому что 0,2 невозможно точно представить в машинном виде.

← →
DOjD (2008-11-19 00:19) [2]

> Потому что 0,2 невозможно точно представить в машинном виде.

Что делать тогда? :(

← →
{RASkov} © (2008-11-19 00:27) [3]

> [2] DOjD (19.11.08 00:19)

Рядом где-то ветка про сравнение вещественных чисел...

← →
{RASkov} © (2008-11-19 00:32) [4]

т.е. в прочих:
http://delphimaster.net/view/15-1226891927/
тоже не долеко :)

← →
Lamer6666 (2008-11-19 00:39) [5]

> {RASkov} © (19.11.08 00:32) [4]

Спасиб, читаю!

← →
Германн © (2008-11-19 00:43) [6]

> Что делать тогда? :(

Читать:
1. http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374
2. По ссылке, которую дал {RASkov} © (19.11.08 00:32) [4]

Переделать цикл с учётом прочитанного и понятого. И с учётом самой задачи. Ибо не может быть такой реальной т.е. физической задачи, где точно указывалось бы вещественное число, которое нужно получить в результате!

← →
Anatoly Podgoretsky © (2008-11-19 07:43) [7]

> Германн (19.11.2008 0:43:06) [6]

Может - это проверку знаний в университете.
Не стоит забывать, что сейчас большинство вопросов, это не помощь в прямом виде, а решение этих задач как халява.

В вашем случае правильнее всего перейти к циклу с целым числом:

procedure TForm1.Button1Click(Sender: TObject); var X1, Step1, a: Double; Sy: String; I: Integer; begin a:=2.3; step1:=0.2; for I := 1 to 40 do begin X1 := step1 * I; Memo1.Lines.Add("x="+FloatToStr(X1)); end; end;

> Что делать тогда? :(

- выбирать адекватную единицу измерения
var X1,Step1,a:integer;Sy:String; begin a:=2300; X1:=200; step1:=200; while X1<=8000 do begin Memo1.Lines.Add("x="+FloatToStr(X1/1000)); X1:=X1+step1; end; end;

есть еще встроенный тип Currency

Глюк? Найти похожие ветки