j11战斗机载油:VFP中 编一个小程序 怎么才能使输入的4个说按顺序输出

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 07:50:15
这是我的一道作业

dimension a(4)
* 以下数据你填入,或者编程录入
a(1)=?
a(2)=?
a(3)=?
a(4)=?

for rr=1 to 4
?a(rr)
endfor

for bb=4 to 1 step -1
for aa=1 to bb
xxx=a(aa)
if a(aa)>a(aa+1)
a(aa)=a(aa+1)
a(aa+1)=xxx
endif
endfor
endfor
?
?
for rr=1 to 4
?a(rr)
endfor

利用数组实现:经过调试正确!

i=1
dimension a[4]
do while i<=4
input "请输入:" to a[i]
i=i+1
enddo
i=1
do while i<=4
j=i
do while j<=4
if a[i]<a[j]
k=a[i]
a[i]=a[j]
a[j]=k
endif
j=j+1
enddo
i=i+1
enddo
i=1
do while i<=4
?a[i]
i=i+1
enddo

这个问题我想了很久,其实有排序的函数asort()

set talk off
dime a(4)
for i = 1 to 4
input "请输入第"+ALLTRIM(str(i))+"个数" to a(i)
endfor
asort(a)
for i = 1 to 4
??a(i)
endfor
set talk on