mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 12:39:38 +01:00
11 lines
195 B
ObjectPascal
11 lines
195 B
ObjectPascal
Program Example27;
|
|
|
|
{ Program to demonstrate the Frac function. }
|
|
|
|
Var R : Real;
|
|
|
|
begin
|
|
Writeln (Frac (123.456):0:3); { Prints O.456 }
|
|
Writeln (Frac (-123.456):0:3); { Prints -O.456 }
|
|
end.
|