随笔分类 -  算法类

Fortran 埃氏筛法统计1亿以内素数的个数
摘要：program main integer(4) :: i,j,k,m,n,d integer(4),parameter :: mx=100000000,mx1=mx*1.1 integer(1) :: a(mx1) ! mx1拓展数组，防止写溢出 x=timef() ! 计时开始 a=0 ! a标记 阅读全文
posted @ 2021-10-17 19:37 cijing 阅读(281) 评论(0) 推荐(0)