|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Не срабатываеет сравнение чисел
Уважаемые товарищи. Бьюсь второй день над такой проблемой. Пришлось писать вот такой изврат.
Код:
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. Сорри за код всей процедуры, но выложил все, ошибку найти не могу сам второй день. Последний раз редактировалось Admin, 28.04.2011 в 18:33. |
#2
|
|||
|
|||
вообще, как известно, типы 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; |
#3
|
||||
|
||||
Переводить в строку через функцию FloatToStrF и сравнивать.
Хорошо написанная программа не требует документации ICQ 9-184-668. |