Stringgrid. Заполнение)))

[Anna-anna]

Всем доброго времени суток!!)
У меня проблема..
Должна выводиться таблица со значениями х и у для определенной функции,в данном случае для A*arcsin(k*d) .
Заполняет таблицу не всеми значениями, последние значения х (который должен быть равен 1) и у не записывает. Помогите пожалуйста, в чем ошибка??




....
with form2.StringGrid1 do
begin

if form1.ComboBox1.ItemIndex=0 then //выбирала функцию с первой формы
begin
d:=xmi; //d := минимальное значение по оси ох (задается с клавиатуры)
j:=1;
while d<=xma do
begin
y:=k*d;
if (y>=-1) and (y<=1) then
begin
str(d:2:3,s);
Cells[j,0]:=s;
z:=A*arcsin(y);
str(z:2:3,s1);
Cells[j,1]:=s1;
inc(j);
end;
d:=d+0.1 ;
end;
colcount:=j;
end;
...

[evg_m]

0.1 в двоичном представлении совсем не такое короткое число и имеет погрешность представления из-за которой
0.1(0.10001)+0.1(0.10001) <> 0.2(0.20001).
Здесь в скобках даны как бы те числа которыми будет пользоваться компьютер взамен тех что указываем мы.
Для исключения этого попробуй
while d<=xma+0.1/2 do
0.1/2 это половина твоего шага приращения(можно взять и четверть, и десятую).

[Anna-anna]

Спасибо большое за ответ, но к сожалению это не помогло...