经典的一个问题 你绝对不会

q865583446

如果一个人给你  1-100的数字   注意  数字是乱的    你能把它重大到小排出来  你会吗？    我敢说你绝对不会    会的话把你的代码亮出来吧！      给你们看看我的思路





.版本 2
.支持库 spec
.子程序 _按钮降序_被单击
.局部变量 文本数组1, 文本型, , 0
.局部变量 n1, 整数型
.局部变量 最大的数, 整数型
.局部变量 最大数的位置, 整数型
编辑框2.内容 ＝ “”
文本数组1 ＝ 分割文本 (编辑框1.内容, #换行符, )
调试输出 (文本数组1)
.计次循环首 (取数组成员数 (文本数组1), )
调试输出 (文本数组1)
最大的数 ＝ 到数值 (文本数组1 [1])
最大数的位置 ＝ 1
.计次循环首 (取数组成员数 (文本数组1), n1)
.如果 (到数值 (文本数组1 [n1]) ＞ 最大的数)
最大的数 ＝ 到数值 (文本数组1 [n1])
最大数的位置 ＝ n1
.否则
.如果结束
.计次循环尾 ()
编辑框2.加入文本 (到文本 (最大的数) ＋ #换行符)
删除成员 (文本数组1, 最大数的位置, )
.计次循环尾 ()

948039430

q865583446 发表于 2013-3-9 12:08
**** 作者被禁止或删除 内容自动屏蔽 ****

既然知道是100个乱数字何必要排呢。。。。。

普普通通

过来围观一下

龙苓

[e]
.版本 2

.子程序 刷新列表框
.局部变量 循环次数变量, 整数型

列表框1.清空 ()
.计次循环首 (取数组成员数 (被操作数组), 循环次数变量)
    列表框1.加入项目 (到文本 (被操作数组 [循环次数变量]), )
.计次循环尾 ()


.子程序 _按钮4_被单击

数组排序 (被操作数组, 假)
刷新列表框 ()
[/e]

精易小5

冒泡排序不行么

948039430

q865583446 发表于 2013-3-9 12:08
大哥    1-100个数是乱的      比如5        7  6 2   56   74     这样   100个乱数字  要把它排好      ...

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
排好了

q865583446

948039430 发表于 2013-3-8 23:37
1~100 100个数字而且还不重复？ 这还用排吗 - -

大哥    1-100个数是乱的      比如5        7  6 2   56   74     这样   100个乱数字  要把它排好     你会吗？      居然没一个人会我笑了

素顏じ亦傾城ジ

....   数组排序

948039430

1~100 100个数字而且还不重复？ 这还用排吗 - -

宝导龍

[e]
.版本 2.支持库 spec.子程序 __启动窗口_创建完毕
.局部变量 待排序数组, 整数型, , "10"

待排序数组 [1] ＝ 10
待排序数组 [2] ＝ 1
待排序数组 [3] ＝ 3
待排序数组 [4] ＝ 7
待排序数组 [5] ＝ 2
待排序数组 [6] ＝ 9
待排序数组 [7] ＝ 4
待排序数组 [8] ＝ 8
待排序数组 [9] ＝ 5
待排序数组 [10] ＝ 6
' 上面的你需要排序的数，顺序随便你，只举例10个，100个 1000个 依次类推
排序 (待排序数组)

.子程序 排序
.参数 待排序数, 整数型, 数组
.局部变量 排序数组, 整数型, , "10"
.局部变量 计次, 整数型

.计次循环首 (10, 计次)
    排序数组 [待排序数 [计次]] ＝ 待排序数 [计次]
.计次循环尾 ()
计次 ＝ 0
.计次循环首 (10, 计次)
    调试输出 (排序数组 [计次])
.计次循环尾 ()

[/e]