用遍历解决某数学题的易语言

开发 开发工具
易语言是一门计算机程序语言。以“易”著称,以中文作为程序代码表达的语言形式。早期版本的名字为E语言。可以说,创造易语言的初衷是进行用中文来编写程序的实践。

这题出的偏门又刁钻~~

想了 很久 ~~||||||  

理清了头绪 算出 用的爆破 

  1. * 192 | 384 | 576 
  2. * 219 | 438 | 657 
  3. * 273 | 546 | 819 
  4. * 327 | 654 | 981 

代码

  1. .版本 2 
  2. .支持库 spec 
  3. .程序集 窗口程序集1 
  4. .程序集变量 数组1, 整数型, , "0" 
  5. .程序集变量 数组2, 整数型, , "0" 
  6. .程序集变量 数组3, 整数型, , "0" 
  7. .子程序 _按钮1_被单击 
  8. .局部变量 n1, 整数型 
  9. .局部变量 m1, 整数型 
  10. .局部变量 局变被搜索文字, 文本型 
  11. .局部变量 局变搜索文字, 文本型 
  12. .局部变量 局变位置, 整数型 
  13. .局部变量 t1, 整数型 
  14. .局部变量 s1, 整数型 
  15.  
  16. .计次循环首 (999, t1) 
  17.     加入成员 (数组1, t1) 
  18. .计次循环尾 () 
  19. .计次循环首 (取数组成员数 (数组1), s1) 
  20.     加入成员 (数组2, 数组1 [s1] × 2) 
  21.     加入成员 (数组3, 数组1 [s1] × 3) 
  22. .计次循环尾 () 
  23. .计次循环首 (取数组成员数 (数组1), n1) 
  24.     .如果真 (数组1 [n1] < 100) 
  25.         到循环尾 () 
  26.     .如果真结束 
  27.  
  28.     .如果真 (数组1 [n1] × 2 = 数组2 [n1] 且 数组1 [n1] × 3 = 数组3 [n1]) 
  29.         局变被搜索文字 = 到文本 (数组1 [n1]) + 到文本 (数组2 [n1]) + 到文本 (数组3 [n1]) 
  30.         .计次循环首 (10, m1) 
  31.             局变搜索文字 = 到文本 (m1 - 1) 
  32.             局变位置 = 寻找文本 (局变被搜索文字, 局变搜索文字, , 假) 
  33.             局变位置 = 寻找文本 (局变被搜索文字, 局变搜索文字, 局变位置 + 1, 假) 
  34.             .如果真 (局变位置 ≠ -1) 
  35.                 跳出循环 () 
  36.             .如果真结束 
  37.  
  38.         .计次循环尾 () 
  39.         .如果真 (局变位置 ≠ -1) 
  40.             到循环尾 () 
  41.         .如果真结束 
  42.  
  43.         .如果真 (寻找文本 (局变被搜索文字, 到文本 (0), , 假) ≠ -1) 
  44.             到循环尾 () 
  45.         .如果真结束 
  46.  
  47.         调试输出 (数组1 [n1], 数组2 [n1], 数组3 [n1]) 
  48.     .如果真结束 
  49.  
  50. .计次循环尾 () 

[文件] 爆破 解决数学题.zip ~ 20KB    下载

2.20后续 优化了下的版本~~、 减少了3个变量与两个记次循环

  1. .版本 2 
  2. .支持库 spec 
  3. .程序集 窗口程序集1 
  4. .程序集变量 数组1, 整数型, , "0" 
  5. .程序集变量 数组2, 整数型, , "0" 
  6. .程序集变量 数组3, 整数型, , "0" 
  7.  
  8. .子程序 _按钮1_被单击 
  9. .局部变量 局变被搜索文字, 文本型 
  10. .局部变量 局变位置, 整数型 
  11. .局部变量 t1, 整数型 
  12. .局部变量 m1, 整数型 
  13.  
  14. .计次循环首 (999, t1) 
  15.     加入成员 (数组1, t1) 
  16.     加入成员 (数组2, t1 × 2) 
  17.     加入成员 (数组3, t1 × 3) 
  18.     .如果真 (数组1 [t1] < 123) 
  19.         到循环尾 () 
  20.     .如果真结束 
  21.  
  22.     .如果真 (数组1 [t1] × 2 = 数组2 [t1] 且 数组1 [t1] × 3 = 数组3 [t1]) 
  23.         局变被搜索文字 = 到文本 (数组1 [t1]) + 到文本 (数组2 [t1]) + 到文本 (数组3 [t1]) 
  24.         .计次循环首 (10, m1) 
  25.             局变位置 = 寻找文本 (局变被搜索文字, 到文本 (m1 - 1), , 假) 
  26.             局变位置 = 寻找文本 (局变被搜索文字, 到文本 (m1 - 1), 局变位置 + 1, 假) 
  27.             .如果真 (局变位置 ≠ -1) 
  28.                 跳出循环 () 
  29.             .如果真结束 
  30.  
  31.         .计次循环尾 () 
  32.         .如果真 (局变位置 ≠ -1) 
  33.             到循环尾 () 
  34.         .如果真结束 
  35.         .如果真 (寻找文本 (局变被搜索文字, 到文本 (0), , 假) ≠ -1) 
  36.             到循环尾 () 
  37.         .如果真结束 
  38.         调试输出 (数组1 [t1], 数组2 [t1], 数组3 [t1]) 
  39.     .如果真结束 
  40. .计次循环尾 () 

原文链接:http://www.oschina.net/code/snippet_126059_18384

责任编辑:张伟 来源: oschina
相关推荐

2010-02-24 17:40:52

刀片服务器虚拟化

2022-07-26 01:11:09

AMD芯片Intel

2024-07-29 14:39:39

2021-11-08 10:01:04

AI 数据语言模型

2024-06-17 12:39:37

2023-03-20 10:19:25

ChatGPT数学

2020-12-17 18:59:55

AI

2022-06-23 11:54:35

AI智能代码

2023-12-05 13:28:00

AI模型

2020-12-18 09:05:13

算法单调栈

2020-12-10 10:42:25

算法碾转相除法更相减损术

2023-11-27 14:00:00

训练模型

2024-07-04 15:28:11

2024-12-23 07:40:00

AI模型数学

2019-11-20 10:03:56

AI 数据人工智能

2024-09-23 08:24:06

CoT解密技术

2010-03-24 16:03:51

Python编程语言

2020-12-17 10:12:33

数据结构算法队列

2023-11-13 18:19:35

AI训练

2010-09-09 16:40:58

SQL循环游标
点赞
收藏

51CTO技术栈公众号