[hypertigr]

Помогите пожалуйста досканально понять следующий факт

Код:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, math;

procedure proc;
var a,b,c,d:double;
begin
  a:=0.1;
  b:=5;
  c:=floor(b/0.1);
  d:=floor(b/a);
  writeln(c);
  writeln(d);
end;

begin
  proc;
  readln;
end.

результат:
5.00000000000000E+0001
4.90000000000000E+0001

почему c=50, а d=49 ?

(компилятор turbo delphi 2006)
Заранее всем спасибо!

[NumLock]

все начинается с этого:

Код:

program Project1;

{$APPTYPE CONSOLE}

var
  a: Double;

begin
  a:=0.1;
  if 0.1=a then Writeln('Okay') else Writeln('Oops');
  Writeln(0.1-a);
  Readln;
end.

Oops
-5.54975987041018E-0018

[hypertigr]

Я понимаю что сравивать два вещественных числа = "тыкать пальцем в небо". Ошибку свою понял но несовсем.
Как я понял делфи считает что 5/0,1<50
Интересно как она называется и охото узнать правила недопущения подобных ошибок, а также представление типа double в памяти.

Вот моя модификация

Код:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  math;

function myFloor(x:double):integer;
begin
  if x>0 then result:=trunc(x)
         else result:=trunc(x)-1;
end;

procedure proc;
var a,b:double;
    c,d:integer;
begin
  a:=0.1;
  b:=5;
  c:=myFloor(b/0.1);
  d:=myFloor(b/a);
  writeln(c);
  writeln(d);
end;

begin
  proc;
  readln;
end.

результат
50
50

Застрахован ли такой подход от аналогичной ошибки при других значениях?

[NumLock]

для сравнения вещественных чисел есть функция в Math:

Код:

function CompareValue(const A, B: Extended; Epsilon: Extended): TValueRelationship;
function CompareValue(const A, B: Double; Epsilon: Double): TValueRelationship;
function CompareValue(const A, B: Single; Epsilon: Single): TValueRelationship;

ей передаются 2 сравниваемых вещественных числа и величина погрешности Epsilon.

[AlexSku]

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

Ошибку свою понял но несовсем.

Дробное число представляется точно, если оно степень двойки, напр., 4, 2, 1, 1/2. Другие числа (напр., 5, 50, 1/10) будут всегда округлены разрядной сеткой (длина мантиссы). Так что лучше для округления до целого использовать round, а не floor (хотя всё зависит от задачи).