请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
阅读下列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
答案
更多“阅读下列FORTRAN程序：S（X)=2*X*X-Y+1.0DATAA，B，Y/3*2.0/P=S（A)*S（B-A)4-S（Y)-S（B)WRITE（*，*) PEN”相关的问题
第1题
阅读下列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
第2题
阅读下列FORTRAN程序： DIMENSION A(6) READ(*，*) (A(I)，I=1，6) DO 10 K=1，3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*，20)(A(I)，I=1，6) 20 FORMAT (1X，2I) END 上述程序运行时，若由键盘输入1，2，3，4，5，6，则输出的结果为()。
A．1 2 3 4 5 6
B．1 4 2 5 3 6
C．6 5 4 3 2 1
D．6 3 5 2 4 1
第3题
阅读下列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
第4题
阅读下列FORTRAN程序： DIMENSION A(6) READ(*，*)(A(I)，I=1，6) DO 10 K=1，3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*，20)(A(I)，I=1，6) 20 FORMAT(1X，2I) END 上述程序运行时，若由键盘输入1，2，3， 4，5，6，则输出的结果为()。
A．1 2 3 4 5 6
B．1 4 2 5 3 6
C．6 5 4 3 2 1
D．6 3 5 2 4 1
第5题
阅读下列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
第6题
阅读下列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
第7题
阅读下列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
第8题
阅读下列FORTRAN程序： M=3 DO K=1，M M=5 WRITE(*，*) K，M ENDDO END 上述程序的运行结果是()。
A．1 5 2 5 3 5 4 5 5 5
B．1 5 2 5 3 5
C．编译出错，不能运行
D．1 3 2 3 3 3
第9题
(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
第10题
阅读下列FORTRAN程序： DO I=1，5 SUM=SUM+I ENDDO WRITE(*，*) SUM END 上述程序运行后，输出结果是()。
A．15
B．15.0
C．不确定
D．0
