Frexp¶

Return mantissa and exponent.

Declaration¶

Source position: math.pp line 725

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

procedure Frexp(X: Double; out Mantissa: Double; out Exponent: Integer);

procedure Frexp(X: extended; out Mantissa: extended; 
               out Exponent: Integer);

Description¶

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

Errors¶

None

Example¶

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.