blob: 62c9b9073911f872f5a42fb9d19c9e36a31b59aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{ Old file: tbs0065.pp }
{ shows that frac() doesn't work correctly. OK 0.99.1 (PFV) }
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.
|
