有程序:DIMENSIONA(4 3)DATAA/3-1.0 3-2.0 3-3.0 3-4.0/S=0.0DO10K=1 4D=ABS(A(K 1))DO20J=2 3IF(ABS(A(K J)).GT.D)D=ABS(A(K J))20CONTINUES=S+D10CONTINUEWRITE(* *)SEND此程序执行后的结果为:()

有程序：DIMENSIONA（4，3）DATAA／3*-1．0，3*-2．0，3*-3．0，3*-4．0／S=0．0DO10K=1，4D=ABS（A（K，1））DO20J=2，3IF（ABS（A（K，J））．GT．D）D=ABS（A（K，J））20CONTINUES=S+D10CONTINUEWRITE（*，*）SEND此程序执行后的结果为：（）

A、15.0

B、12.0

C、9.0

D、10.0

您可能感兴趣的试题

阅读下列FORTRAN77程序：DIMENSIONA（3，3)D0100K＝1，3D0100J＝1，3100A（K，J)＝K＋JS＝P（A，2，8)WRITE（*，*)

答案解析
阅读下列FORTRAN程序：S＝1.0D010K＝2，4，210S＝S＋1.0／KWRITE（*，*)SEND执行上述程序后，输出的S值为（)。

答案解析
阅读下列FORTRAN77程序：DIMENSIONA（4，3)COMMON／P／AP＝0.0D010K＝1，3D010J＝1，31F（P.LE.5.0)P＝P＋A（J，

答案解析
对于下列给定的FORTRAN77说明和赋初值语句：INTEGERA（2，2)DATAA／3，4，5，6／数组元数A（2，1)的初值为（

答案解析
皮肤厚度约为A、0.5～2.5mmB、0.5～3.5mmC、0.5～4.0mmD、1.0～3.5mmE、1.0～4.0mm

答案解析
2x^4－x^3＋2x－3=0的有理根是A －1.0B －3.0C 1.0D 3.0

答案解析
有程序:DIMENSIONA(2 2)INTEGERA YY=0DO20I=1 2D020J=1 2A(I J)=I*I+J*JY=Y+A(I J)20CONTINUEWRITE(* *)YEND此程序运行的结果为:()

答案解析

有程序:DIMENSIONA(4 3)DATAA/3*-1.0 3*-2.0 3*-3.0 3*-4.0/S=0.0DO10K=1 4D=ABS(A(K 1))DO20J=2 3IF(ABS(A(K J)).GT.D)D=ABS(A(K J))20CONTINUES=S+D10CONTINUEWRITE(* *)SEND此程序执行后的结果为:()

有程序:DIMENSIONA(4 3)DATAA/3-1.0 3-2.0 3-3.0 3-4.0/S=0.0DO10K=1 4D=ABS(A(K 1))DO20J=2 3IF(ABS(A(K J)).GT.D)D=ABS(A(K J))20CONTINUES=S+D10CONTINUEWRITE(* *)SEND此程序执行后的结果为:()