阅读下列FORTRAN程序: REAL A(5) COMMON /CC/X DATA A/1,2,3,4,5/ X=0 Y=FUN(A,5) +FUN(A,5) WRITE(*,*) Y END FUNC

admin2010-06-22  17

问题 阅读下列FORTRAN程序:    REAL  A(5)    COMMON  /CC/X    DATA A/1,2,3,4,5/    X=0    Y=FUN(A,5) +FUN(A,5)    WRITE(*,*) Y    END    FUNCTION  FUN(A,N)    REAL  A(N)    COMMON  /CC/X    X=X+1    F=1    DO  10  I=N,1    F=F+A(I)    10  CONTINUE        FUN=F+X        END    上述程序执行后,输出结果是(    )。

选项 A、4.0
B、5.0
C、16.0
D、33.0

答案B

解析
转载请注明原文地址:https://kaotiyun.com/show/GSNf777K
0

最新回复(0)