精易论坛

标题: 找质数的~采用埃拉托斯特尼筛法 [打印本页]

---

作者: 亮蓝色的风    时间: 2022-8-31 09:11
标题: 找质数的~采用埃拉托斯特尼筛法


参考 埃拉托斯特尼筛法，简称埃氏筛或爱氏筛，是一种由古希腊数学家埃拉托斯特尼所提出的一种简单检定素数的算法。要得到自然数n以内的全部素数，必须把不大于根号n的所有素数的倍数剔除，剩下的就是素数。 求质数.e (4.6 KB, 下载次数: 18)

2022-8-31 09:10 上传

点击文件名下载附件
下载积分: 精币 -2 枚

修改了原先的一处错误，i+i 改为i×i
添加了一下平方根的方法
求质数2.e (7.43 KB, 下载次数: 11)

2022-8-31 14:41 上传

点击文件名下载附件
下载积分: 精币 -2 枚

---

作者: q1512960733    时间: 2022-8-31 10:08
你的速度挺快

---

作者: 亮蓝色的风    时间: 2022-8-31 11:08
@l1299587332 如果用平方根的方法，标记完后还要再循环一边来取出质数。速度会略慢

  

子程序名	返回值类型	公开	备 注
生成数集2

变量名	类 型	静态	数组	备 注
总数	整数型
i	整数型
数集	逻辑型		0
局_质数	整数型		0
j	整数型

总数 ＝ 到整数 (编辑框1.内容)
如果真 (总数 ≤ 0)
总数 ＝ 20000
编辑框1.内容 ＝ “20000”
重定义数组 (数集, 假, 总数)
调试输出 (到整数 (求平方根 (总数)) ＋ 1, 到整数 (求平方根 (总数 ＋ 0.5)))
变量循环首 (2, 到整数 (求平方根 (总数 ＋ 0.5)), 1, i)
如果真 (数集 [i] ＝ 假)
j ＝ i × i
判断循环首 (j ≤ 总数)
数集 [j] ＝ 真
j ＝ j ＋ i
判断循环尾 ()

变量循环尾 ()
变量循环首 (2, 总数, 1, i)
如果真 (数集 [i] ＝ 假)
加入成员 (局_质数, i)

变量循环尾 ()
质数 ＝ 局_质数

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 生成数集2<br /> .局部变量 总数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 数集, 逻辑型, , "0"<br /> .局部变量 局_质数, 整数型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> 总数 ＝ 到整数 (编辑框1.内容)<br /> .如果真 (总数 ≤ 0)<br />     总数 ＝ 20000<br />     编辑框1.内容 ＝ “20000”<br /> .如果真结束<br /> 重定义数组 (数集, 假, 总数)<br /> 调试输出 (到整数 (求平方根 (总数)) ＋ 1, 到整数 (求平方根 (总数 ＋ 0.5)))<br /> .变量循环首 (2, 到整数 (求平方根 (总数 ＋ 0.5)), 1, i)<br />     .如果真 (数集 <i> ＝ 假)<br />         j ＝ i × i<br />         .判断循环首 (j ≤ 总数)<br />             数集 [j] ＝ 真<br />             j ＝ j ＋ i<br />         .判断循环尾 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> .变量循环首 (2, 总数, 1, i)<br />     .如果真 (数集 <i> ＝ 假)<br />         加入成员 (局_质数, i)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 质数 ＝ 局_质数

---

作者: yzl666    时间: 2022-8-31 11:12
谢谢分享

---

作者: 明天自然醒    时间: 2022-8-31 11:20
.版本 2

.子程序 生成数集2, 文本型
.参数 总数, 整数型
.局部变量 i, 整数型
.局部变量 数集, 逻辑型, , "0"
.局部变量 j, 整数型
.局部变量 result, 文本型

重定义数组 (数集, 假, 总数)
.变量循环首 (2, 到整数 (求平方根 (总数 ＋ 0.5)), 1, i)
    j ＝ 2 × i
    .判断循环首 (j ≤ 总数)
        数集 [j] ＝ 真
        j ＝ j ＋ i
    .判断循环尾 ()
.变量循环尾 ()
.变量循环首 (2, 总数, 1, i)
    .如果真 (数集 [i] ＝ 假)
        result ＝ result ＋ 到文本 (i) ＋ “,”
    .如果真结束

.变量循环尾 ()
返回 (result)

你试试这个导入20w

---

作者: 59hdvj    时间: 2022-8-31 11:28
感谢分享

---

作者: reveriexue    时间: 2022-8-31 11:45

---

作者: 亮蓝色的风    时间: 2022-8-31 11:47
@l1299587332


按总数循环的方法 直接拼接文本 ，和平方根方法  这两种方式的循环次数差不多，效率不会有太大差别

---

作者: 夏亿    时间: 2022-8-31 12:48
感谢分享

---

作者: 亿万    时间: 2022-8-31 13:59
感谢分享

---

作者: ttggnn    时间: 2022-8-31 14:37
感谢分享

---

作者: 本森Bin    时间: 2022-9-1 08:45

感谢分享

---

作者: q1512960733    时间: 2022-9-1 09:25
支持支持

---

作者: 深圳梦    时间: 2022-9-1 20:42
支持开源~！感谢分享

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4