- 单选题阅读下列FORTRAN程序: INTEGER X(7) DATAX/4,5, 7, 8, 10,12,11/DO 10K=1, 7IF(MOD(X(K),2).NE .0)THEN S=S+X(K) N=N+1 END IF 10 CONTINUE T=S/N WRITE(*.20)S, T20 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
扫码下载亿题库
精准题库快速提分
参考答案
【正确答案:A】
此题为将读入的奇数相加,并除以奇数的个数。即5+7+11=23,23/3=7.7。
您可能感兴趣的试题
- 1 【单选题】阅读 下列FORTRAN程序:DIMENSION M (6)READ(*,*)MDO 10J=1,6DO 10K=J,6IF(M (K) .LT.M (J) )THENN=M(K)M(K)=M(J)M(J)=NEND IF10 CONTINUEWRITE(*,100)(M(),I=1,6)100 FORMAT(2X,614)END键盘输入10,7,9,2,1,3;程序运行后的输出结果是:
- A 、1237910
- B 、109732 1
- C 、7921310
- D 、31297 10
- 2 【单选题】阅读下列FORTRAN程序:MQIUH=N (5) +N (10)WRITE(*,’(2X, 15)’)MQIUHENDFUNCTION N (K)N=0DO 10 J=1,kN=N+J10 CONTINUERETURNEND程序运行后的结果是:
- A 、65
- B 、85
- C 、90
- D 、70
- 3 【单选题】 阅读FORTRAN程序DIMENSI0N M(4, 3)DATE M/-10, 12, 24, 11, 20, -15, 61, 78, 93,30, 44, -45/ N(M(1,1)DO 10I=1,4DO 10J=1,3IF (M(I, J).LT.N) THENN=M(I, J)K1=IK2=JENDIF10 CONTINUEWRITE (*,’(2x,314)’)N,K1,K2程序运行后的输出结果是:
- A 、93,3, 1
- B 、-10, 1, 1
- C 、-45,4,3
- D 、78,3,2
- 4 【单选题】阅读以下FORTRAN程序READ(,*)M, NK=MOD(M,N)10 IF(K.GT.0)THENM=NN=KK=MOD(M,N)COTO 10END IFWRITE(t*,*)NEND若运行以上程序时,由键盘输入: 25,11则程 序输出为()。
- A 、3
- B 、2
- C 、1
- D 、0
- 5 【单选题】阅读下列FORTRAN程序NTECER x(s, 3),ADATA X/1,2,3,4,5,6, 7,8,9/DO 10 I=1, 3DO 10 J=I+1,3A=X(I, J)X(I, J)=X(J, I) .X(J, I)=A .10 CONTINUEWRITE (*, 20) ((X(I,J),J=1,8),I=1, 3)20 FORMAT(1x, 312)END运行_上述程序后,其输出是()
- A 、
- B 、
- C 、
- D 、
- 6 【单选题】阅读以下FORTRAN程序:READ(*.*)MIF(M.LT. 100.AND.M.GT999) STOPK=M/100L=(M-K*100)10N=M-K*100-L*10MM=K+NWRITE(*,(2X,13)) MMEND键盘输入600,则程序的输出结果是:
- A 、8
- B 、3
- C 、7
- D 、6
- 7 【单选题】阅读以下FORIRAN程序:程序运行的结果是:
- A 、10 20 45 70 80 15 14
- B 、14 20 45 70 80 1510
- C 、80 20 45 70 1015 14
- D 、20 45 70 8015 14 10
- 8 【单选题】阅读 FORTRAN程序: READ(*,") I,J,KDO 10N=1,2]=I+J+KJ=I+K+JK=I+J+K10 CONTINUEWRTTE(*.20) I,J,K20 FORMAT(2X,315)END键盘输入1, 0, 0则程序运行后的输出结果是:
- A 、4713
- B 、234
- C 、112
- D 、6915
- 9 【单选题】阅读以下FORTRAN程序: K1=M(5) K2=M(K1) K3=M(K1)+M(K2) K4=M(K1+K2+K3)WRITE(*,100)K4 100 FORMAT(2X, 'K4'=', 13) END FUNCTION M(N) M=N+1 RETURN END 程序的输出结果是:
- A 、K4=28
- B 、K4=27
- C 、K4=30
- D 、K4=29
- 10 【单选题】阅读FORTRAN程序: OPEN(8, FILE='FILE2+DA'T, STATUS='NEW')DO 101=1, 3 WRITE(8,(414))(J+1, J=1, 4) 10 CONTINUE CL OSE(8) END程序运行后。数据文件FILE2 .AT的内容是:
- A 、2345 3456 4567
- B 、1234 5 6789 10 11 12
- C 、1234 2345 3456
- D 、1111 2222 3333
热门试题换一换
- 如图1-1-32所示,直流电路中的大小为( )。图1-1-32
- 某工程设计有四个方案,在进行方案选择时计算得出:甲方案功能评价系数0. 85,成本系数0. 92;乙方案功能评价系数0. 6,成本系数0. 7;丙方案功能评价系数0. 94,成本系数0.88;丁方案功能评价系数0. 67,成木系数0. 82。则最优方案的价值系数为()。
- 结构如图所示,杆DE的点H由水平闸拉住,其上的销钉C置于杆AB的光滑直槽中,各杆自重均不计,已知。销钉C处约束力的作用线与x轴正向所成的夹角为()。
- 当点运动时,若位置矢大小保持不变,方向可变,则其运动轨迹为:()。
- 最概然速率vp的物理意义是:()。
- 系统接线如图所示,系统等值机参数不详。已知与系统相接变电站的断路器的开断容量是1000MVA,求f点发生三相短路后的短路点的冲击电流(kA)。(取Sb = 250MVA) ()
- 图示电路中,开关S闭合前电路已经处于稳态,当t=0时,S闭合,S闭合后的uc(t)是()。
- 元素的标准电极电势图如下:在空气存在的条件下,下列离子在水溶液中最稳定的是:
亿题库—让考试变得更简单
已有600万用户下载