阅读下列FORTRAN77程序:PI=3.14159265WRITE(*,‘(F7.4)’)PIEND程序运行后输出结果是()。(A) 3.142(
阅读下列FORTRAN77程序:
PI=3.14159265
WRITE(*,‘(F7.4)’)PI
END
程序运行后输出结果是()。
(A) 3.142
(B) 3.1415
(C) 0.31416
(D) 3.1416
阅读下列FORTRAN77程序:
PI=3.14159265
WRITE(*,‘(F7.4)’)PI
END
程序运行后输出结果是()。
(A) 3.142
(B) 3.1415
(C) 0.31416
(D) 3.1416
阅读下列FORTRAN77程序:
DIMENSIONM(3,4)
DATAM/4*2,4*1,4*-1/
N=0
D010K=1,4
10N=N十M(1,K)
WRITE(*,*)N
END
运行上述程序后,输出的N的值为()。
(A) 8
(B) 5
(C) 4
(D) 3
阅读下列FORTRAN77程序: INTEGER A(3,3) DATA A/1,2,3,4,5,6,7,8,9/ S=0.0 DO 10 I=1,3 J=MOD(I,3)+1 S=S+A(I,J) 10 CONTINUE WRITE(*,*)S END 上述程序运行后,输出的S值为()。
A.15.0
B.12.0
C.18.0
D.24.0
阅读下列FORTRAN77程序:
INTEGERA(3,2)
READ(*,100)A
100FORMAT(2I3)
WRITE*,*)A
END
运行后要使A(1,2)的值为2,正确的键盘输入为(其中口为空格)()。
(A) □□1□□2
□□3□□4
□□5□□6
(B) □□1□□2□□3
□□4□□5□□6
(C) □□1□□3□□5
□□2□□4□□6
(D) □□1□□3
□□5□□2
□□4□□6
A.0
B. 3
C. 2
D. 4
阅读下列FORTRAN77程序:
DIMENSIONP(3,3)
D010K=1,3
D010J=1,3
10P(K,J)=(K-1)*3+J
CALLSUB(P(2,1),3,X)
WRITE(*,*)X
END
SUBROUTINESUB(Q,N,P)
DIMENSIONQ(N)
P=0.0
D0100K=1,N
100P=P+Q(K)
END
运行上述程序后,输出的x值为()。
(A) 12.0
(B) 15.0
(C) 16.0
(D) 13.0
阅读下列FORTRAN77程序: PARAMETER(L=3) INTEGER N(L) DATA N/3*0/ DO 20 I=1,L DO 20 J=1,L N(J)=N(I)+l 20 CONTINUE WRITE(*,*)N(L) END 上述程序运行后,输出的值为()。
A.3
B.5
C.7
D.9
阅读下列FORTRAN77程序:
F=1.0
D020K=3,7,3
20WRTTE(*,(I3,F8.1)K,K*K
END
程序运行结果的最后一行是()。
(A) 36.0
(B) 66.0
(C) 6180.0
(D) 7180.0
阅读下列FORTRAN77程序: READ(*,*)A B=0.0 IF (A.GE.1.0) THEN B=B+2.0 END IF IF (A.GE.2.0) B=B-1.0 WRITE(*,*) B END 在执行时,从键盘输入 5.0<回车>则输出的B值为
A. 2.0
B. -1.0
C. 0.0
D. 1.0
阅读下列FORTRAN77程序:
INTEGERAA(2.3)
DATAAA/1,2,3,4,5,6/
CALLS2D19(AA)
CALLS2D19(AA(1,2))
END
SUBROUTINES2D19(BB)
INTEGERBB(2,2)
WRITE(*,'(1X,2I3)’)BB(1,1),BB(2,2)
END
程序运行结果是()。
(A)14
(B)15
3626
(C)14
(D)12
2534
阅读下列FORTRAN77程序:
READ(* , *)X
IF(X.LE.0) THEN
Y=0.0
ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THEN
Y= 1/X
ELSE IF (X.LE.10.0) THEN
Y=1/(X+2)
ELSE
Y = 10.0
END IF
WRITE(* , *)Y
END
上述程序运行时,由键盘输入2,则输出的结果为()。
A.0.5
B.0.25
C.10.0
D.0.0
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!