mirror of
https://github.com/polserver/polserver
synced 2026-08-13 08:23:08 -04:00
18 lines
319 B
Text
18 lines
319 B
Text
|
use math;
|
||
|
|
|
||
|
|
program MathTest()
|
||
|
|
|
||
|
|
var result := CInt((64.1+0.1)*10.0);
|
||
|
|
Print("Result of CInt((64.1+0.1)*10.0) = "+result);
|
||
|
|
|
||
|
|
var val := 64.1;
|
||
|
|
print( "val(64.1)=" + val );
|
||
|
|
val := val + 0.1;
|
||
|
|
print( "val(64.2)=" + val );
|
||
|
|
val := val * 10;
|
||
|
|
print( "val(642)=" + val );
|
||
|
|
|
||
|
|
val := CInt( val );
|
||
|
|
print( "val(642)=" + val );
|
||
|
|
|
||
|
|
endprogram
|