早教吧作业答案频道 -->其他-->
请问如何写一个fortran程序计算1到1000000里面总共有几个素数?
题目详情
请问如何写一个fortran程序计算1到1000000里面总共有几个素数?
▼优质解答
答案和解析
IMPLICIt NONE
LOGICAL Y
INTEGER::N=0,I,J,K
DO I=2,1000000
CALL PRIME(I,Y)
IF(Y) N=N+1
ENDDO
WRITE(*,*) '素数个数为：',N
CONTAiNS
SUBROUTINE PRIME(I,Y)
!判断素数的程序省略...
END SUNBROUTINE
END
LOGICAL Y
INTEGER::N=0,I,J,K
DO I=2,1000000
CALL PRIME(I,Y)
IF(Y) N=N+1
ENDDO
WRITE(*,*) '素数个数为：',N
CONTAiNS
SUBROUTINE PRIME(I,Y)
!判断素数的程序省略...
END SUNBROUTINE
END
看了 请问如何写一个fortran...的网友还看了以下：
答案要准确,要多少给多少!一、填空题：1、在计算567－67×5时,先算（）,再算（）,结果是（） 2020-04-07 …
两个同学各设计一个数据记录表格，而且都已完成了计算，你认为谁是对的？为什么？甲设计的表格是：次数θ 2020-04-07 …
一元一次方程计算题只要计算,要难一些.例如：（0.3x+70）除以0.03+（0.05x-20）除 2020-05-12 …
最小的自然数是0,最小的一位数是不是1?自然数表示物体个数,那么0也表示物体个数.如果有一种物体的 2020-05-15 …
计算素数个数【题目描述】 一个数组a[0]到a[n-1]存放有n个正整数,其中2≤n≤1000.先 2020-05-16 …
某同学做了一次较为精确的测定匀加速直线运动的加速度的实验,实验所得到的纸带如图所示,设0点是计数的 2020-05-17 …
excelvba统计表格中的计算数目如果在excel表格中输入=0.15*0.23+0.12*0. 2020-05-20 …
张大伯家的鱼塘中共捕捞出鲜鱼1000kg,其中鲢鱼占七分之二.如果将鲢鱼按每千克7元的价格卖给收购 2020-05-22 …
计数器的计数值不等于0时,计数器位为( );计数值为0时,计数器位为( )。A.0,0B.0,1C. 2020-06-07 …
头快晕了①计算0.1^2,1^2,10^2,100^2,观察这些结果,底数的小数点向左（右）移动一 2020-06-15 …