Anonymous user
Permutations: Difference between revisions
→{{header|PowerBASIC}}
Line 2,246:
=={{header|PowerBASIC}}==
<lang powerbasic>
#COMPILE EXE
#DIM ALL
GLOBAL
GLOBAL d, ns, s AS STRING 'dynamic string
FUNCTION PBMAIN () AS LONG
ns = INPUTBOX$(" n =",, "3") 'input n
FOR i = 1 TO n: a(i)= i: NEXT▼
s = " "▼
▲ FOR i = 1 TO n
d = STR$(a(i))▼
s = BUILD$(s, d) ' s & d concatenate▼
? s 'print and pause▼
DO
▲ s = BUILD$(s, d) ' s & d concatenate
▲ ? s 'print and pause
SWAP a(j), a(k)▼
DECR i
LOOP▼
j = i+1
DO WHILE j < k
▲ SWAP a(j), a(k)
INCR j
DECR k
LOOP
j = i+1
DO WHILE a(j) < a(i)
LOOP UNTIL i = 0▼
INCR j
END FUNCTION</lang>▼
▲ LOOP
▲ LOOP UNTIL i = 0
▲ END FUNCTION</lang>
=={{header|Prolog}}==
| |||