單項(xiàng)選擇題有程序:INTEGERM(3,4)DATAM/4*-1,4*-2,4*-3/S=0DO10I=1.310S=S+M(I,I+1)DO20I=4,2,-120S=S-M(I-1,I)WRITE(*,*)SEND上面程序的運(yùn)行結(jié)果為:()

A.0.0
B.-1.0
C.-2.0
D.-6.0


你可能感興趣的試題

4.單項(xiàng)選擇題有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I=1,310WRITE(*,‘(1X,3I2)’)(B(I,J),J=1,3)END此程序的運(yùn)行結(jié)果是:()

A.2;2;2;3;3;3;4;4;4
B.2;3;4;2;3;4;2;3;4
C.3;3;3;3;3;3;3;3;3
D.4;3;2;4;3;2;4;3;2

最新試題

有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序執(zhí)行后的輸出結(jié)果為:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,F(xiàn)ILE=‘INPUT.DAT’,STATUS=‘OLD’)READ(15,10)STR1,STR2,STR310FORMAT(A6,1x,A5,1x,A4)WRITE(*,’(1x,3A)’)STR1,STR2,STR3CLOSE(15)END用此程序從文件INPUT.DAT中讀出字符串’FORMATANEWDISK’,程序運(yùn)行結(jié)果是:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:INTEGERM(5,5)L=0DO40J=1,5DO40K=1,5M(J,K)=K40CONTINUEDO10I=1,5N=1IF(MOD(I,2).EQ.0)N=2DO10J=N,5,2L=L+M(I,J)10CONTINUEWRITE(*,20)L20FORMAT(2X,‘L=’,I3)END此程序運(yùn)行的結(jié)果為:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:INTEGERFF(X,Y)=X+YA=-2.0B=4.0B=1.0+F(A,B)WRITE(*,‘(1X,F(xiàn)3.1)’)BEND此程序的運(yùn)行結(jié)果是:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的運(yùn)行結(jié)果為:()

題型:?jiǎn)雾?xiàng)選擇題

下列說(shuō)法中,正確的一條是()

題型:?jiǎn)雾?xiàng)選擇題

有程序:DO10I=1,5,3DO10J=I,310K=I+JWRITE(*,*)KEND此程序的運(yùn)行結(jié)果是:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I=1,310WRITE(*,‘(1X,3I2)’)(B(I,J),J=1,3)END此程序的運(yùn)行結(jié)果是:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:READ(*,100)A100FORMAT(3x,F(xiàn)6.2)WRITE(*,200)A200FORMAT(1x,F(xiàn)8.2)END當(dāng)執(zhí)行此程序時(shí),從鍵盤(pán)輸入1234567890↙,則程序的運(yùn)行結(jié)果是:()

題型:?jiǎn)雾?xiàng)選擇題

有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F(xiàn)7.3)100FORMAT(1X,F(xiàn)8.3)END執(zhí)行此程序,由鍵盤(pán)輸入123456789,則輸出S的值為:()

題型:?jiǎn)雾?xiàng)選擇題