set talk off clear all clear dimension x(10) for i=1 to 10 @ 10,10 say "请输入x(",i,"的值:" get x(i) read end for =asort(x,1) for i=1 to 10 ? "x(",i,")=",x(i) endfor set talk on cancel
for i=1 to 10 ? "x(",i,")=",x(i) 等于没写啊?没有排序啊
第一种,最笨一种,两层循环,每层10次 for i=1 to 10 for j=0 to 10 if dimension x(i)>x(j) 互换
asort就是排续函数啊,大哥些!!
呵呵,没看清楼主的要求,主要看语法啊 语法应该没什么错 set talk on cancel???是否应改为return
clear all
clear
dimension x(10)
for i=1 to 10
@ 10,10 say "请输入x(",i,"的值:" get x(i)
read
end for
=asort(x,1)
for i=1 to 10
? "x(",i,")=",x(i)
endfor
set talk on
cancel
for i=1 to 10
? "x(",i,")=",x(i)
等于没写啊?没有排序啊
for i=1 to 10
for j=0 to 10
if dimension x(i)>x(j)
互换
语法应该没什么错
set talk on
cancel???是否应改为return