Огромное спасибо, все вышло! А можно еще вопрос. Код:
PHP код:
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;
Ошибка в расчете выражения для массива.
Это продолжение кода. На сколько я понял проблема в том что недопустимая операция с массивом a[i] что можно здесь сделать ?