September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Determine-if-a-string-is-numeric/ERRE/determine-if-a-string-is-numeric.erre
+++ b/Task/Determine-if-a-string-is-numeric/ERRE/determine-if-a-string-is-numeric.erre
@ -0,0 +1,15 @@
+PROGRAM NUMERIC
+
+PROCEDURE IS_NUMERIC(S$->ANS%)
+LOCAL T1,T1$
+    T1=VAL(S$)
+    T1$=STR$(T1)
+    ANS%=(T1$=S$) OR T1$=" "+S$
+END PROCEDURE
+
+BEGIN
+    PRINT(CHR$(12);)
+    INPUT("Enter a string",S$)
+    IS_NUMERIC(S$->ANS%)
+    IF ANS% THEN PRINT("is num") ELSE PRINT("not num")
+END PROGRAM