易语言 批量扫描指定数可以整除的数

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. .局部变量 计数, 整数型
   
9. .局部变量 整数, 整数型
   
10. .局部变量 除了后, 整数型
    
11. .局部变量 乘结果, 整数型
    
12. .局部变量 时间, 整数型
    
13. 
    
14. 整数 ＝ 1234567890
    
15. 时间 ＝ 取启动时间 ()
    
16. .计次循环首 (整数, 计数)
    
17.     除了后 ＝ 整数 ÷ 计数
    
18.     乘结果 ＝ 除了后 × 计数
    
19.     .如果真 (整数 ＝ 乘结果)
    
20.         调试输出 (到文本 (整数) ＋ “/” ＋ 到文本 (计数) ＋ “=” ＋ 到文本 (除了后))
    
21.     .如果真结束
    
22. 
    
23. .计次循环尾 ()
    
24. 调试输出 (“消耗时间(秒)：” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000))
    
25. 结束 ()
    
26. 
    
27. 
    

复制代码

1. 
   
2. * “1234567890/1=1234567890”
   
3. * “1234567890/2=617283945”
   
4. * “1234567890/3=411522630”
   
5. * “1234567890/5=246913578”
   
6. * “1234567890/6=205761315”
   
7. * “1234567890/9=137174210”
   
8. * “1234567890/10=123456789”
   
9. * “1234567890/15=82304526”
   
10. * “1234567890/18=68587105”
    
11. * “1234567890/30=41152263”
    
12. * “1234567890/45=27434842”
    
13. * “1234567890/90=13717421”
    
14. * “1234567890/3607=342270”
    
15. * “1234567890/3803=324630”
    
16. * “1234567890/7214=171135”
    
17. * “1234567890/7606=162315”
    
18. * “1234567890/10821=114090”
    
19. * “1234567890/11409=108210”
    
20. * “1234567890/18035=68454”
    
21. * “1234567890/19015=64926”
    
22. * “1234567890/21642=57045”
    
23. * “1234567890/22818=54105”
    
24. * “1234567890/32463=38030”
    
25. * “1234567890/34227=36070”
    
26. * “1234567890/36070=34227”
    
27. * “1234567890/38030=32463”
    
28. * “1234567890/54105=22818”
    
29. * “1234567890/57045=21642”
    
30. * “1234567890/64926=19015”
    
31. * “1234567890/68454=18035”
    
32. * “1234567890/108210=11409”
    
33. * “1234567890/114090=10821”
    
34. * “1234567890/162315=7606”
    
35. * “1234567890/171135=7214”
    
36. * “1234567890/324630=3803”
    
37. * “1234567890/342270=3607”
    
38. * “1234567890/13717421=90”
    
39. * “1234567890/27434842=45”
    
40. * “1234567890/41152263=30”
    
41. * “1234567890/68587105=18”
    
42. * “1234567890/82304526=15”
    
43. * “1234567890/123456789=10”
    
44. * “1234567890/137174210=9”
    
45. * “1234567890/205761315=6”
    
46. * “1234567890/246913578=5”
    
47. * “1234567890/411522630=3”
    
48. * “1234567890/617283945=2”
    
49. * “1234567890/1234567890=1”
    
50. * “消耗时间(秒)：158.388”
    
51. 
    

复制代码

Cute

呵呵，这个不错，赞。

demon

就是求因数吧？明显还有更优算法啊。

demon

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
   
7. .局部变量 计数, 整数型
   
8. .局部变量 整数, 整数型
   
9. .局部变量 时间, 整数型
   
10. .局部变量 取半, 整数型
    
11. 
    
12. 整数 ＝ 123456
    
13. 时间 ＝ 取启动时间 ()
    
14. .判断开始 (整数 ％ 2 ＝ 0)
    
15.     取半 ＝ 整数 ÷ 2 ＋ 1
    
16. .默认
    
17.     取半 ＝ (整数 ＋ 1) ÷ 2
    
18. .判断结束
    
19. .计次循环首 (取半, 计数)
    
20.     .如果真 (计数 ＝ 取半)
    
21.         计数 ＝ 整数
    
22.     .如果真结束
    
23.     .如果真 (整数 ％ 计数 ＝ 0)
    
24.         调试输出 (到文本 (整数) ＋ “/” ＋ 到文本 (计数) ＋ “=” ＋ 到文本 (整数 ÷ 计数))
    
25.     .如果真结束
    
26. 
    
27. .计次循环尾 ()
    
28. 调试输出 (“消耗时间(秒)：” ＋ 到文本 ((取启动时间 () － 时间) ÷ 1000))
    
29. 返回 (0)  ' 可以根据您的需要返回任意数值
    

复制代码

没上网搜取因数算法的情况下，我只记得这个。循环到一半的数字就可以了，复杂程度直接减半。