阅读以下FORTRAN程序:READ(*,*)M,NK=MOD(M,N)10IF(K.GT.0)THENM=NN=KK=MOD(M,N)COTO10ENDIFWRITE
阅读以下FORTRAN程序:
READ(*,*)M,N
K=MOD(M,N)
10IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
COTO10
ENDIF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入:25,11则程序输出为()。
(A)3
(B)2
(C)1
(D)0
阅读以下FORTRAN程序:
READ(*,*)M,N
K=MOD(M,N)
10IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
COTO10
ENDIF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入:25,11则程序输出为()。
(A)3
(B)2
(C)1
(D)0
阅读以下FORTRAN程序
READ(*,*)M,N
K=MOD(M,N)
M=N
N=K
K=MOD(M,N)
GOTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时,由键盘输入25,11,则程序输出为()。
A.3
B.2
C.1
D.0
阅读以下 FORTRAN 程序:
READ(* , *)X
IF(X , LE , 0)RHEN
Y=0.0
ELSEIF(X , LT , 5 , 0) , AND , (X , NE , 2 , 0)THEN
Y=1 / X
ELSEIF(X , LE , 10 , 0)THEN
Y=1 / (X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(* , *)Y
END
运行上述程序时,若由键盘输入: 2 ,则程序输出结果为 () 。
(A)0.0
(B)0.5
(C)0.25
(D)10.0
阅读下列FORTRAN程序: READ(*,*)SCARE IF(SCARE.GE.85.0)WRITE(*,*)‘Very Good!’ IF(SCARE.GE.75.0)WRITE(*,*)‘Good!’ IF(SCARE.GE.60.0)WRITE(*,*)‘Pass!’ IF(SCARE.LT.60.0)WRITE(*,*)‘Pass!’ 在执行上述程序时,如果从键盘输入: 75.0↙ 则运行后输出结果为()。
A.GOOd!
B.Pass!
C.Good Pass!
D.Very GOOd Pass!
阅读FORTRAN程序:
READ(*,*)N
D0 10 K=1,N
S=S+K**2
10 CONTINUE
WRITE(*,l00)S
100 FORMAT(2X,F8.O)
END
键盘输入5则程序运行后的输出结果是()。
A.35
B.45
C.65
D.55
阅读下列FORTRAN程序: LOGICAL P,Q READ(*,100)P,Q 100 FORMAT(2L4) F(P) THEN Y=1.0 ELSE IF(Q) THEN Y=2.0 ELSE IF(.NOT.P.OR.Q)THEN Y=3.0 ELSE Y=0.0 VENDIF WRITE(*,*) Y END 在执行上述程序时,由键盘输入FABDTXYZ,最后输出的Y值为()。
A.0.0
B.1.0
C.2.0
D.3.0
A.7.89
B.6.78
C.4.56
D.0.67
阅读下列FORTRAN程序: DIMENSION A(6) READ(*,*)(A(I),I=1,6) DO 10 K=1,3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*,20)(A(I),I=1,6) 20 FORMAT(1X,2I) END 上述程序运行时,若由键盘输入1,2,3, 4,5,6,则输出的结果为()。
A.1 2 3 4 5 6
B.1 4 2 5 3 6
C.6 5 4 3 2 1
D.6 3 5 2 4 1
(2008年) 已知顺序数据文件FILE3.DAT有如下数据: 50,54,64,55 65,70,85,90 46,73,60,72 阅读FORTRAN程序: DIMENSION M(12) OPEN(10,FILE=‘FILE3.DAT’) READ(10,*)(M(I),I=1,12) DO 10 J=1,12 IF(M(J).GE.60) N=N+1 10 CONTONUE WRITE(*,20)N 20 FORMAT(2X,‘N=’,N) END 程序运行后的输出结果是()。
A.N=7
B.N=8
C.N=4
D.N=9
以下是计算N!(N的阶乘)的FORTRAN程序: READ(*,*)N DO 10 K=1,N 10 S=S(*)K END 为使程序完整,应在横线处放入()。
A.S=1
B.S=N
C.S=0
D.什么都不放
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!