[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. Сорри за код всей процедуры, но выложил все, ошибку найти не могу сам второй день.

[lmikle]

вообще, как известно, типы extended, double и, соответсвенно, алиас real и ему подобные не является ТОЧНЫМ типом, т.е. там значение может "чуть-чуть" отличаться от того, которое отображается при выводе (и, соответсвенно, от того, которое было помещено в переменную).

Решение данной проблемы обычно таково:
Вариант 1. Использовать типы с фиксированной точкой. Для твоих значений за глаза хватит типа Currency (4 знака после точки).
Вариант 2. Сравнивать не на равно, а на попадание в диапазон:

Код:

const
  Epsln = 0.03; // для шага 0.1 достаточно.

var
  A, B : Double;

begin
  A := 0.3;
  B := A + 0.00001; // при выводе %1.1f будет тоже 0.3

  If A = B 
    Then ShowMessage(' = True')
     Else ShowMessage(' = False');

  If Abs(A-B) < Epsln 
    Then ShowMessage(' == True')
     Else ShowMessage(' == False');
end;

[Thrasher]

Переводить в строку через функцию FloatToStrF и сравнивать.