更多"阅读FORTRAN程序：READ（*，*）I，J，KD010N=1，2"的相关试题:
[单项选择]
阅读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
[单项选择]阅读以下FORTRAN程序：
READ(“，”)M
IF(M.LT.100.ND.M.GT.999)STOP
K=M/100
L=(M-K*100)/10
N=M-K*1001-L*10
MM=K+N
WRITE(*，’(2X，13)’)MM
END
键盘输入600，则程序的输出结果是（）。
A. 8
B. 3
C. 7
D. 6
[单项选择]
阅读以下FORTRAN程序：
READ(*，*)X
IF(X，LE，0)RHEN
Y=0.0
ELSEIF(X，LT，5，0)，AND，(X，NE，2，0)THEN
Y=1/X
ELSEIF(X，LE，10，0)THEN
Y=1/(X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(*，*)Y
END
运行上述程序时，若由键盘输入：2，则程序输出结果为（）。
A. 0.0
B. 0.5
C. 0.25
D. 10.0
[单项选择]阅读以下FORTRAN程序：READ（”，”）MIF（M.LT.100.ND．M.GT.999）STOPK=M／100L=（M-K*100）/10N=M-K*100-L*10MM=K+NWRITE（*，’（2X，I3）'）MMEND键盘输入600，则程序的输出结果是（）。
A. 8
B. 3
C. 7
D. 6
[单项选择]
阅读以下FORTRAN程序
READ(*,*)M,N
K=MOD(M,N)
10 IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
GOTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时，由键盘输入25,11，则程序输出为（）。
A. 3
B. 2
C. 1
D. 0
[单项选择]阅读以下FORTRAN程序READ（*，*）M，N．K=MOD（M，N）10IF（K.GT.0）THENM=NN=KK=MOD（M，N）GOT010ENDIFWRITE（*，*）NEND若运行以上程序时，由键盘输入25，11，则程序输出为（）。
A. 3
B. 2
C. 1
D. 0
[单项选择]阅读下列FORTRAN程序：DIMENSIONA（6）READ（*，*）（A（I），I=1，6）D010K-1，3S=A（K）A（K）=A（7-K）A（7-K）=S10CONTINUEWRITE（*，20）（A（I），I=1，6）20FORMAT（1X，21）END上述程序运行时，若由键盘输入1，2，3，4，5，6，则输出的结果为（）。
A. 123456
B. 142536
C. 654321
D. 635241
[单项选择]阅读下列FORTRAN77程序：INTEGERA（4，5）上述程序运行后，输出的M值为（）。
A. 8
B. 9
C. 10
D. 11
E. ND
[单项选择]阅读下列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程序：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程序：
INTEGERB(4，4)，P
N＝4
CALLSUB(B，N)
WRITE(*，*)P(B，N)
END
SUBROUTINESUB(Q，N)
INTEGERM，N，K，Q(N，N)
D010K＝1，N
D010M＝1，N
10Q(M，K)＝8*(K-1)+M
END
INTEGER FUNCTI（ ）N P(B，N)
INTEGERB(N，N)
P＝0
D0100K＝1，N
100P＝P+B(K，K)
END
运行上述程序后，输出的结果为（）。
A. 55
B. 56
C. 57
D. 58
[单项选择]阅读下列FORTRAN程序：INTEGERPP=OD010I=0，10，3D010J=5，100，20D010K=10．-510P=P+1WRITE（*，*）PEND上述程序运行时，运算的结果为（）。
A. 0
B. 24
C. 120
D. 144
[单项选择]阅读以下FORTRAN程序：INTEGERX（7）DATAX/10，20，45，70，80，15，14/M=X（1）D010I=2.7IF（X（I）．GT．M）THENM-X（1）K=IENDIF10CONTINUEN=X（K）X（K）=X（I）X（I）=NWRITE（*9100）（X（I），I=1，7）100FORMAT（2X，713）END程序运行的结果是（）。
A. 10204570801514
B. 14204570801510
C. 80204570101514
D. 20457080151410
[单项选择]阅读下列FORTRAN77程序：DIMENSIONJA（3），JB（3，2）DATAJB/1，2，3，4，5，6/D010K=1，310JA（K）=JB（K，2）WRITE（*，100）JA100FORMAT（1X，611）END上述程序运行后，输出结果为（）。
A. 123
B. 456
C. 135
D. 246
[单项选择]阅读下列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
[单项选择]阅读下列FORTRAN程序
INTEGER X(3,3),A
DATA X/1,2,3,4,5,6,7,8,9/
DO 10 I=1,3
DO 10 J=I+1,3
A=X(I,J)
X(1,J)=X(J,I)
X(J,I)=A
10 CONTINUE
WRITE(*,20)((X(I,J),J=1,3),I=1,3)
20 FORMAT(1X,312)
END
运行上述程序后，其输出是（）。
A. 1 4 7
B. 1 2 3
C. 9 6 1
D. 9 8 7
