14. 阅读以下FORTRAN程序: K1=M(5) K2=M(K1) K3=M(K1)+M(K2) K4=M(K1+K2+K3) WRITE(*,100)K4 100 FORMAT(2X,'K4=',I3) END FUNCTION M(N) M=N+1 RETURN END 程序的输出结果是______。
A.K4=28
B.K4=27
C.K4=30
D.K4=29
A B C D
D
15. 阅读下列FORTRAN程序: INTEGER X(7) DATA X/4,5,7,8,10,12,11/ DO 10 K=1,7 IF(MOD(X(K),2).NE.0)THEN S=S+X(K) N=N+1 END IF 10 CONTINUE T=S/N WRITE(*,20)S,T 20 FORMAT(20X,3F6.1) END 程序运行后的输出结果是______。
A.23.0 7.7
B.47.0 6.7
C.34.0 8.5
D.57.0 11.4
A B C D
A
16. 下面的子程序求一方阵的次对角线上的元素之和。 SUBROUTINE CDJX(M,N,K) DIMENSION M(N,50) DO 10 J=1,N K=______ 10 CONTINUE RETURN END 为了使程序完整,应在______处填入的是______。
A.K+M(J,J)
B.K+M(J,N+1-J)
C.K+M(N-J,J)
D.K+M(N+J,N-J)
A B C D
B
17. 阅读FORTRAN程序: OPEN(8,FILE='FILE2.DAT',STATUS='NEW') DO 10 I=1,3 WRITE(8,'(4I4)')(J+I,J=1,4) 10 CONTINUE CLOSE(8) END 程序运行后,数据文件FILE2.DAT的内容是______。
A.2 3 4 5 3 4 5 6 4 5 6 7
B.1 2 3 4 5 6 7 8 9 10 11 12
C.1 2 3 4 2 3 4 5 3 4 5 6
D.1 1 1 1 2 2 2 2 3 3 3 3
A B C D
A
18. 阅读FORTRAN程序: READ(*,*)N DO 10 K=1,N S=S+K**2 10 CONTINUE WRITE(*,100)S 100 FORMAT(2X,F8.0) END 键盘输入5则程序运行后的输出结果是______。