单项选择题

阅读FORTRAN程序: OPEN(8,FILE='FILE2+DA'T',STATUS='NEW') DO 10 I=1,3 WRITE(8,'(414)')(J+I,J=1,4) 10 CONTINUE CLOSE(8) END 程序运行后。数据文件FILE2.AT的内容是:

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
<上一题 目录 下一题>
热门 试题

单项选择题
下面的子程序求一方阵的次对角线上的元素之和。 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)
单项选择题
阅读下列FORTRAN程序: INTEGER X(7) DATA X 4,5,7,8,10,12,11 DO 10K=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(2X,3F6.1) END 程序运行后的输出结果是:
A. 23.0 7.7
B. 47.0 6.7
C. 34.0 8.5
D. 57.0 11.4
相关试题
  • 当图示电路的激励电压时,电感元件上的响应...
  • 两重物的质量均为m,分别系在两软绳上,此...
  • 单摆由长ι的摆杆与捶锤A组成,其运动规律...
  • 容器内储有一定量的理想气体,若保持容积不...
  • 开展价值工程活动的目的是: