阅读下列FORTRAN程序:INTEGER PP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-510P=P+1WRITE(*,*)PEN
阅读下列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
阅读下列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
阅读下列FORTRAN程序: DO I=1,5 SUM=SUM+I ENDDO WRITE(*,*) SUM END 上述程序运行后,输出结果是()。
A.15
B.15.0
C.不确定
D.0
阅读下列FORTRAN程序:
S=1.0
D010K=2,4,2
10S=S+1.0/K
WRITE(*,*)S
END
执行上述程序后,输出的S值为()。
(A)0.75
(B)1.75
(C)0.0
(D)1.0
阅读下列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
阅读下列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
(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
阅读下列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程序: 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!
阅读下列FORTRAN程序:
DIMENSIONA(3)
DATAA/3.0,2.0,1.0/
X=F(A)
WRITE(*,100)X
100FORMAT(1X,F3.1)
END
FUNCTIONF(B)
DIMENSIONA(3),B(3)
DO10I=1,3
10A(1)=B(1)-I
F=A(1)+A(2)+A(3)
X=1.0-F
END
执行上述程序后,输出的X值为()。
(A) 1.0
(B) 0.0
(C) 6.0
(D) -5.0
阅读下列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
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!