易语言实现子程序指针数组的大小排序 解决 数组排序() 无法排序该数据类型 (无返回值)

CNWTEPRG

* “排序前” | 数组:10{(子程序地址:1985363062),(子程序地址:403312577),(子程序地址:1934417888),(子程序地址:35997351),(子程序地址:1223475697),(子程序地址:-1034615929),(子程序地址:447385412),(子程序地址:-1655208585),(子程序地址:-273892215),(子程序地址:-35712288)}
* “排序后(从大到小)” | 数组:10{(子程序地址:1985363062),(子程序地址:1934417888),(子程序地址:1223475697),(子程序地址:447385412),(子程序地址:403312577),(子程序地址:35997351),(子程序地址:-35712288),(子程序地址:-273892215),(子程序地址:-1034615929),(子程序地址:-1655208585)}
* “排序后(从小到大)” | 数组:10{(子程序地址:-1655208585),(子程序地址:-1034615929),(子程序地址:-273892215),(子程序地址:-35712288),(子程序地址:35997351),(子程序地址:403312577),(子程序地址:447385412),(子程序地址:1223475697),(子程序地址:1934417888),(子程序地址:1985363062)}

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 数组, 子程序指针, , "10"
    
14. .局部变量 计数, 整数型
    
15. 
    
16. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
17. 置随机数种子 ()
    
18. .计次循环首 (10, 计数)
    
19.     数组 [计数] ＝ 取随机子程序指针 ()
    
20. .计次循环尾 ()
    
21. 
    
22. 调试输出 (“排序前”, 数组)
    
23. 数组排序_子程序指针 (数组, 假)
    
24. 调试输出 (“排序后(从大到小)”, 数组)
    
25. 数组排序_子程序指针 (数组, 真)
    
26. 调试输出 (“排序后(从小到大)”, 数组)
    
27. 
    
28. 
    
29. 
    
30. .子程序 数组排序_子程序指针, , 公开, 核心库的 数组排序() 不支持子程序指针数组处理，此函数可实现子程序指针数组的排序。
    
31. .参数 数值数组变量, 子程序指针, 参考 数组, 提供参数数据时只能提供子程序指针数组。
    
32. .参数 排序方向是否为从小到大, 逻辑型, 可空, 可以被省略。如果参数值为真，排序方向为从小到大，否则为从大到小。如果本参数被省略，默认值为真。
    
33. .局部变量 整数型数组, 整数型, , "0"
    
34. 
    
35. 强制交换变量 (整数型数组, 数值数组变量)
    
36. 数组排序 (整数型数组, 选择 (是否为空 (排序方向是否为从小到大), 真, 排序方向是否为从小到大))
    
37. 强制交换变量 (整数型数组, 数值数组变量)
    
38. 
    
39. .子程序 取随机子程序指针, 子程序指针
    
40. .局部变量 字节集, 字节集
    
41. .局部变量 计数, 整数型
    
42. 
    
43. 字节集 ＝ 取空白字节集 (4)
    
44. .计次循环首 (4, 计数)
    
45.     字节集 [计数] ＝ 取随机数 (, )
    
46. .计次循环尾 ()
    
47. 返回 (取字节集数据 (字节集, #子程序指针型, ))
    
48. 
    

复制代码