Soloway's recurring rainfall: Difference between revisions
Applesoft BASIC
(Applesoft BASIC) |
|||
Line 103:
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
<syntaxhighlight lang="qbasic"> 10 LET SUM = 0
20 FOR RAINFALL = 1 TO 1E38
30 INPUT "ENTER RAINFALL (AS AN INTEGER, OR 99999 TO QUIT): ";I
40 IF I = 99999 THEN END
50 IF I < > INT (I) THEN PRINT "?REENTER, MUST BE AN INTEGER": GOTO 30
60 LET SUM = SUM + I
70 PRINT " THE NEW AVERAGE RAINFALL IS "SUM / RAINFALL
80 NEXT RAINFALL</syntaxhighlight>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
| |||