请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
(2008年) 阅读下列FORTRAN程序： MQIUH=N(5)+N(10) WRITE(*，‘(2X，15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1，K N=N+J 10 CONTINUE RETURN END 程序运行后的输出结果是()。
A．65
B．85
C．90
D．70
答案
更多“（2008年) 阅读下列FORTRAN程序： MQIUH=N（5)+N（10) WRITE（*，‘（2X，15)’)MQIUH END”相关的问题
第1题
(2008年)阅读下列FORTRAN程序： DIMENSION M(4，3) DATE M／-10，12，24，11，20，-15，61，78，93，30，44，-45／ N=M(1，1) DO 10 I=1，4 DO 10 J=1，3 IF (M(I，J)．LT．N)THEN N=M(I，J) K1=I K2=J ENFIF 10 CONTINUE WRITE(*，‘(2x，314)’)N，K1，K2 END 程序运行后的输出结果是()。
A．93，3，1
B．-10，1，1
C．-45，4，3
D．78，3，2
第2题
阅读下列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!
第3题
(2008年) 阅读下列FORTRAN程序： DIMENSION M(6) READ (*，*)M DO 10 J=1，6 D0 10 K=J，6 IF(M(K)．LTM(J)THEN N=M(K) M(K)=M(J) END IF 10 CONTINUE WRITE(*，100)(M(I)，I=1，6) 100 FORMAT(2X，614) END 键盘输入10、7、9、2、1、3；程序运行后的输出结果是()。
A．1 2 3 7 9 10
B．10 9 7 3 2 1
C．7 9 2 1 3 10
D．3 1 2 9 7 10
第4题
(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
第5题
阅读下列FORTRAN程序： DO I=1，5 SUM=SUM+I ENDDO WRITE(*，*) SUM END 上述程序运行后，输出结果是()。
A．15
B．15.0
C．不确定
D．0
第6题
阅读下列FORTRAN程序： CHARACTER A*5 A='ABCDE' CALL S(A) END SUBROUTINE S(X) CHARACTER X*3 WRITE(*，*)X END 执行上述程序后，输出的X值为()。
A．'AB
B．DE'
C．CDE
D．ABC
第7题
阅读下列FORTRAN程序： DO 20 K=2，5，2 S=1.0 DO 10 J=K，5 10 S=S+J 20 CONTINUE* WRITE(*，*) S END 执行上述程序后，输出的S值为()。
A．9.0
B．1.0
C．24.0
D．10.0
第8题
阅读下列FORTRAN程序： S(X)=2*X*X-Y+1.0 DATA A，B，Y/3*2.0/ P=S(A)*S(B-A)4-S(Y)-S(B) WRITE(*，*) P END 上述程序运行后，输出的P值为()。
A．9.0
B．-9.0
C．7.0
D．-7.0
第9题
阅读下列FORTRAN程序： DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*-1.0/ S=0.0 DO 20 K=1，3 D=A(K，1) DO 10J=2，4 IF(A(K，J)＜D) D=A(K，J) 10 CONTINUE S=S+D 20 CONTINUE WRITE(*，*) S END
A．-15.0
B．-12.0
C．9.0
D．6.0
第10题
阅读下列FORTRAN程序： INTEGER P P=0 DO 10 I=0,10,3 DO 10 J=5,100,20 DO 10 K=-10,-5 10 P=P+1 WRITE(*，*)P END 上述程序运行时，运算的结果为()。
A．0
B．24
C．120
D．144
