[Solvinder]

Уважаемые товарищи. Бьюсь второй день над такой проблемой. Пришлось писать вот такой изврат.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
x:array[0..7] of real;
y:array[0..7] of real;
f:array[0..6] of real;
g:array[0..6] of real;
j,i:Integer;
lp,sum1,xmin,xmax,l,k,l1,k1:real;
begin
l:=100000;
k:=-99999;
l1:=100000;
k1:=-99999;
for i:=0 to 7 do
begin
x[i]:=StrToFloat(StringGrid1.Cells[0,i+1]);
if x[i]<l then l:=x[i];
if x[i]>k then k:=x[i];
end;
for i:=0 to 7 do
y[i]:=StrToFloat(StringGrid1.Cells[1,i+1]);
for i:=0 to 6 do
begin
f[i]:=StrToFloat(StringGrid2.Cells[0,1]);
if f[i]<l1 then l1:=f[i];
if f[i]>k1 then k1:=f[i];
end;
for i:=0 to 6 do
g[i]:=StrToFloat(StringGrid2.Cells[1,1]);
if l<=l1 then xmin:=l else xmin:=l1;
if k>=k1 then xmax:=k else xmax:=k1;
lp:=xmin;
i:=0;
j:=0;
sum1:=0;
repeat
form2.Memo1.Lines.Add(FloatToStr(lp));
if lp=x[i] then
begin
ShowMessage('YES');
sum1:=sum1+y[i];
i:=i+1;
end;
form2.Memo2.Lines.Add(FloatToStr(sum1));
lp:=lp+0.1;
until lp>xmax;
Form2.ShowModal;
end;

Админ: Учимся оформлять код!

Вобщем смысл задачи таков. Из стрингридов заполняются 4 массива, потом по данным этих массивов выводятся координаты двух линии, это особо не важно. Суть проблемы. В том месте которое выделил красным не срабатывает условие на 3 раз, то есть происходит все следующим образом: в поставленной аналитической задаче x[0]=9,8 а следовательно xmin=9,8, т.е lp соответственно тоже 9,8 и первых вход в условие происходит отлично; Далее x[1]=10,2 и когда lp приращением на 0,1 доходит до значения 10,2 то условие срабатывает на ура и второй раз, далее x[2]=10,6 и когда lp опять же путем приращения доходит до 10,6 оно не срабатывает и соответственно дальше оно тоже не срабатывает.
Пробовал с другой аналитикой(цифрами) опять же не срабатывает. Что тут не так? very need your help pls.
P.S. Сорри за код всей процедуры, но выложил все, ошибку найти не могу сам второй день.