阅读下列FORTRAN程序 INTEGERX(3,3),A DATAX/1,2,3,4,5,6,7,8,9/ DO10I=1.3 DO10J=1+1.3 A=X(I,J) X(I,J)=X(J,I) X(J,I)=A 10CONTINUE WRITE(*,

admin2007-02-07  20

问题 阅读下列FORTRAN程序
INTEGERX(3,3),A
DATAX/1,2,3,4,5,6,7,8,9/
DO10I=1.3
DO10J=1+1.3
A=X(I,J)
X(I,J)=X(J,I)
X(J,I)=A
10CONTINUE
WRITE(*,20)((X(I,J),J=1,3)I=1,3)
20PORMAT(IX,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

答案B

解析 开始赋值按列主序赋值:X(1,1)=1,2,X(3,1)=3,X(1,2)=4,X(2,2)=5,X(3,2)=6,X(1,3)=7,X(2,3)=8,X(3,3)=9。
第一次循环:I=1,J=2,A=X(1,2)=4,X(1,2)=X(2,1)=2,X(2,1)=4以此类推得到结果。
转载请注明原文地址:https://kaotiyun.com/show/CCwf777K
0

随机试题
最新回复(0)