[reizer]

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

Код:

1 2 3 4 5 6 7 8 9 10

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 .

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