阅读下列FORTRAN程序:READ(*,10)A,B,C10FORMAT(1X,F3.1,2X,2F3.2)WRITE(*,*)BEND如果在执行该程序时从键盘输入1234567890↙(其中↙为回车键)则运行后输出的B值为:()。
A.7.89
B.6.78
C.4.56
D.0.67
A.7.89
B.6.78
C.4.56
D.0.67
第1题
(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
第2题
阅读下列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
第3题
阅读以下 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
第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程序: 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
第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题
(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
第9题
阅读下列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
第10题
阅读下列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
第11题
(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