以下程序执行后,输出的第一行是 (6) ,第二行是 (7) ,第三行是 (8) 。 PROGRAMmainIMPLICITNONE INTEGER::a(3,2),b(2,3),c(3,3),i,j,k,tmp a=RESHAPE((/1,2,

admin2019-04-04  47

问题 以下程序执行后,输出的第一行是         (6)         ,第二行是         (7)         ,第三行是         (8)         。
PROGRAMmainIMPLICITNONE
INTEGER::a(3,2),b(2,3),c(3,3),i,j,k,tmp
a=RESHAPE((/1,2,3,4,5,6/),(/3,2/))b=RESHAPE((/6,5,4,3,2,1/),(/2,3/))DOi=1,3
DOj=1,3c(i,j)=0DOk=1,2
c(i,j)=c(i,j)+a(i,k)b(k,j)ENDDO
ENDDOENDDO
DOi=1,3
DOj=i+1,3
tmp=c(i,j); c(i,j)=c(j,i); c(j,i)=tmpENDDO
ENDDO
WRITE(,’(3I3)’)((c(i,j),j=1,3),i=1,3)  
ENDPROGRAMmain

选项

答案(6)26 37 48 (7)16 23 30 (8)6 9 12

解析
转载请注明原文地址:https://jikaoti.com/ti/3rO7FFFM
0

最新回复(0)