题目内容
（请给出正确答案）
有程序：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
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“有程序：DIMENSIONA（2，2) INTEGERA．YY=0 D0201=1，2 D020J=1，2 A（1，J)=I*I+J*J Y=Y+A（1，J) 20CONTI”相关的问题
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
阅读下列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
当输入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程序： 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
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
