超简单求质数，相比其它源码要更容易理解

詠不言敗

我看过其它求质数的源码，看起来好复杂，于是自己突发奇想，发现其实很简单，能整除的包括1和数值本身超过2个必定不是质数，于是乎：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
是否质数	逻辑型		是质数返回真，否则返回假
参数名	类 型	参考	可空	数组	备 注
参数	整数型

变量名	类 型	静态	数组	备 注
i	整数型
a	整数型

如果真 (参数 ＝ 1)
返回 (假)
计次循环首 (参数, i)
如果真 (参数 ％ i ＝ 0)
a ＝ a ＋ 1
如果真 (a ≥ 3)
跳出循环 ()

计次循环尾 ()
如果 (a ≥ 3)
返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (100, i)
如果真 (是否质数 (i))
列表框1.加入项目 (到文本 (i), )

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 是否质数, 逻辑型, , 是质数返回真，否则返回假<br /> .参数 参数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 a, 整数型<br /> <br /> .如果真 (参数 ＝ 1)<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (参数, i)<br />     .如果真 (参数 ％ i ＝ 0)<br />         a ＝ a ＋ 1<br />     .如果真结束<br />     .如果真 (a ≥ 3)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果 (a ≥ 3)<br />     返回 (假)<br /> .否则<br />     返回 (真)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (100, i)<br />     .如果真 (是否质数 (i))<br />         列表框1.加入项目 (到文本 (i), )<br />     .如果真结束<br /> <br /> .计次循环尾 ()

↑这是求1到100质数的源码



求1到100的质数.e (3.11 KB, 下载次数: 12)

2017-5-6 18:36 上传

点击文件名下载附件
别担心循环影响效率，我做了跳出循环()处理

runming

感谢大神的分享啊

詠不言敗

如枫随风TYZ 发表于 2017-5-6 18:53
给你个最简洁的

看了你的改进版之后，发现我的a没必要，直接判断i就可以了

詠不言敗

如枫随风TYZ 发表于 2017-5-6 18:53
给你个最简洁的

就是改进版！！！

已注销370852

给你个最简洁的

1. .版本 2
   
2. 
   
3. .子程序 是否为质数, 逻辑型
   
4. .参数 cs_参数, 整数型
   
5. .局部变量 jb_计次, 整数型
   
6. 
   
7. .变量循环首 (2, cs_参数 － 1, 1, jb_计次)
   
8.     .如果真 (cs_参数 ％ jb_计次 ＝ 0)
   
9.         跳出循环 ()
   
10.     .如果真结束
    
11. 
    
12. .变量循环尾 ()
    
13. 返回 (jb_计次 ＝ cs_参数)
    

复制代码