以下程序执行后,输出的第一行是 (1) ,第二行是 (2) ,第三行是 (3) 。 PROGRAMspin_squareIMPLICITNONE INTEGER::i,j,k CHARACTER(len=5)::country(1:3,1:3)=’’,na

admin2019-04-04  37

问题 以下程序执行后,输出的第一行是 (1) ,第二行是 (2) ,第三行是 (3) 。
PROGRAMspin_squareIMPLICITNONE
INTEGER::i,j,k
CHARACTER(len=5)::country(1:3,1:3)=’’,name(1:9)name=(/’China’,’Egypt’,’India’,’Japan’,’Korea’,&
&’Libya’,’Nepal’,’Swiss’,’Syria’/)
i=3;      j=2
country(i,j)=name(1)DOk=2,9
i=i+1;j=j+1
IF(i>3.AND.J>3)THENi=i-2; j=j-1
ELSEIF(i>3.AND.j<=3)THEN
i=1
ELSEIF(i<=3.AND.j>3)THENj=1
ELSEIF(i<=3.AND.j<=3)THENIF(country(i,j)/=’’)THEN
i=i-2;j=j-1ENDIF
ENDIF
country(i,j)=name(k)ENDDO
WRITE(,’(3A6)’)((country(i,j),j=1,3),i=1,3)ENDPROGRAM  spin_square

选项

答案(1)JapanSyriaEgypt (2)IndiaKoreaNepal (3)SwissChinaLibya

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

最新回复(0)