Sign in Join
FPDoc Onlineexperiment

Frexp procedure

In unit Math

Return mantissa and exponent.

Declaration

pascal
procedure Frexp(X: single; out Mantissa: single; out Exponent: Integer)

Description

Frexp returns the mantissa and exponent of it's argument x in mantissa and exponent.

Errors

None

Example: ex14

pascal
Program Example14;

{ Program to demonstrate the frexp function. }

Uses math;

Procedure dofrexp(Const X : extended);

var man : extended;
    exp: longint;

begin
  man:=0;
  exp:=0;
  frexp(x,man,exp);
  write(x,' has ');
  Writeln('mantissa ',man,' and exponent ',exp);
end;


begin
//   dofrexp(1.00);
   dofrexp(1.02e-1);
   dofrexp(1.03e-2);
   dofrexp(1.02e1);
   dofrexp(1.03e2);
end.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.