[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 этого не предоставляет?