下面程序段的运行结果是
。
DATA L,M,N/1,10,4/
CALL FAC(L,M)
PRINT *,L,M,N
N=20
M=25
CALL FAC(L,M)
PRINT *,L,M,N
END
SUBROUTINE FAC(K,M)
N=0
DO 1 J=1,N
K=K*J,
N=N+1
1 CONTINUE
END
A、
1 20 4
20 25 20
B、
1 4 10
20 25 20
C、
1 10 4
25 25 25
D、
1 10 4
1 25 20
【正确答案】
D
【答案解析】
子程序中循环终值为0,因此循环一次都不执行。
提交答案
关闭