有序序列删除操作.bak

来自「常用算法」· BAK 代码 · 共 36 行

clear
dime a(11)
n=10
for i=1 to 10
   a(i)=int(rand()*100)
   ??a(i)
 next 
 for i=1 to n-1
    for j=n to i+1 step -1
      if a(j)<a(j-1)
       t=a(j)
       a(j)=a(j-1)
       a(j-1)=t
       endif
   next j
   next i
   ?"sort:"
   for i=1 to n
    ?? a(i)
   next i
*插入数据
input "输入要删除的位置数：" to x
   
 for i=x to 9
   if a(i)>x then
     a(i)=a(i+1)
   else 
     exit  
   endif
  next i 
 
    
  ?"插入一个元素后：" 
   for i=1 to n-1
    ?? a(i)
   next i