更多"以下是计算N!(N的阶乘)的FORTRAN程序： READ(*，*)"的相关试题:
[单项选择]以下是计算N!(N的阶乘)的FORTRAN程序：
READ(*，*)N
______
DO 10 K=1，N
10 S=S*K
END
为使程序完整，应在横线处放入( )。
A. S=1
B. S=N
C. S=0
D. 什么都不放
[单项选择]
以下是计算N!(N的阶乘)的FORTRAN程序：
READ(*，*)N
______
DO 10 K=1，N
10 S=S*K
END
为使程序完整，应在横线处放入（）。
A. S=1
B. S=N
C. S=0
D. 什么都不放
[单项选择]
以下是计算N!（N的阶乘）的FORTRAN程序：
READ（*，*）N
______
DO10K=1，N
10S=S*K
END
为使程序完整，应在横线处放入（）。
A. S=1
B. S=N
C. S=0
D. 什么都不放
[单项选择]阅读以下FORTRAN程序：
READ(*,*)M
IF(M.LT.100.AND.M.GT.999) STOP
K=M/100
L=(M-K*100)/10
N=M-K*100-L*10
MM=K+N
WRITE(*,'(2X,13)')MM
END
键盘输入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)
COTO 10
END IF
WRITE(*，*)N
END
若运行以上程序时，由键盘输入：25，11则程序输出为（）。
(A) 3 (B) 2 (C) 1 (D) 0
A. 3
B. 2
C. 1
D. 0
[单项选择]某人设计了如下程序用来计算并输出7!(7的阶乘)
Private Sub Command1_Click（ ）
t=0
For k=7 To 2 Step-1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是( )
A. 把t=0改为t=1
B. 把For k=7 To 2 Step-1改为For k=7 To 1 Step-1
C. 把For k=7 To 2 Step-1改为For k=1 To 7
D. 把Next改为Next k
[单项选择]某人设计了如下程序用于计算并输出7!(7的阶乘)。
Private Sub Command1_Click（ ）
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是
A. 把t=0改为t=1
B. 把For k=7 To 2 Step -1改为For k=7 To 1 Step -1
C. 把For k=7 To 2 Step -1改为For k=1 To 7
D. 把Next改为Next k
[单项选择]阅读下列FORTRAN程序：
LOGICAL P，Q
READ(*，100)P，Q
100 FORMAT(2L4)
F(P) THEN
Y=1.0
ELSE IF(Q) THEN
Y=2.0
ELSE IF(.NOT.P.OR.Q)THEN
Y=3.0
ELSE
Y=0.0
VENDIF
WRITE(*，*) Y
END
在执行上述程序时，由键盘输入FABDTXYZ，最后输出的Y值为( )。
A. 0.0
B. 1.0
C. 2.0
D. 3.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程序： 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程序： INTEGERA(3，2) READ(*，100)A 100FORMAT(2I3) WRITE*，*)A END 运行后要使A(1，2)的值为2，正确的键盘输入为(其中口为空格)( )。
A. ( □□1□□2 □□3□□4 □□5□□6
B. ( □□1□□2□□3 □□4□□5□□6
C. ( □□1□□3□□5 □□2□□4□□6
D. ( □□1□□3 □□5□□2 □□4□□6
[单项选择]阅读下列FORTRAN程序： DIMENSION A(6) READ(*，*) (A(I)，I=1，6) DO 10 K=1，3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*，20)(A(I)，I=1，6) 20 FORMAT (1X，2I) END 上述程序运行时，若由键盘输入1，2，3，4，5，6，则输出的结果为( )。
A. 1 2 3 4 5 6
B. 1 4 2 5 3 6
C. 6 5 4 3 2 1
D. 6 3 5 2 4 1
[单项选择]阅读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程序：
READ(*，*)X IP(
X．L
T．0.0)THEN Y=0.0 ELSE IF(X.GT.1.0)THEN Y=1.0 IF(X.GT.8.0)THEN Y=8.0 END IF ELSE Y＝0.5 END IF WRITE(*，*)Y END
上述程序运行时，由键盘输入0.7，则输出的Y值为（）。
A. 0.0
B. 0.5
C. 1.0
D. 8.0
[单项选择]阅读下列FORTRAN程序：
DIMENSION A(6)
READ(*，*)(A(I)，I=1，6)
DO 10 K=1，3
S=A(K)
A. )。1 2 3 4 5 6
B. 1 4 2 5 3 6
C. 6 5 4 3 2 1
D. 6 3 5 2 4 1
