顺序查找.prg

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

clear
dime a(10)
  for i=1 to 10
    a(i)=int(rand()*100)
    ??a(i)
   next i
  input "输入要查找的数：" to x
  for i=1 to 10
    if a(i)=x then
      ?"找到：",x,i
      return
    endif
   next  
  ?"没有找到！"