Мантисса и порядок

[Prof]

Коллеги, подскажите!
Существуют ли библиотечные функции извлечения из
числа real его мантиссы и порядка?

[iskander]

По основанию 2 - Frexp в модуле Math.

[absdjfh]

В этом модуле она описана так:

Код: Выделить всё

procedure Frexp(X: float; var Mantissa: float; var Exponent: integer);
begin
  Exponent:=0;
  if (X<>0) then
    if (abs(X)<0.5) then
      repeat
        X:=X*2;
        Dec(Exponent);
      until (abs(X)>=0.5)
    else
      while (abs(X)>=1) do
        begin
        X:=X/2;
        Inc(Exponent);
        end;
  Mantissa:=X;
end;

Объясните логику этого алгоритма...

[Prof]

Забавно, но не серьезно.