[woc131]

Все равно не выходит
Сначала сделал так :

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
const step=0.0001;
var a1,a2,a3,a4,a5:extended;
begin
i:=1;
    a1:=c1/l1;
    a2:=с2*с2*sin(a[i])*sin(a[i]);     //no
    a3:=b2*b2*cos(a[i])*cos(a[i]);   //ne
    obr:=Round((a1+(b2*с2/sqrt(a2+a3))/l2)*10000 / 10000) ;    

  repeat

  if ((obr+step) >= g) and ((obr-step) <= g) then   // g:=1.1107
     found := TRUE

    else
      i := i + 1; 


пишет что не находит ничего, хотя ясно что он просто видит допустим два числа 1,1111 и 1,1111 и не опознает их как идентичные. Подумал что просто массив а пустой , хотя я его заполняю из stringgrid :

PHP код:

a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],1); 


но если изменить код :

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
const step=0.0001;
var a1,a2,a3,a4,a5:extended;
begin
for i:=1 to 62799 do


  repeat
     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) ;   
    statictext5.Caption:='= '+ floattostr(obr);
  if ((obr+step) >= g) and ((obr-step) <= g) then  // g:=1,1107
      found := TRUE 


то вообще виснет. В чем может быть проблема ?