找质数的~采用埃拉托斯特尼筛法

亮蓝色的风 · 发表于 2022-8-31 09:11:49

本帖最后由亮蓝色的风于 2022-8-31 14:42 编辑

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

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

求质数2.e (7.43 KB, 下载次数: 11)

q1512960733 · 发表于 2022-8-31 10:08:40

你的速度挺快

亮蓝色的风 · 发表于 2022-8-31 11:08:02

@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	特殊功能支持库

yzl666 · 发表于 2022-8-31 11:12:36

谢谢分享

明天自然醒 · 发表于 2022-8-31 11:20:21

.版本 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:19

感谢分享

reveriexue · 发表于 2022-8-31 11:45:49

亮蓝色的风 · 发表于 2022-8-31 11:47:46

@l1299587332

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

夏亿 · 发表于 2022-8-31 12:48:54

感谢分享

亿万 · 发表于 2022-8-31 13:59:30

感谢分享

		自动登录	找回密码
密码			注册

[易语言纯源码] 找质数的~采用埃拉托斯特尼筛法

点评

评分

点评

评分