新手上路Fortran初编程,不知问题在哪,怎么改?programmainLOGICALPP=.FALSE.READ*,MI=2K=sqrt(M)DO10WHILE(.NOT.P.AND.I.LE.K)IF(MOD(M,I).EQ.0)P=.TRUE.10CONTINUEIF(P)THENPRINT*,M,'不是素数!'ELSEPRINT*,M,'是素数!'ENDIF

Question

新手上路 Fortran初编程,不知问题在哪,怎么改?
program main
LOGICAL P
P=.FALSE.
READ *,M
I=2
K=sqrt(M)
DO 10 WHILE(.NOT.P.AND.I.LE.K)
IF(MOD(M,I).EQ.0)P=.TRUE.
10 CONTINUE
IF (P) THEN
PRINT*,M,'不是素数!'
ELSE
PRINT*,M,'是素数!'
ENDIF
END
--------------------Configuration:xm3 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\new3\chengxu2\xm3.f90
C:\Program Files\Microsoft Visual Studio\MyProjects\new3\chengxu2\xm3.f90(29) :Warning:Arguments' data types are incompatible with intrinsic procedure,assume EXTERNAL.[SQRT]
K=sqrt(M)
--^
Linking...
xm3.obj :error LNK2001:unresolved external symbol _SQRT@4
Debug/xm3.exe :fatal error LNK1120:1 unresolved externals
Error executing link.exe.
xm3.exe - 2 error(s),1 warning(s)

Answer 1

Program www_fcode_cn  Implicit None  integer :: i , j , k , m  Logical p  p = .False. &nbs...