单项选择题

函数子程序FJ求一组数的和。
FUNCTION FJ(X,N) DIMENSION X(N) S=0. DO 10 K=1,N S=S+X(K) 10 CONTINUE FJ= END
为了完整程序，在处应填入（）。

A．0.0
B．S
C．X(N)
D．N

<上一题目录下一题>

热门试题

单项选择题

阅读以下FORTRAN程序： READ(*.*)M IF(M.LF.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浯句M=1.5+1 3+1 5+1.2执行后，M的值是（）。

A．2.7
B．3.7
C．2
D．3.2

相关试题