blob: 5c004d78299eef77b4346903e763260e3b9dd07f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{ Old file: tbs0066.pp }
{ shows that Round doesn't work correctly. (NOT A bugs) OK 0.99.1 }
Program Example54;
{ Program to demonstrate the Round function. }
begin
Writeln (Round(123.456)); { Prints 124 }
Writeln (Round(-123.456)); { Prints -124 }
Writeln (Round(12.3456)); { Prints 12 }
Writeln (Round(-12.3456)); { Prints -12 }
end.
|
