Combinations with repetitions: Difference between revisions
m
no edit summary
m (BASIC256 and BBC BASIC moved to the BASIC section.) |
mNo edit summary |
||
Line 707:
Total choices = 220
</pre>
==={{header|IS-BASIC}}===▼
<syntaxhighlight lang="is-basic">100 PROGRAM "Combinat.bas"▼
110 READ N▼
120 STRING D$(1 TO N)*5▼
130 FOR I=1 TO N▼
140 READ D$(I)▼
150 NEXT▼
160 FOR I=1 TO N▼
170 FOR J=I TO N▼
180 PRINT D$(I);" ";D$(J)▼
190 NEXT▼
200 NEXT▼
210 DATA 3,iced,jam,plain</syntaxhighlight>▼
=={{header|Bracmat}}==
Line 1,798 ⟶ 1,812:
There are 220 possible combinations of 3 from 10
</pre>
▲=={{header|IS-BASIC}}==
▲<syntaxhighlight lang="is-basic">100 PROGRAM "Combinat.bas"
▲110 READ N
▲120 STRING D$(1 TO N)*5
▲130 FOR I=1 TO N
▲140 READ D$(I)
▲150 NEXT
▲160 FOR I=1 TO N
▲170 FOR J=I TO N
▲180 PRINT D$(I);" ";D$(J)
▲190 NEXT
▲200 NEXT
▲210 DATA 3,iced,jam,plain</syntaxhighlight>
=={{header|J}}==
|