VFP编程:任意数自定义升降序排序

1、启动VFP程序,并设置文件存放目录

       推荐使用代码方式: set default to <路径>

这里使用默认路径,就不再指定目录了

2、在 命令 窗口中打开程序编辑器

        推荐使用代码方式: modify command <程序名> 创建程序

这里使用 modi comm temp 创建一个名为 temp的程序

3、输入以下代码

****任意个数排序****

clear

input "输入排序数数量" to n  &&输入排序数的个数

INPUT"输入(0/1)控制(降/升)序" to x

dimension t(n) &&定义一个数组存放数据

*循环输入数据

for i=1 to n

    input "输入第"+str(i,1)+"个数" to t(i)

endfor

*排序

for i=1 to n-1

    for j=i+1 to n

        if iif(x=0,t(i)<t(j),t(i)>t(j)) &&此处控制升降序

            temp=t(j)

            t(j)=t(i)

            t(i)=temp

        endif

    endfor

endfor

*输出

for i=1 to n

    ??t(i)

endfor

1、排序部分使用2层for循环

i循环由 1 到 n-1

    j循环由 (i+1) 到 n

        而后使用if判断(假设现在选择的是降序,则判断 t(i)是否小于t(j) )    

            当判断结果为 真 时,交换t(i)与t(j)的值

        结束判断

    结束j循环

结束i循环