[reizer]

delphi XE
возникло затруднение с расчетом квадратного корня )) , вообщем код такой

Код:

var
d, d3: extended;
begin
    d3:=49;
    d := sqrt(d3);
    if d=7 then
      begin
        d3:=50;
      end;
end;

бывает получается после расчета квадратного корня, что d<>7,
а если d=7, то d3<>50 .

хм. пока писал нашёл ответ.
переменные были объявлены локально, объявив их глобально все стало на свои места. правда истинной причины не ведаю.