1
{ this tests the pi routine, as an inline }
6
{ the following expression also works on constants }
19
Write('Pi() test...');
22
if trunc(value) <> trunc(PI_CONST) then
24
If trunc(Pi) <> trunc(PI_CONST) then
26
If trunc(Pi) <> trunc(PI_CONST_VALUE) then