Pick random element: Difference between revisions
Added Chipmunk Basic
(Added Dart) |
(Added Chipmunk Basic) |
||
Line 318:
110 DATAFOXTROT, GOLF, HOTEL, INDIA, JULIETT
</syntaxhighlight>
==={{header|Commodore BASIC}}===▼
<syntaxhighlight lang="qbasic">10 DIM A$(9)▼
20 FOR I=0 TO 9 : READ A$(I) : NEXT▼
30 X = RND(-TI) : REM 'PLANT A RANDOM SEED'▼
40 X = INT(RND(1)*10)▼
50 PRINT A$(X)▼
60 END▼
100 DATA ALPHA, BRAVO, CHARLIE, DELTA, ECHO▼
110 DATA FOXTROT, GOLF, HOTEL, INDIA, JULIETT</syntaxhighlight>▼
==={{header|BASIC256}}===
Line 336 ⟶ 327:
next i</syntaxhighlight>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
The [[#Commodore BASIC|Commodore BASIC]] solution works without any changes.
▲==={{header|Commodore BASIC}}===
▲<syntaxhighlight lang="qbasic">10 DIM A$(9)
▲20 FOR I=0 TO 9 : READ A$(I) : NEXT
▲30 X = RND(-TI) : REM 'PLANT A RANDOM SEED'
▲40 X = INT(RND(1)*10)
▲50 PRINT A$(X)
▲60 END
▲100 DATA ALPHA, BRAVO, CHARLIE, DELTA, ECHO
▲110 DATA FOXTROT, GOLF, HOTEL, INDIA, JULIETT</syntaxhighlight>
==={{header|True BASIC}}===
| |||