选择法排序.prg

来自「常用算法」· PRG 代码 · 共 21 行

clear
dime a(10)
n=10
for i=1 to 10
   a(i)=int(rand()*100)
   ??a(i)
 next 
 for i=1 to n-1
    for j=i+1 to n
      if a(i)>a(j)
       t=a(i)
       a(i)=a(j)
       a(j)=t
       endif
   next j
   next i
   ?"sort:"
   for i=1 to n
    ?? a(i)
   next i