Loops/N plus one half: Difference between revisions
→{{header|Tiny BASIC}}: Added a solution for the dialects that support string concatenation (e.g. Tom Pittman's TinyBasic).
m (→{{header|XBasic}}: Divided in two solutions.) |
(→{{header|Tiny BASIC}}: Added a solution for the dialects that support string concatenation (e.g. Tom Pittman's TinyBasic).) |
||
Line 799:
LET I = I + 1
GOTO 10</syntaxhighlight>
A solution for the dialects of Tiny BASIC that support string concatenation.
{{works with|TinyBasic}}
<syntaxhighlight lang="basic">
10 REM Loops/N plus one half
20 LET I = 1
30 IF I = 10 THEN PRINT I
40 IF I < 10 THEN PRINT I; ", ";
50 IF I = 10 THEN END
60 LET I = I + 1
70 GOTO 30
</syntaxhighlight>
{{out}}
<pre>
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
</pre>
==={{header|True BASIC}}===
| |||