Переделал вот так
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. т.е. должно совпасть а выдает что нет совпадений... Почему так может быть?