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

A.ABC
B.BCD
C.CDE
D.DEF


你可能感興趣的試題

10.單項選擇題對任意輸入的x,READ(*,*)xK=SIN(x)WRITE(*,*)KEND此程序執(zhí)行后K的值為:()

A.在區(qū)間[-1,1]中的一個值
B.一定等于0
C.在區(qū)間(-1,1)中的一個值
D.K=0或K=-1

最新試題

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

題型:單項選擇題

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

題型:單項選擇題

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

題型:單項選擇題

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

題型:單項選擇題

有程序: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上面程序的運行結果是:()

題型:單項選擇題

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

題型:單項選擇題

有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND執(zhí)行兩次以上程序,若運行中的輸入值分別為2.5和-1.0,則兩次運行結果分別是:()

題型:單項選擇題

有程序:DIMENSIONx(3,3)READ(*,*)xCALLSSl(x(1,2))ENDSUBROUTINESSl(x)DIMENSIONx(3)WRITE(*,*)x(2)END當輸入1、2、3、4、5、6、7、8、9時,此程序執(zhí)行后的輸出結果為:()

題型:單項選擇題

有程序: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í)行后的結果為:()

題型:單項選擇題

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

題型:單項選擇題