Determine if a string is numeric: Difference between revisions
Content deleted Content added
mNo edit summary |
Contribution in BaCon |
||
Line 379:
<pre>
0 1
</pre>
=={{header|BaCon}}==
<lang qbasic>
INPUT "Your string: ", str$
IF VAL(str$) = 0 THEN
PRINT "Not a number"
ELSE
PRINT "This is a number"
END IF
</lang>
{{out}}
<pre>
peter@starcrater ~/programming/bacon $ bacon isnumber.bac
Converting 'isnumber.bac'... done, 7 lines were processed in 0.006 seconds.
Compiling 'isnumber.bac'... cc -c isnumber.bac.c
cc -o isnumber isnumber.bac.o -lbacon -lm
Done, program 'isnumber' ready.
peter@host $ ./isnumber
Your string: 12.3
This is a number
peter@host $ ./isnumber
Your string: 12E3
This is a number
peter@host $ ./isnumber
Your string: PI
Not a number
peter@host $ ./isnumber
Your string: Hello
Not a number
</pre>
| |||