阅读下列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
阅读下列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.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
第1题
阅读下列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
第2题
阅读下列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
第3题
阅读下列FORTRAN程序
INTEGERX(3,3),A
DATA X/1,2,3,4,5,6,7,8,9/
DO 10 I=1,3
DO 10 J=I+1,3
A=X(I,J)
X(I,J)=x(J,I)
X(J,I)=A
10 CONTINUE
20 WRITE(*,20)((X(I,J),J:l=3),I=1,3)
20 FORMAT(1X,3I2)
END
运行上述程序后,其输出是()。
(A) 1 4 7
2 5 8
3 6 9
(B) 1 2 3
4 5 6
7 8 9
(C) 9 6 1
8 5 2
7 4 3
(D) 9 8 7
6 5 4
3 2 1
第4题
阅读以下 FORTRAN 程序:
READ(* , *)X
IF(X , LE , 0)RHEN
Y=0.0
ELSEIF(X , LT , 5 , 0) , AND , (X , NE , 2 , 0)THEN
Y=1 / X
ELSEIF(X , LE , 10 , 0)THEN
Y=1 / (X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(* , *)Y
END
运行上述程序时,若由键盘输入: 2 ,则程序输出结果为 () 。
(A)0.0
(B)0.5
(C)0.25
(D)10.0
第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程序: 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
第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