[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)
Заранее всем спасибо!