Test integerness: Difference between revisions
Added XPL0 example.
(→{{header|Wren}}: Now uses isRealInteger method for complex number example.) |
(Added XPL0 example.) |
||
Line 2,492:
25.000100 is integer? false
-0.050000 is integer? false
</pre>
=={{header|XPL0}}==
XPL0 has two data types: signed 32-bit integer and 8-byte real
represented by the processor's FPU (normally IEEE 754 double format). This
test program fails by stating that -2e10 is not an integer. However, it
is not an XPL0 integer that can be represented by a 32-bit signed value.
<lang XPL0>real R;
[Format(20, 20);
repeat R:= RlIn(0);
RlOut(0, R);
Text(0, if R = float(fix(R)) then " is integer"
else " is not integer");
CrLf(0);
until R = 0.;
]</lang>
{{out}}
<pre>
25.000000 25.00000000000000000000 is integer
24.999999 24.99999900000000000000 is not integer
24.9999999999999999 25.00000000000000000000 is integer
25.00001 25.00001000000000000000 is not integer
-2e9 -2000000000.00000000000000000000 is integer
-2e10 -20000000000.00000000000000000000 is not integer
-5e-1 -0.50000000000000000000 is not integer
0 0.00000000000000000000 is integer
</pre>
| |||