單項(xiàng)選擇題有程序:DIMENSIONA(4,3)DATAA/3*-1.0,3*-2.0,3*-3.0,3*-4.0/S=0.0DO10K=1,4D=ABS(A(K,1))DO20J=2,3IF(ABS(A(K,J)).GT.D)D=ABS(A(K,J))20CONTINUES=S+D10CONTINUEWRITE(*,*)SEND此程序執(zhí)行后的結(jié)果為:()

A.15.0
B.12.0
C.9.0
D.10.0


你可能感興趣的試題

1.單項(xiàng)選擇題有程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO10I=1.3DO10J=1,3K=M(I,J)M(I,J)=M(J,I)M(J,I)=K10CONTINUEWRITE(*,100)((M(I,J),J=1,3),I=1,3)100FORMAT(1x,3I2)END此程序執(zhí)行后的結(jié)果為:()

A.1;4;7;2;5;8;3;6;9
B.1;2;3;4;5;6;7;8;9
C.9;6;3;8;5;2;7;4;1
D.7;8;9;4;5;6;1;2;3

最新試題

有程序:WRITE(*,400)876.345400FORMAT(1X,E8.0)此程序段的正確執(zhí)行結(jié)果是:()

題型:單項(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é)果是:()

題型:單項(xiàng)選擇題

有程序:INTEGERFF(X,Y)=X/Y+XA=-2.0B=4.0B=B+F(A,B)WRITE(*,20)B20FORMAT(1X,F(xiàn)4.1)END此程序的運(yùn)行結(jié)果是:()

題型:單項(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é)果是:()

題型:單項(xiàng)選擇題

有程序:M=2N=MD010I=1,N+1,NN=N*NM=M*N10CONTINUEWRITE(*,*)MEND此程序的運(yùn)行結(jié)果是:()

題型:單項(xiàng)選擇題

有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,*)S1END此程序執(zhí)行后的輸出結(jié)果為:()

題型:單項(xiàng)選擇題

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

題型:單項(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é)果是:()

題型:單項(xiàng)選擇題

有程序:DATAI,M,N/2,1,4/10M=M*II=I+1IF(I.GT.N)GOT020GOTO1020WRITE(*,*)MEND執(zhí)行此程序后,輸出結(jié)果為:()

題型:單項(xiàng)選擇題

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

題型:單項(xiàng)選擇題