bshy.net
当前位置:首页>>关于请问如何写一个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

网站首页 | 网站地图
All rights reserved Powered by www.bshy.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com