阅读下列FORTRAN程序INTEGERX（3，3)，ADATA X／1，2，3，4，5，6，7，8，9／DO 10 I=1，3DO 10 J=I＋1，3A=X（I，J

阅读下列FORTRAN程序

INTEGERX(3，3)，A

DATA X/1，2，3，4，5，6，7，8，9/

DO 10 I=1，3

DO 10 J=I+1，3

A=X(I，J)

X(I，J)=x(J，I)

X(J，I)=A

10 CONTINUE

20 WRITE(*，20)((X(I，J)，J：l=3)，I=1，3)

20 FORMAT(1X，3I2)

END

运行上述程序后，其输出是()。

(A) 1 4 7

2 5 8

3 6 9

(B) 1 2 3

4 5 6

7 8 9

8 5 2

7 4 3

(D) 9 8 7

6 5 4

3 2 1

您可能感兴趣的试题

阅读下列FORTRAN程序 INTEGER X（3,3),ADATA X／1,2,3,4,5,6,7,8,9／ DO 10 I=1,3DO 10 J=I＋1,3A=X（

答案解析
阅读下列FORTRAN77程序：PI＝3.14159265WRITE（*，‘（F7.4)’)PIEND程序运行后输出结果是（)。（A) 3.142（

答案解析
阅读下列FORTRAN77程序：EXTERNALPPINTEGER P，PP，Q（4，4)DATAQ／1，2，3，4，5，6，7，8，9，10，11，12，13，14，

答案解析
阅读下列FORTRAN77程序：DIMENSIONP（3，3)D010K＝1，3D010J＝1，310P（K，J)＝（K－1)*3＋JCALLSUB（P（2，1)，3，

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

答案解析
阅读下列FORTRAN77程序：INTEGERA（3，2)READ（*，100)A100FORMAT（2I3)WRITE*，*)AEND运行后要使A（1，2)

答案解析
阅读下列FORTRAN程序： S=1.0 DO100K=3 1 －1 DO100N=－1 －310

答案解析