69 lines
555 B
Plaintext
69 lines
555 B
Plaintext
let n = 3
|
|
let i = n + 1
|
|
|
|
dim a[i]
|
|
|
|
for i = 1 to n
|
|
|
|
let a[i] = i
|
|
|
|
next i
|
|
|
|
do
|
|
|
|
for i = 1 to n
|
|
|
|
print a[i]
|
|
|
|
next i
|
|
|
|
print
|
|
|
|
let i = n
|
|
|
|
do
|
|
|
|
let i = i - 1
|
|
let b = i + 1
|
|
|
|
loopuntil (i = 0) or (a[i] < a[b])
|
|
|
|
let j = i + 1
|
|
let k = n
|
|
|
|
do
|
|
|
|
if j < k then
|
|
|
|
let t = a[j]
|
|
let a[j] = a[k]
|
|
let a[k] = t
|
|
let j = j + 1
|
|
let k = k - 1
|
|
|
|
endif
|
|
|
|
loop j < k
|
|
|
|
if i > 0 then
|
|
|
|
let j = i + 1
|
|
|
|
do
|
|
|
|
if a[j] < a[i] then
|
|
|
|
let j = j + 1
|
|
|
|
endif
|
|
|
|
loop a[j] < a[i]
|
|
|
|
let t = a[j]
|
|
let a[j] = a[i]
|
|
let a[i] = t
|
|
|
|
endif
|
|
|
|
loopuntil i = 0
|