易语言实现取指定最小值到最大值范围的随机32位单精度小数值 支持取负数 (返回小数型)

CNWTEPRG

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 置随机数种子 ()
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 随机小数, 小数型
    
15. 
    
16. .计次循环首 (100, )
    
17.     随机小数 ＝ 取随机小数 (0, 1)  ' 大于0小于1的小数
    
18.     调试输出 (随机小数)
    
19. .计次循环尾 ()
    
20. 
    
21. .子程序 取随机小数, 小数型, 公开, 取一个范围:最小值~最大值的小数,成功返回小数,失败返回NAN
    
22. .参数 最小值, 小数型, , 欲取随机数的最小值 (支持负数)
    
23. .参数 最大值, 小数型, , 欲取随机数的最大值 (最小值大于最大值则交换)
    
24. .局部变量 小数, 小数型
    
25. .局部变量 最小值_整, 整数型
    
26. .局部变量 最小值_指数位, 字节型, , , 范围:0~255
    
27. .局部变量 最小值_尾数位, 整数型, , , 0~8388607
    
28. .局部变量 最大值_整, 整数型
    
29. .局部变量 最大值_指数位, 字节型
    
30. .局部变量 最大值_尾数位, 整数型
    
31. .局部变量 随机指数, 字节型
    
32. .局部变量 随机尾数, 整数型
    
33. .局部变量 偏移, 小数型
    
34. .局部变量 倍数, 小数型, , , 大于1的值
    
35. .局部变量 间距, 字节型
    
36. .局部变量 连续, 字节型
    
37. 
    
38. .判断开始 (最小值 ＝ 最大值)
    
39.     返回 (最大值)
    
40. .判断 (最小值 ＞ 最大值)
    
41.     交换变量 (最小值, 最大值)
    
42. .默认
    
43. 
    
44. .判断结束
    
45. .循环判断首 ()
    
46.     倍数 ＝ 取随机数 (1, ) ÷ 取随机数 (1, )
    
47. .循环判断尾 (倍数 ≤ 1)
    
48. .如果 (最小值 ＜ 0)
    
49.     偏移 ＝ 最小值
    
50. .否则
    
51.     偏移 ＝ 0
    
52. .如果结束
    
53. 最小值 ＝ (最小值 － 偏移) ÷ 倍数
    
54. 最大值 ＝ (最大值 － 偏移) ÷ 倍数
    
55. 最小值_整 ＝ 小数_联合到整数 (最小值)
    
56. 最大值_整 ＝ 小数_联合到整数 (最大值)
    
57. .如果真 (是否运算正确 (最小值) ＝ 假 或 是否运算正确 (最大值) ＝ 假)
    
58.     返回 (整数_联合到小数 (2147483647))
    
59. .如果真结束
    
60. 最小值_指数位 ＝ 右移 (最小值_整, 23)
    
61. 最大值_指数位 ＝ 右移 (最大值_整, 23)
    
62. 最小值_尾数位 ＝ 位与 (最小值_整, 8388607)
    
63. 最大值_尾数位 ＝ 位与 (最大值_整, 8388607)
    
64. .循环判断首 ()
    
65.     随机尾数 ＝ 位与 (位异或 (左移 (取随机数 (, ), 7), 取随机数 (, )), 8388607)
    
66.     间距 ＝ 最大值_指数位 － 最小值_指数位
    
67.     .如果 (间距 ≠ 0)
    
68.         .计次循环首 (间距, )
    
69.             .如果 (取随机数 (0, 255) ≥ 128)
    
70.                 连续 ＝ 连续 ＋ 1
    
71.             .否则
    
72.                 跳出循环 ()
    
73.             .如果结束
    
74. 
    
75.         .计次循环尾 ()
    
76.         随机指数 ＝ 最小值_指数位 ＋ 间距 － 连续
    
77.         .判断开始 (随机指数 ＝ 最小值_指数位)
    
78.             随机尾数 ＝ 限制整数范围 (随机尾数, 最小值_尾数位, 8388607)
    
79.         .判断 (随机指数 ＝ 最大值_指数位)
    
80.             随机尾数 ＝ 限制整数范围 (随机尾数, 0, 最大值_尾数位)
    
81.         .默认
    
82. 
    
83.         .判断结束
    
84. 
    
85.     .否则
    
86.         随机指数 ＝ 最小值_指数位
    
87.         随机尾数 ＝ 限制整数范围 (随机尾数, 最小值_尾数位, 最大值_尾数位)
    
88.     .如果结束
    
89.     小数 ＝ 整数_联合到小数 (位或 (左移 (随机指数, 23), 随机尾数))
    
90. .循环判断尾 (小数 ＜ 最小值 或 小数 ＞ 最大值)
    
91. 返回 (小数 × 倍数 ＋ 偏移)
    
92. 
    
93. .子程序 整数_联合到小数, 小数型
    
94. .参数 整数, 整数型
    
95. 
    
96. 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
    
97. ' mov eax,[ebp+8]
    
98. ' leave
    
99. ' retn 4
    
100. 返回 (0)
     
101. 
     
102. .子程序 小数_联合到整数, 整数型
     
103. .参数 小数, 小数型
     
104. 
     
105. 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
     
106. ' mov eax,[ebp+8]
     
107. ' leave
     
108. ' retn 4
     
109. 返回 (0)
     
110. 
     
111. .子程序 限制整数范围, 整数型
     
112. .参数 数值, 整数型
     
113. .参数 最大值, 整数型
     
114. .参数 最小值, 整数型
     
115. 
     
116. .如果真 (最大值 ＜ 最小值)
     
117.     交换变量 (最大值, 最小值)
     
118. .如果真结束
     
119. 返回 (数值 ％ (最大值 － 最小值 ＋ 1) ＋ 最小值)
     

复制代码