更多"阅读下列FORTRAN77程序： PARAMETER(L=3) "的相关试题:
[单项选择]
阅读下列FORTRAN77程序：
INTEGER AA（2，3）
DATA AA/1，2，3，4，6/
CALL S2D19（AA）
END
SUBROUTINE S2D19（BB）
INTEGER BB（2，2）
WRITE（*，'（1X，2I3）'）BB（1，1），BB（2，2）
END
程序运行结果是（）
A. 14
B. 15
C. 24
D. 1236262534
[单项选择]阅读下列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 36
B. ( 15 26
C. ( 14 25
D. ( 12 34
[单项选择]阅读下列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程序：
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程序：
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程序：
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 10 K=1，N
10 F=F+B(K，K)
END
上述程序运行后，输出结果为（ ）。
A. 19.0
B. 9.0
C. 8.0
D. 18.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
[单项选择]阅读下列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程序： READ(*，100)X 100 FORMAT(3F3.1) WRITE(*，*)X END 运行上述程序时，如果从键盘输入 1234.675＜回车＞则最后输出的X值为( )。
A. ( 1234.675
B. ( 1234.6
C. ( 12.3
D. ( 123.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程序：
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程序： 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程序：DIMENSIONJA（3），JB（3，2）DATAJB/1，2，3，4，5，6/DO10K=1，310JA（K）=JB（K，2）WRITE（*，100）JA100FORMAT（1X，6I1）END上述程序运行后，输出结果为（）。
A. 123
B. 456
C. 135
D. 246
[单项选择]阅读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程序：
INTEGERA（3，3）
DO10K＝1，3
DO10L＝1，3
10A（K，L）＝K*10+L
WRITE（*，'（1X，313）'）A
END
程序运行结果是（）。
A. 11 21 31
B. 11 12 13
C. 31 32 33
D. 33 32 31
[单项选择]以下关于FORTRAN77源程序书写格式的叙述中正确的是（）。
A. 程序行的第1列为注释标志区，不能用作标号
B. 程序行的7～72列为语句区
C. 利用续行标志，一条语句可以继续任意多行
D. 只要以字母C或字符X起头，就是注释区
[单项选择]下列关于FORTRAN77源程序编辑规则的叙述中，正确的是（）
A. 每一行都必须从第7列开始
B. 主程序第一行必须是PROGRAM语句
C. 每个源程序块的最后一行必须是END语句
D. 每个子程序中必须有一个RETURN语句
