Soloway's recurring rainfall: Difference between revisions
Content added Content deleted
(Soloway's Recurring Rainfall in various BASIC dialents (BASIC256, QBASIC and Yabasic)) |
(Soloway's Recurring Rainfall in True BASIC) |
||
Line 106: | Line 106: | ||
DO |
DO |
||
INPUT "Enter integral rainfall (99999 to quit): ", i |
INPUT "Enter integral rainfall (99999 to quit): ", i |
||
IF |
IF i = 99999 THEN |
||
⚫ | |||
⚫ | |||
EXIT DO |
EXIT DO |
||
ELSEIF (i < 0) OR (i <> INT(i)) THEN |
|||
⚫ | |||
ELSE |
ELSE |
||
n = n + 1 |
n = n + 1 |
||
Line 136: | Line 136: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<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}}=== |
==={{header|Yabasic}}=== |