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

这题出的偏门又刁钻～～

想了 很久 ～～||||||

理清了头绪 算出 用的爆破

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

代码

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

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

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

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

本文题目：用遍历解决某数学题的易语言
链接URL：http://www.shufengxianlan.com/qtweb/news13/444463.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

企业建站知识

分类信息网

王君美油画　　 　川银永信　　 　雪茄烟　　 　成都画册快印　　 　宣威网站建设　　 　教育建设方案　　 　手机网站制作　　 　橡塑保温材料　　 　成都网站改版公司　　 　主动防护网　　 　微信小程序　　 　四川电信机房托管　　 　微信小程序开发　　 　宜宾网站建设　　 　网络口碑营销　　 　绵阳托管服务器　　 　草坪音箱　　 　光华机房服务器托管　　 　温江网站设计　　 　鳄鱼养殖