更多"阅读下列FORTRAN77程序： INTEGERB(4，4)，P N＝"的相关试题:
[单项选择]阅读下列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)+1
20 CONTINUE
WRITE(*，*)N(L)
END
上述程序运行后，输出的值为（）。
A. 3
B. 5
C. 7
D. 9
[单项选择]
阅读下列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
[单项选择]阅读下列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（4，5）上述程序运行后，输出的M值为（）。
A. 8
B. 9
C. 10
D. 11
E. ND
[单项选择]阅读下列FORTRAN77程序：PARAMETER（L=3）INTEGERN（L）DATAN/3*0/D020I=1，LD020J=1，LN（J）=N（1）+120CONTINUEWRITE（*，*）N（L）END上述程序运行后，输出的值为（）。
A. 3
B. 5
C. 7
D. 9
[单项选择]
阅读下列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程序：
DIMENSIONA(3，3)
D0100K＝1，3
D0100J＝1，3
100A(K，J)＝K+J
S＝P(A，2，8)
WRITE(*，*)S
END
FUNCTIONP(B，M，N)
DIMENSIONB(N)
P＝0.0
D010K＝M，N
10P＝P+B(K)
END
运行上述程序后，输出的S值为（）。
A. 20.0
B. 24.0
C. 28.0
D. 32.0
[单项选择]
阅读下列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
[单项选择]
阅读下列FORTRAN 77程序：
INTEGER AA(2.3)
DATA AA/1，2，3，4，5，6/
CALL S2D19(AA)
CALL S2D19(AA(1，2))
END
SUBROUTINE S2D19(BB)
INTEGER BB(2，2)
WRITE(*，’(1X，2I3)’)BB(1，1)，BB(2，2)
END
程序运行结果是（）。
A. 14
B. 15
C. 14
D. 12
[单项选择]
阅读下列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(4，5)
DATA A/5*1，5*2，5*3，5*4/
M=0
DO 10 K=1，4
10 M=M+A(K，K+1)
WRITE(*，*)M
END
上述程序运行后，输出的M值为（）。
A. 8
B. 9
C. 10
D. 11
[单项选择]阅读FORTRAN77程序：
READ(*，100)A，B，C，D
WRITE(*，*)D
100FORMAT(F2．1，3(1X，F3.1))
END
运行上述程序时，如果从键盘输入
1234567890123456＜回车＞
则最后输出的X值为（）。
A. 1.2
B. 12.3
C. 2.3
D. 23.4
[单项选择]阅读下列FORTRAN77程序：
INTEGER A(4，4)
DATA A/1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16/
WRITE(*，100)F(A，3)
100 FORMAT(1X，F4，1)
END
FUNCTION F(B，N)
INTEGER B(N，N)
F=0.0
DO 10K=1，N
10 F=F+B(K，K)
END
上述程序运行后，输出结果为（）。
A. 19.0
B. 9.0
C. 8.0
D. 18.0
[单项选择]
阅读下列FORTRAN77程序：
F(X，Y)＝X*X+Y*Y
OPEN(8，FILE＝’FD.DAT，STATUS＝’NEW’，ACCESS＝’DIRECr’，
*FORM＝’UNFORMATTED’，RECL＝16)
D010K＝1，6
P＝F(REAL(K)，REAL(K+1))
10WRITE(8，REC＝K)P
CLOSE(8)
OPEN(6，FILE＝’FD.DAT’，STATUS＝’OLD’，ACCESS＝’DIRECr’，
*FORM＝’UNFORMATTED’，RECL＝16)
DO20K＝2，6，2
READ(6，REC＝K)T
20WRITE(*，100)T
100FORMAT(1X，F4.1)
CLOSE(6)
END
运行上述程序后，输出的结果为（）。
A. 5.0
B. 5.0
C. 13.0
D. 41.0
[单项选择]阅读下列FORTRAN77程序：INTEGERA（3，3）DATAM／1，2，3，4，5，6，7，8，9/S=0D010K-1，3D010J=1，K10S=S+M（K，J）WRITE（*，*）SEND上述程序运行后，输出的S值为（）。
A. 48.0
B. 34.0
C. 26.0
D. 40.0
[单项选择]阅读下列FORTRAN77程序：INTEGERA（4，4）DATAA/1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16/WRITE（*，100）F（A93）100FORMAT（1X，F4.1）ENDFUNCTIONF（B，N）INTEGERB（N，N）F=0．0D010K=1，N10F=F+B（K，K）END上述程序运行后，输出结果为（）。
A. 19.0
B. 9.0
C. 8.0
D. 18.0
[单项选择]阅读下列FORTRAN77程序：X=1．0Y=3．0Z=P（X，Y）WRITE（*，100）X，Y，Z100FORMAT（1X，3F6.2）ENDFUNCTIONP（T，W）T=T+WW=T+WP=T+WEND上述程序运行后，输出结果为（）。
A. 6.006.009.00
B. 4.007.0011.00
C. 8.007.009.00
D. 2.006.008.00
[单项选择]在FORTRAN77中，下列叙述中正确的是（）。
A. 两个字符型常量进行比较时，数字字符"0"最小
B. 两个字符串比较时，是自右向左进行比较的
C. 两个字符串比较时，如果除空格外的所有字符都相等，则两者相等
D. 在字符关系表达式中，可以使用6种关系运算符
[单项选择]“M不能被N整除”的FORTRAN77表达式是（）。
A. （M／N）.NE.0
B. NOT.（MOD（M，N）.NE.0）
C. MOD（M，N）.NE.0
D. INT（M/N）.NE.0
