下面程序段的运行结果是(  )。 DIMENSION SUM(3) DATA SUM/1.0,2.0,3.0/ I=2 X=ADD(I,SUM) WRITE(*,10)X 10 FORMAT(1X,F3.1)

admin2009-03-08  54

问题 下面程序段的运行结果是(  )。    DIMENSION SUM(3)    DATA SUM/1.0,2.0,3.0/    I=2    X=ADD(I,SUM)    WRITE(*,10)X    10  FORMAT(1X,F3.1)     END    FUNCTION ADD(N,SUM)    DIMENSION SUM(N),L(2)    ADD=0    L(2)=2    DO 20 I=1,N    ADD=ADD+SUM(I)/L(2)    20  CONTINUE    END

选项 A、1.0
B、1.5
C、2.0
D、3.0

答案B

解析 将实参数组SUM的前两个元素传递给虚参数组SUM中。
转载请注明原文地址:https://kaotiyun.com/show/Ox4f777K
0

最新回复(0)