请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
阅读下列FORTRAN程序： S=1.0 DO 100 K=3，1，-1 DO 100 N=-1，-3 100 S=2*S WRITE(*，*) S END 运行上述程序后，输出的S值为()。
A．1.0
B．8.0
C．512.0
D．4.0
答案
更多“阅读下列FORTRAN程序： S=1.0 DO100K=3，1，-1 DO100N=-1，-3100S=2*S WRITE（*，*) S END运行上述程序”相关的问题
第1题
阅读下列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
第2题
阅读下列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
第3题
阅读下列FORTRAN程序： LOGICAL P，Q READ(*，100)P，Q 100 FORMAT(2L4) F(P) THEN Y=1.0 ELSE IF(Q) THEN Y=2.0 ELSE IF(.NOT.P.OR.Q)THEN Y=3.0 ELSE Y=0.0 VENDIF WRITE(*，*) Y END 在执行上述程序时，由键盘输入FABDTXYZ，最后输出的Y值为()。
A．0.0
B．1.0
C．2.0
D．3.0
第4题
阅读下列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
第5题
阅读下列FORTRAN程序： INTEGER S(2，4) ，A(2) DATA S/4*1，4*2/ CALL SUB(S，2，4，A) M=A(1) -A(2) WRITE(*，*) M END SUBROUTINE SUB(S，N，K，A) INTEGER S(N，K)，A(N) DO 20 I=1，N A(I)=0 DO 10 J=1，K 10 A(I)=A(I)+S(I，J) A(I)=A(I)/K 20 CONTINUE END 执行上述程序后，输出的M值为()。
A．0
B．1
C．2
D．3
第6题
阅读下列FORTRAN程序： DO I=1，5 SUM=SUM+I ENDDO WRITE(*，*) SUM END 上述程序运行后，输出结果是()。
A．15
B．15.0
C．不确定
D．0
第7题
(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
第8题
(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
第9题
阅读下列FORTRAN程序： REAL A(5) COMMON /CC/X DATA A/1，2，3，4，5/ X=0 Y=FUN(A，5) +FUN(A，5) WRITE(*，*) Y END FUNCTION FUN(A，N) REAL A(N) COMMON /CC/X X=X+1 F=1 DO 10 I=N，1 F=F+A(I) 10 CONTINUE FUN=F+X END 上述程序执行后，输出结果是()。
A．4.0
B．5.0
C．16.0
D．33.0
第10题
阅读下列FORTRAN程序： INTEGER M(3，3) DATA M/1，2，3，4，5，6，7，8，9/ DO 10 1=1，3 WRITE(*，100) (M(I，J)，J=1，I) 10 CONTINUE 10 FORMAT (1X，312) END 上述程序执行后，输出结果是()。
A．1 4 7 2 5 8 3 6 9
B．1 2 3 4 5 6 7 8 9
C．1 2 5 3 6 9
D．1 4 5 7 8 9
