單項(xiàng)選擇題有程序:INTEGERPP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-5,-110P=P+1WRITE(*,*)PEND此程序的運(yùn)行結(jié)果是:()

A.0
B.24
C.120
D.144


最新試題

第一代計(jì)算機(jī),體積大,耗電多,性能低,其主要原因是制約于()

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

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

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

有程序:DO10I=1,5,3DO10J=I,310K=I+JWRITE(*,*)KEND此程序的運(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)選擇題

有程序: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é)果為:()

題型:?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)選擇題

有程序:LOGICALA,B,C,DINTEGERX,YDATAX,Y,A,B/1,-1,2*.FALSE./C=.NOT.A.AND(B.OR.XGE.Y)D=.NOT.(A.AND.B.OR、X.GE.Y)WRITE(*,*)C,DEND上面程序的運(yùn)行結(jié)果是:()

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

有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序運(yùn)行的結(jié)果為:()

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

有程序:F(X,Y)=X/Y+XY=-2.0X=4.0X=1.0*F(Y,X)WRITE(*,*)XEND此程序的運(yùn)行結(jié)果是:()

題型:?jiǎn)雾?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é)果為:()

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