取随机整数终极算法 支持负数 范围 -2^31~2^31-1 解决易语言取随机数范围0~32767的bug

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 数组, 整数型, , "0"
    
15. .局部变量 最小值, 整数型
    
16. .局部变量 最大值, 整数型
    
17. .局部变量 随机数, 整数型
    
18. 
    
19. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
20. 置随机数种子 ()
    
21. 
    
22. 最小值 ＝ -78
    
23. 最大值 ＝ 32
    
24. 
    
25. .计次循环首 (1000, )
    
26.     随机数 ＝ 取随机整数 (最大值, 最小值)
    
27.     .如果真 (随机数 ＞ 最大值 或 随机数 ＜ 最小值)
    
28.         暂停 ()
    
29.     .如果真结束
    
30.     加入成员 (数组, 随机数)
    
31. .计次循环尾 ()
    
32. 数组排序 (数组, 真)
    
33. 调试输出 (数组)
    
34. 
    
35. .子程序 限制整数范围, 整数型, 公开
    
36. .参数 数值, 整数型
    
37. .参数 最大值, 整数型
    
38. .参数 最小值, 整数型
    
39. .局部变量 无符号数值, 长整数型
    
40. .局部变量 无符号最大值, 长整数型
    
41. .局部变量 无符号最小值, 长整数型
    
42. .局部变量 无符号答案, 长整数型
    
43. 
    
44. .如果真 (最大值 ＜ 最小值)
    
45.     交换变量 (最大值, 最小值)
    
46. .如果真结束
    
47. 无符号数值 ＝ 数值 ＋ 2147483648
    
48. 无符号最大值 ＝ 最大值 ＋ 2147483648
    
49. 无符号最小值 ＝ 最小值 ＋ 2147483648
    
50. 无符号答案 ＝ 无符号数值 ％ (无符号最大值 － 无符号最小值 ＋ 1) ＋ 无符号最小值
    
51. 返回 (无符号答案 － 2147483648)
    
52. 
    
53. .子程序 取随机整数, 整数型, 公开, 取随机整数 范围 -2147483648~2147483647
    
54. .参数 最大值, 整数型, , 支持负数
    
55. .参数 最小值, 整数型
    
56. .局部变量 字节集, 字节集
    
57. .局部变量 计数, 整数型
    
58. .局部变量 整数, 整数型
    
59. 
    
60. 字节集 ＝ 取空白字节集 (4)
    
61. .计次循环首 (4, 计数)
    
62.     字节集 [计数] ＝ 取随机数 (, )
    
63. .计次循环尾 ()
    
64. 返回 (限制整数范围 (取字节集数据 (字节集, #整数型, 1), 最大值, 最小值))
    
65. 
    

复制代码

1心1亿

又出终极的了