Soloway's recurring rainfall: Difference between revisions
Soloway's Recurring Rainfall in True BASIC
(Soloway's Recurring Rainfall in various BASIC dialents (BASIC256, QBASIC and Yabasic)) |
(Soloway's Recurring Rainfall in True BASIC) |
||
Line 106:
DO
INPUT "Enter integral rainfall (99999 to quit): ", i
IF
PRINT "Must be an integer no less than 0, try again."▼
ELSEIF i = 99999 THEN▼
EXIT DO
ELSEIF (i < 0) OR (i <> INT(i)) THEN
▲ PRINT "Must be an integer no less than 0, try again."
ELSE
n = n + 1
Line 136:
{{out}}
<pre>Same as FreeBASIC entry.</pre>
==={{header|True BASIC}}===
{{works with|QBasic}}
<syntaxhighlight lang="qbasic">LET n = 0
LET sum = 0
DO
PRINT "Enter integral rainfall (99999 to quit): "
INPUT i
EXIT DO
ELSEIF (i < 0) OR (i <> INT(i)) THEN
PRINT "Must be an integer no less than 0, try again."
ELSE
LET n = n + 1
LET sum = sum + i
PRINT " The current average rainfall is"; sum / n
END IF
LOOP
END</syntaxhighlight>
{{out}}
<pre>Same as QBasic entry.</pre>
==={{header|Yabasic}}===
| |||