kerb 发表于 2016-10-20 23:22 这个我知道,但是找一百以内的素数没有必要优化 |
楚香饭 发表于 2016-10-21 09:44 原来是这样,改了之后就对了,谢谢 |
第22行,图片中第24行 integer :: j,k=2 改为 integer :: j,k k=2 前者 k=2 是第一次赋值。后者 k=2 是每次都赋值。 |
子过程中,定义时赋值(24行,k),变量具有save属性。拆开写: integer j, k k=2 |
本帖最后由 kerb 于 2016-10-20 23:24 编辑 这种判别质数效率比较低 |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-4-20 22:02