问题
单项选择题
阅读下列FORTRANN77程序: INTEGERB(4,5) DATAB/11,20,15,1,9,12,18,2,6,8, *10,3,22,15,21,3,17,9,35,4/ K=S(B,4,5) WRITE(*,*)K END FUNCTION S(A,M,N) INTEGER A(M,N),D,P D0100L=1,M P=A(L,1) K=1 DO10J=1,N IF(A(L,J).LT.P)THEN P=A(L,J) K=J END IF 10CONTINUE D=A(1,K) D020J=1,M IF(A(J,K).GT.D)D=A(J,K) 20CONTINUE IF(P.EQ.D)THEN S=P G()TO200 正ND IF 100CONTINUE 200END 运行上述程序后,输出的K的值为( )。
A.( 1
B.( 10
C.( 35
D.( 3
答案
参考答案:B
解析: 主程序中的二维数组B作为实参与函数的形参二维数组A对应。 [点评] 该题考察Fortran的函数调用和循环