Все равно не выходит
Сначала сделал так :
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
то вообще виснет. В чем может быть проблема ?