Test integerness: Difference between revisions
Test integerness in FreeBASIC
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Test integerness in FreeBASIC) |
||
Line 1,069:
F (-3.00000000000000,3.14159265358979)
</pre>
=={{header|FreeBASIC}}==
<syntaxhighlight lang="vb">#define isInteger(x) iif(Int(val(x)) = val(x), 1, 0)
Dim As String test(1 To 8) = {"25.000000", "24.999999", "25.000100", "-2.1e120", "-5e-2", "NaN", "Inf", "-0.05"}
For i As Integer = 1 To Ubound(test)
Dim As String s = test(i)
Print s,
If isInteger(s) then Print "is integer" Else Print "is not integer"
Next i
Sleep</syntaxhighlight>
{{out}}
<pre>25.000000 is integer
24.999999 is not integer
25.000100 is not integer
-2.1e120 is integer
-5e-2 is not integer
NaN is not integer
Inf is integer
-0.05 is not integer</pre>
=={{header|Free Pascal}}==
| |||