易语言获取字节型/短整数型/整数型/长整数型数组中是否存在指定范围的值 (返回逻辑型)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
15. 
    
16. 输出调试文本 (字节型数组_是否存在范围数字 ({ 46, 47, 58, 50 }, 48, 57))
    
17. 输出调试文本 (短整数型数组_是否存在范围数字 ({ -11, 11, -2 }, -5, 10))
    
18. 输出调试文本 (整数型数组_是否存在范围数字 ({ 1, 2, 3, 4, 5, 6, 7, 15 }, 12, 15))
    
19. 输出调试文本 (长整数型数组_是否存在范围数字 ({ -11, 11 }, -10, 10))
    
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. 返回 (假)
    

复制代码