Node:Frac, Next:FrameAddress, Previous:forward, Up:Reference
function Frac (x: Real): Real;
Frac returns the fractional part of a floating point number.
Frac is a Borland Pascal extension.
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.