Delphi. Процедура Frexp( X: Extended; var Mantissa: Extended; var Exponent: Integer );

Процедура Frexp( X: Extended; var Mantissa: Extended; var Exponent: Integer );

Модуль: Math

Описание
Процедура возвращает мантиссу и экспоненту аргумента Х , где -1<Mantissa<1.

Пример
var
  m: Extended;
  e : Integer;
begin
...
  Frexp(-3, m, e);     {m:=-0.75; e:=2}
  Frexp(8, m, e);      {m:=0.5; e:=4}
...
end;