Решение уравнения.массив

[SilAs]

Здравствуйте! Задачу не могу решить.Есть массив чисел (extended), есть уравнение, переменной является значение из массива. Другими словами, перебирая значения из массива смотрим, решается уравнение или нет.И в конце выводится значение из массива, которое удовлетворяет уравнению.
Код:

PHP код:

procedure TForm1.Button4Click(Sender: TObject);
var 
            a:array [0..360] of extended;     
            found: boolean; 
            i: integer; 
begin
  a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],0);       
  obr := no3/l3;
  found := FALSE; 
  i := 1;
end;  


procedure TForm1.Button5Click(Sender: TObject);
begin
  repeat
    if 
(no1/l1+
(ne2*no2/sqrt(no2*no2*sin(a[i])*sin(a[i])+ne2*ne2*cos(a[i])*cos(a[i])))/l2) = obr  then  // вот здесь при вычислении ошибка
      found := TRUE
    else
      i := i + 1;
  until found= TRUE;   //or (i > SIZE) ;

begin


    if found then
    ShowMessage('результат найден ')//+ IntToStr(i) +  + 'Поиск успешен.')

  else
    ShowMessage('результат не найден');

end; 


Ошибка при вычислении выражения. Что может быть не так? Все слагаемые в уравнении - extended.
Заранее спасибо

[RUSt88]

системный разделитель плавающих чисел не совпадает с тем, что ты вводишь
на русской раскладке он считается запятой, на англ - точкой

можно установить в программе сразу, не помню сейчас выражения


хотя, скорее всего проблема в другом, попробуй раздели на короткие команды все вычисления, и поймешь, где падает на пошаговой отладке

[SilAs]

Ошибка в button5click. я думаю, что ошибка изза того что в выражение подставляется массив a[i]. Но как тогда с ним работать ?
Если подставить в выражение конкретное число, то все считает.

[RUSt88]

Ошибка в button5click

ну ты жжошь :DDD

грю же, пройдись пошаговой отладкой!!!!

[SilAs]

Видимо я не совсем тебя понимаю. Пошаговая отладка для того чтобы выяснить в какой строке при какой операци ошибка ?

[RUSt88]

Пошаговая отладка для того чтобы выяснить в какой строке при какой операци ошибка ?

все верно, только длинное выражение раздели на короткие и поймешь, где рушится при каких условиях

[SilAs]

Переделал вот так

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
var a1,a2,a3,a4,a5:extended;
begin
    a1:=no1/l1;
    a2:=no2*no2*sin(a[i])*sin(a[i]);
    a3:=ne2*ne2*cos(a[i])*cos(a[i]);
    obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000);//округляем до 10000-ых.
  repeat
 if obr = g then  // g- константа =1,0000
      found := TRUE
    else
      i := i + 1;
begin
    if found then
    ShowMessage('совпадение есть')

  else
    ShowMessage('совпадения нет');
end; 


.Все работает, считает, перебирает. Но в конце выдает что совпадений нет... странно... вроде формат числа такой же - 0,0000 . а в массиве сам в ручную нашел значение 1,0000. т.е. должно совпасть а выдает что нет совпадений... Почему так может быть?

[SilAs]

Кто знает в чем может быть проблема ? Уже месяц бьюсь с этой программой О_о

[Пепел Феникса]

вещественные числа нельзя сравнивать по строгому равенству.
там может быть 0,99999999999999 или 1,0000000000001(образно говоря)
и это не равно 1,0

[SilAs]

А разве ROUND не переводит формат чисел типа 1,0000000001 в 1,0000 в приведенном коде ?