- 单选题 阅读FOKFKAN程序： READ（*， *）N DO 10K-1，N A=S+K**2 10 CONTINUEWRITE（*，100）S 100 FORMAT（2X，F8.0） END键盘输入5则程序运行后的辅出结果是：
- A 、35
- B 、-145
- C 、65
- D 、55
扫码下载亿题库
精准题库快速提分
参考答案【正确答案：D】
当K=5时，S的值为30+52=55。
您可能感兴趣的试题- 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程序： 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
热门试题换一换
- 在一容器中，反应，恒温条件下达到平衡后，加一定量Ar气体保持总压力不变，平衡将会：
- 图示电路中，若时，电阻元件上的电压为0，则：
- 图示1-5-18电路原处于稳定状态，t=0时刻闭合开关S，电流i（t）应为下列哪项数值？（ ）
- 图示电路中，，要使电路达到临界阻尼情况，则互感值M应为（ ）。
- 按照《建筑法》规定，建设单位申领施工许可证，应该具备的条件之一是：
- 图示两电路相互等效，由图(b)可知， 流经电阻的电流In=1A，由此可求得流经图(a)电路中电阻的电流I等于：（）。
- 图示正方形截面等直杆，抗弯截面模量为W，在危险截面上，弯矩为M，扭矩为Mn, A点处有最大正应力σ和最大剪应力T。若材料为低碳钢，则其强度条件为：
- 图示电网为均一网络，线路单位长度参数0.1+j0.4Ω/km，图中电源a点电压36. 7kV，b、c节点的负荷为10+j7MVA和8+j6MVA，网络潮流分布的有功分点，无功分点为（）。
- 某建设项目甲建设单位与乙施工单位签订施工总承包合同后，乙施工单位经甲建设单位认可，将打桩工程分包给丙专业承包单位，丙专业承包单位又将劳务作业分包给丁劳务单位，由于丙专业承包单位从业人员责任心不强，导致该打桩工程部分出现了质量缺陷，对于该质量缺陷的责任承担，以下说明正确的是：
- 如图所示，优先权编码器74148有8条输入线0~7 , 3条输出线A0~A2。当GS为0时编码器输出有效，E1为0时允许模块工作。请问当输入线6为0 ,其余输入线为1时，则输出A2、A1、A0的状态分别为（ ）。
- 由555定时器组成的脉冲发生电路如图所示，电路的振荡频率为（ ）。
亿题库—让考试变得更简单
已有600万用户下载
431lB