Node:Frac, Next:, Previous:forward, Up:Reference



Frac

Synopsis


function Frac (x: Real): Real;

Description

Frac returns the fractional part of a floating point number.

Conforming to

Frac is a Borland Pascal extension.

Example


program FracDemo;

begin
  WriteLn (Frac (12.345) : 1 : 5);  { 0.34500 }
  WriteLn (Int (12.345) : 1 : 5);  { 12.00000 }
  WriteLn (Round (12.345) : 1);  { 12 }
  WriteLn (Trunc (12.345) : 1);  { 12 }

  WriteLn (Frac (-12.345) : 1 : 5);  { -0.34500 }
  WriteLn (Int (-12.345) : 1 : 5);  { -12.00000 }
  WriteLn (Round (-12.345) : 1);  { -12 }
  WriteLn (Trunc (-12.345) : 1);  { -12 }

  WriteLn (Frac (12.543) : 1 : 5);  { 0.54300 }
  WriteLn (Int (12.543) : 1 : 5);  { 12.00000 }
  WriteLn (Round (12.543) : 1);  { 13 }
  WriteLn (Trunc (12.543) : 1);  { 12 }

  WriteLn (Frac (-12.543) : 1 : 5);  { -0.54300 }
  WriteLn (Int (-12.543) : 1 : 5);  { -12.00000 }
  WriteLn (Round (-12.543) : 1);  { -13 }
  WriteLn (Trunc (-12.543) : 1);  { -12 }
end.

See also

Real Types, Real, Int, Round, Trunc.