[icWasya]

Сообщение от NumLock

SpectraL, так еще прикольней:

Код:

var
  a, b, c: Extended;
begin
  a:=212.53;
  b:=212.49;
  c:=a-b;
  Edit1.Text:=FloatToStr(c);
  Edit2.Text:=FloatToStr(0.04-c);
  if Abs(c-0.04)<1E-9 then ShowMessage('c=0.04');
end;

Edit1 = 0,04, а вот Edit2 = 6,105413483809E-18
красная строчка тебе в помощь!

Да, но выбирать Epsilon нужно с учётом требуемой точности.
Если человеку надо два знака после запятой, то и сравнивать надо не с 1E-9, а с 1E-2 или, на худой конец с 1E-3

[NumLock]

Сообщение от icWasya

выбирать Epsilon нужно с учётом требуемой точности.

естественно. я же не зря привел значение Edit2 = 6,105413483809E-18, а в сравнении E-9, дабы показать, что это не панацея и есть возможность выбора, ага)

[SpectraL]

а я хочу чтобы переменной "с" присваивался наиболее правильный результат...

[angvelem]

А что, с точки зрения вещественных чисел в компьютере, более правильный результат?

[SpectraL]

По видимому тот, что соответствует строковому представлению числа.

[angvelem]

Тогда вам сюда, там в разделе Дельфи имеется большой топик с обсуждениями на эту тему и внятно обьясняется почему Вашим желаниям не суждено сбыться и как это обойти.

[SpectraL]

Вы бы есчо ссылку на Google дали...

[angvelem]

Сообщение от angvelem

... там в разделе Дельфи ...

Я указал в каком разделе искать, поиск работает нормально или мне поискать за вас? Я не помню ссылку так как видел достаточно давно.
P.S. Можно и в Google поискать.

[SpectraL]

Да, поисчите пожалуйста...

[Ildar-tsr]

Ребят, а что вы тут за дискуссию развернули???

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: Double;
begin
  a:=212.53;
  b:=212.49;
  c:=a-b;
  c := round(c * 100 + 0.5) / 100;
  showmessage(floattostr(c));
end;

[NumLock]

Сообщение от Ildar-tsr

Ребят, а что вы тут за дискуссию развернули???

потому что:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  a, b, c: Double;
begin
  a:=212.053;
  b:=212.049;
  c:=a-b;
  c := round(c * 100 + 0.5) / 100;
  showmessage(floattostr(c));
end;

будет равно 0,01 а не 0,004

[Ildar-tsr]

Достаточно вместо 100 подставить переменную, и вычислять максимальное количество знаков после запятой (у "a" и "b"). Циклом довести данную переменную до нужной цифры. Т.е. если после запятой одна цифра, то будет 10, если две - 100, три - 1000 и т.д.

[NumLock]

Ildar-tsr:

function IntPower(const Base: Extended; const Exponent: Integer): Extended;

Код:

unit Math;

function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  Result := Round(AValue / LFactor) * LFactor;
end;

function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;

--

Код:

uses
  UMathServices,

  Memo1.Lines.Add(ulSub('212.53', '212.49'));
  Memo1.Lines.Add(ulSub('212.053', '212.049'));
  Memo1.Lines.Add(ulSub('212.4556565', '212.343676676'));