Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Const epsilon

Автор: ACMilian 25.9.2006, 09:03

Здраствуйте. Как можно в этом цикле:

Код


While v <= v1 do
    begin
     New(i3);
     i3^.v := FloatToStr(v);
     i3^.hmm := IntToStr(hmm);
     GCalList.Add( i3 );
     v := v + hv;
     hmm := hmm + hhmm;
     end;

использовать epsilon, чотбы в последнем шаге, когда v=v1(навожу курсор, то показывает, что и там и там одно и тоже число 0.0123), оно, действительно, было бы равным и цикл завершался правильно.

Автор: Alexeis 25.9.2006, 09:25

Код


While abs(v - v1) < eps do

Автор: ACMilian 25.9.2006, 09:32

спасибо. работает.