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

明天自然醒

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

yzl666

谢谢分享

亮蓝色的风

@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 /> 质数 ＝ 局_质数

q1512960733

你的速度挺快