有程序:DIMENSIONA(2,2)READ(*,*)ASUM=0DO10I=1,2D010J=1,210A(I,J)=A(I,J)+I+JWRITE(*,*)A(1,2)END当输入1、2、3、4时,此程序执行后的输出结果为:()
A.6
B.5
C.7
D.4
- · 有4位网友选择 B,占比44.44%
- · 有3位网友选择 D,占比33.33%
- · 有1位网友选择 C,占比11.11%
- · 有1位网友选择 A,占比11.11%
A.6
B.5
C.7
D.4
有程序:DIMENSION A(2,2) INTEGERA.YY=0 D0 20 1=1,2 D0 20J=1,2 A(1,J)=I*I+J*J Y=Y+A(1,J) 20 CONTINUE WRITE(*,*)Y END 此程序运行的结果为:, A.16 B.20 C.27 D.30
A.DIMENSIONA(6),B(10)EQUIVALENCE(A(1),B(2)),(A(3),B(3))
B.DIMENSIONA(2,3)B(4)EQUIVALENCE(A(2,1),B(1))
C.DIMENSIONA(2,3)B(2,2)EQUIVALENCE(A(1,2),B(1,1))
D.DEMENSIONA(2,3)B(6)EQUIVALENCE(A,B)
A.N=SDIMENSIONA(3,4),I(2,2),C(N)
B.REALA(3,4),I(2,2),C(2*2)
C.DIMENSIONA(3,4),I(2,2),C(3)REALA(3,4),I(2,2),C(3)
D.READ(*,*)MINTEGERIA(0:M)
A.15.0
B.12.0
C.9.0
D.10.0
有程序:DIMENSIONA(4,3) DATA A/3*-1.0,3*-2.0,3*-3.0,3*-4.0/ S=0.0 D0 10 K=1.4D—ABS(A(K,1)) D020J=2.3IF(ABS(A(K,J)).GT.D)D=ABS(A(K,J)) 20 CONTINUE S=S+D 10 CONTINUE WRITE(*,*)SEND 此程序执行后的结果为: A.15.0 B.12.0 C.9.0 D.10.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
当输入1、2、3、4、5、6时,下列程序执行后的输出结果为: DIMENSIONA(2,3) READ(*,*)A CALLSSl(A) END SUBROUTINESSl(B) DIMENSIONB(3,2) WRITE(*,*)B(3,1) END A.2 B.3 C.4 D.5
阅读下列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
A.r.p = new POINT[4]; r.p[0].x=0; r.p[1].y = 2;
B.r.p ={new POINT(2.0,3.1), new POINT(2.5,3.8), new POINT(5.0,8.1)};
C.r.p = new POINT[4]; r.p.x=0; r.p.y = 2;
D.r.p = new POINT[4]{{1,1},{2,2},{3,3},{4,4}};
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!