精易论坛

标题: 超简单求质数,相比其它源码要更容易理解 [打印本页]

作者: 詠不言敗    时间: 2017-5-6 18:39
标题: 超简单求质数,相比其它源码要更容易理解
本帖最后由 詠不言敗 于 2017-5-6 18:40 编辑

我看过其它求质数的源码,看起来好复杂,于是自己突发奇想,发现其实很简单,能整除的包括1和数值本身超过2个必定不是质数,于是乎:
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
是否质数逻辑型 是质数返回真,否则返回假
参数名类 型参考可空数组备 注
参数整数型
变量名类 型静态数组备 注
i整数型 
a整数型 
如果真 (参数 = 1)
返回 ()
计次循环首 (参数, i)
如果真 (参数 % i = 0)
a = a + 1
如果真 (a ≥ 3)
跳出循环 ()

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

子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
i整数型 
计次循环首 (100, i)
如果真 (是否质数 (i))
列表框1.加入项目 (到文本 (i), )

计次循环尾 ()
↑这是求1到100质数的源码



求1到100的质数.e (3.11 KB, 下载次数: 14)
别担心循环影响效率,我做了跳出循环()处理

作者: 已注销370852    时间: 2017-5-6 18:53
提示: 作者被禁止或删除 内容自动屏蔽
作者: 詠不言敗    时间: 2017-5-6 19:07
如枫随风TYZ 发表于 2017-5-6 18:53
给你个最简洁的

就是改进版!!!
作者: 詠不言敗    时间: 2017-5-6 20:50
如枫随风TYZ 发表于 2017-5-6 18:53
给你个最简洁的

看了你的改进版之后,发现我的a没必要,直接判断i就可以了
作者: runming    时间: 2017-5-8 07:16
感谢大神的分享啊




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4