230问答网 > 用FORTRAN90编写一个判断素数的函数子程序，在主程序中输入2个整数M1和M2,并输出[M1,M2]上的全部素数

用FORTRAN90编写一个判断素数的函数子程序，在主程序中输入2个整数M1和M2,并输出[M1,M2]上的全部素数

2024-12-31 14:19:59

推荐回答（1个）

回答1：

IMPLICIT NONE
INTEGER::M1,M2,I,J
WRITE(*,*) '请输入两个整数'
READ(*,*) M1, M2
CALL PD()

CONTAINS
!---------
SUBROUTINE PD()
IC: DO I=M1,M2
DO J=2,INT(SQRT(1.0*I))
IF(MOD(I,J)==0) CYCLE IC
ENDDO
WRITE(*,*) I
ENDDO IC
END SUBROUTINE
END
! 程序已经调试通过，保证没有问题，请放心使用。