[SpectraL]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c: double;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  a := 212.53;
  b := 212.49;
  c := a - b;
  showmessage(floattostr(c));
end;

end.

Результатом "a-b" является 0.039999999999992. Что можно сделать чтобы переменной "c" присваивалось правильное значение (0.04)?

[NumLock]

Код:

a,b,c: Currency;

[SpectraL]

Спасибо конешно за вариант, но а если "а" будет равно 212.4556565, а "b" будет равно 212.343676676?

[SpectraL]

Т.о. результатом "a-b" будет 0.111979824000002, а нужно 0.111979824.

[NIch]

Непонятно, то ты округляешь до 0,04 (3-го знака), то до 0.111979824 (9-го знака). Тогда уж или 0.039999999 или 0.112.
Напиши свою функцию округления и не парься.

[SpectraL]

подразумевается что под "a" и "b" могут быть любые числа, а результат операции должен быть правильным... Для этого я должен написать свою функцию, а Delphi этого не предоставляет?

[angvelem]

Это не Дельфи предоставляет, это суть вещественных чисел как их представляет процессор. Попробуй взять 1/3, что получится - бесконечная дробь, точного результата никогда не получишь, только приближённый.

[NIch]

Есть готовая функция

Код:

function RoundEx(chislo: double; Precision: Integer): string;
var
  ChisloInStr: string;
  ChisloInCurr: currency;
begin
  ChisloInCurr := chislo;
  Str(ChisloInCurr: 20: Precision, ChisloInStr);
  ChisloInStr[Pos('.', ChisloInStr)] := ',';
  RoundEx := Trim(ChisloInStr);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := RoundEx(StrToFloat(Edit1.Text), 2);
end;

http://www.delphisources.ru/pages/faq/base/round_n.html
ну или тут
http://www.delphisources.ru/pages/fa...d_numbers.html

[SpectraL]

да, я в курсе что вещественные числа проблемно хранить в памяти сегодняшних компьютеров и операции осуществляются с неверным результатом...
Как я понимаю в Delphi отсутствует функция округления до необходимой цифры дробной части числа?

[NIch]

Мне такая неизвестна
Если посмотреть библиотеки делфи, то они все состоят из подобных функций, написанных на том же паскале порой с использованием винапи или ассемблера.
Что стоит воткнуть свою...

[angvelem]

Чем RoundTo, SimpleRoundTo не устраивает?

[SpectraL]

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

Чем RoundTo, SimpleRoundTo не устраивает?

Спасибо, не знал о существовании таковых...

[SpectraL]

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

Есть готовая функция

Спасибо, посмотрю...

[SpectraL]

Результатом операции "a-b" является тип extended. При преобразовании типа extended в тип double ("c := a - b;") получаются такие неверные результаты. Поэтому лучшим решением нахожу сделать переменные "a, b и c" типом extended:

a, b, c: extended;

Однако, несмотря на то что

showmessage(c);

выводит правильный результат (0.04), условие

if c = 0.04 then showmessage('yes');

не выполняется. В таком случае помогает использование

c := strtofloat(floattostr(a - b));

Почему при showmessage, выводящем 0.04, не выполняется условие "if с = 0.04"? Нет ли более эффективного способа "обновить" значение 0.04 (strtofloat(floattostr(a - b)))?

[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
красная строчка тебе в помощь!