A.4567.89
B.1234.56
C.******
D.1234.5
您可能感興趣的試卷
你可能感興趣的試題
A.3.0;11.0
B.6.0;11.0
C.6.0;18.0
D.11.0;18.0
有程序: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’,程序運行結(jié)果是:()
A.FORMANEWDISK
B.RMATNEWDISK
C.FORMATANEW
D.MATANEWDISK
A.15.0
B.12.0
C.9.0
D.10.0
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
A.6
B.24
C.120
D.720
最新試題
有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F(xiàn)7.3)100FORMAT(1X,F(xiàn)8.3)END執(zhí)行此程序,由鍵盤輸入123456789,則輸出S的值為:()
有程序:INTEGERFF(X,Y)=X+YA=-2.0B=4.0B=1.0+F(A,B)WRITE(*,‘(1X,F(xiàn)3.1)’)BEND此程序的運行結(jié)果是:()
有程序: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上面程序的運行結(jié)果是:()
有程序:CHARATERX*2,Y*3,Z*4DATAX,Y,Z/‘AB’,‘CDE’,‘FGHI’/WRITE(*,100)X,Y,Z100FORMAT(1X,A1,A2,A3)END此程序的運行結(jié)果是:()
有程序:M=2N=MD010I=1,N+1,NN=N*NM=M*N10CONTINUEWRITE(*,*)MEND此程序的運行結(jié)果是:()
有程序:ADD(X,Y)=X**2+YOPEN(8,F(xiàn)ILE=‘F’,STATUS=‘NEW’,ACCESS=‘DIRECT’,*FORM=‘UNFORMATTED’,REAL=16DO10I=1,4D=ADD(REAL(I),2、0)WRITE(8,REC=I)D10CONTINUECLOSE(8)OPEN(2,F(xiàn)ILE=‘F’,STATUS=‘OLD’,ACCESS=‘DIRECT’,*FORM=‘UNFORMATTFED’,REAL=6DO20I=2,4,2READ(2,REC=I)CWRITE(*,30)C20CONTINUE20FORMAT(1x,F(xiàn)4.1)CLOSE(2)END執(zhí)行此程序的結(jié)果是:()
有程序: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é)果為:()
有程序:READ(*,10)IA,IIF(IA.GE.125)THENI=I+10,ELSEI=I-10ENDIFWRITE(*,*)I10FORMAT(I2,I1)END執(zhí)行上面的程序時,從鍵盤輸入365,2,則運行后結(jié)果I的值是:()
有程序:READ(*,100)A100FORMAT(3x,F(xiàn)6.2)WRITE(*,200)A200FORMAT(1x,F(xiàn)8.2)END當執(zhí)行此程序時,從鍵盤輸入1234567890↙,則程序的運行結(jié)果是:()
有程序:F(C,D)=A*C+B/DA=1.0B=2.0WRITE(*,*)F(A,B)+F(B,A)END此程序的運行結(jié)果是:()