[woc131]

Спасибо, все ок, массив заполнен, но возникла следующая загвоздка - при операциях с массивом чтото не сходится. При подсчете значений син и кос - ошибка :

PHP код:

procedure TForm1.Button6Click(Sender: TObject);
 var a1,a2,a3,a4,a5:extended;
begin
  i:=1     ;
  found:=false;
   a1:=123456.111; // постоянная extended 
    repeat
    a2:=no2*no2*sin(a[i])*sin(a[i]); //вот здесь ошибка invalid floating point operation
    a3:=ne2*ne2*cos(a[i])*cos(a[i]);
    obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000) ;
 if g=obr        // g:=1.1175
 then
      found := TRUE
    else
      i := i + 1;


  until found=true; 


Ошибка скорее всего из-за a[i], но как тогда посчитать синусы при всех значениях a[i] ? Как это оформить ?