阅读下列FORTRAN77程序: READ(*,*) P,Q X=MOD(Q,P) 10 IF (ABS(X).GT.0.1) THEN Q=P P=X X=MOD(Q,P) GOTO 10 END IF WRITE(*,*) P END 运行上述程序时,如果从键盘输入 5.7,2.4<回车>则最后输出的P值为
A.2.4
B. 0.9
C. 0.6
D. 0.3
- · 有4位网友选择 A,占比50%
- · 有2位网友选择 C,占比25%
- · 有2位网友选择 B,占比25%
A.2.4
B. 0.9
C. 0.6
D. 0.3
阅读下列FORTRAN77程序:
PI=3.14159265
WRITE(*,‘(F7.4)’)PI
END
程序运行后输出结果是()。
(A) 3.142
(B) 3.1415
(C) 0.31416
(D) 3.1416
阅读下列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程序:
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
A.0.0
B. 0.5
C. 0.75
D. 0.91
阅读下列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
阅读下列FORTRAN77程序:
DIMENSIONA(4,3)
COMMON/P/A
P=0.0
D010K=1,3
D010J=1,3
1F(P.LE.5.0)P=P+A(J,K)
10CONTINUE
WRITE(*,*)P
END
BL()CKDATAABC
DIMENSIONB(4,3)
COMMON/P/B
DATAB/4×4.0,4×-3.0,4×2.0/
END
运行上述程序后,输出的P值为()。
(A)8.0
(B)7.0
(C)5.0
(D)4.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
阅读下列FORTRAN77程序:
EXTERNALPP
INTEGER P,PP,Q(4,4)
DATAQ/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
WRITE(*,*)P(Q,4,PP)
END
INTEGER FUNCTION PP(B,N)
INTEGERB(N,N)
PP=0
D010K=1,N
10PP=PP+B(K,K)
END
INTEGER FUNCTIONP(B,N,S)
INTEGER S,B(N,N)
P=0
D()10K=1,N
10P=P+S(B,K)
END
运行上述程序后,输出的结果为()。
(A) 55
(B) 56
(C) 57
(D) 58
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!