polserver/testsuite/escript/math/math0003.src
2015-12-19 02:31:08 +01:00

19 lines
359 B
Text

use math;
var x := ConstPi();
x := x / 10000000.0;
print( "x is " + FormatRealToString(x,40) );
print( "raw" );
print( 5.0 );
print( 0.5 );
print( 0.00005 );
print( 1 );
print( "formatted" );
print( FormatRealToString( 5.0, 40 ) );
print( FormatRealToString( 0.5, 40 ) );
print( FormatRealToString( 0.00005, 40 ) );
print( FormatRealToString( 1, 40 ) );