阅读下列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（

阅读下列FORTRAN程序

INTEGER X(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

WRITE(*,20)((X(I,J),J=1,3),I=1,3)

20 FORMAT(1x,312)

END

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

A．1 4 7

2 5 8

3 6 9

B．1 2 3

4 5 6

7 8 9

C．9 6 1

8 5 2

7 4 3

D．9 8 7

6 5 4

3 2 1

参考答案

您可能感兴趣的试题

阅读下列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

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

答案解析
阅读下列FORTRAN77程序：F＝1.0D020K＝3，7，320WRTTE（*，（I3，F8.1)K，K*KEND程序运行结果的最后一行是（

答案解析
阅读下列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，

答案解析
阅读下列FORTRAN程序:INTEGER X(7)DATA X/4 5 7 8 10 12 11

答案解析