阅读下列FORTRAN程序:DO20K=2,5,2S=1.0DO10J=K,510S=S+J20CONTINUE*WRITE(*,*) SEND执行上述程序
阅读下列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
阅读下列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
第1题
阅读下列FORTRAN程序: DO I=1,5 SUM=SUM+I ENDDO WRITE(*,*) SUM END 上述程序运行后,输出结果是()。
A.15
B.15.0
C.不确定
D.0
第2题
阅读下列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
第3题
(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
第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 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
第6题
阅读下列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!
第7题
阅读下列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
第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(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
第10题
阅读下列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