早教吧作业答案频道 -->其他-->
请问如何写一个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...的网友还看了以下：
一个质量为m=0.5kg,长为L=0.5m,宽为d=0.1m,电阻R=0.1Ω的矩形线框,从h1= 2020-05-12 …
设f（x，y）在（0，0）处连续，limx，y→0f(x，y)-1ex2+y2-1=4，则（）A. 2020-05-14 …
如图,将电动势为E=6V,内阻r=0.5Ω的电源,与一粗细均匀的电阻丝AB相连.电阻丝长度L=0. 2020-05-16 …
已知a、b、c、d都是实数,且a^2+b^2=r^2,c^2+d^2=R^2(r>0,R>0)求证 2020-05-19 …
已知通用气体常数R=0.08206L.atm.mol-1.k-1,试以法定单位J.mol-1.k- 2020-06-27 …
理论力学,主矩与主失的问题.1、一平面力系向点1简化时,主矢R≠0,主矩M1=0.若将该力系向另一 2020-07-02 …
信号与系统中的冲激函数匹配法为什么有的是r(0+)-r(0-)=a,有的是r(0+)-r(0-)= 2020-07-05 …
r是相关系数，则下列结论正确的是()①r∈［-1-0.75］时，两变量负相关很强②r∈［0.751 2020-08-02 …
求解二元二阶微分方程组m(r''-(θ')²r)=-k(r-R)θ'r²=ωr(0)²r(0)=kR 2020-11-26 …
△=0,△＜0时一元二次方程ax2+bx+c=0（a＞0）的根根需要用字母代表出来△>0,△=0,△ 2020-12-27 …