Unit 'Math'	Package
[Overview][Constants][Types][Classes][Procedures and functions][Index]	[#rtl]

Frexp

Return mantissa and exponent.

Declaration

Source position: math.pp line 626

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.