A.15
B.-8
C.12
D.-5
您可能感兴趣的试卷
你可能感兴趣的试题
A.1234.576
B.2345.678
C.345.678
D.*******
A.8.E+02
B.1.E+03
C.格式错误
D.1.0000E+03
A.TT
B.FF
C.TF
D.FT
A.ABCDEF
B.ACDFGH
C.******
D.ABCDEFGHI
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,FILE=‘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’,程序运行结果是:()
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
最新试题
有程序:F(C,D)=A*C+B/DA=1.0B=2.0WRITE(*,*)F(A,B)+F(B,A)END此程序的运行结果是:()
有程序:ADD(X,Y)=X**2+YOPEN(8,FILE=‘F’,STATUS=‘NEW’,ACCESS=‘DIRECT’,*FORM=‘UNFORMATTED’,REAL=16DO10I=1,4D=ADD(REAL(I),2、0)WRITE(8,REC=I)D10CONTINUECLOSE(8)OPEN(2,FILE=‘F’,STATUS=‘OLD’,ACCESS=‘DIRECT’,*FORM=‘UNFORMATTFED’,REAL=6DO20I=2,4,2READ(2,REC=I)CWRITE(*,30)C20CONTINUE20FORMAT(1x,F4.1)CLOSE(2)END执行此程序的结果是:()
有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(*,200)A200FORMAT(1x,F8.2)END当执行此程序时,从键盘输入1234567890↙,则程序的运行结果是:()
有程序:READ(*,10)IA,IIF(IA.GE.125)THENI=I+10,ELSEI=I-10ENDIFWRITE(*,*)I10FORMAT(I2,I1)END执行上面的程序时,从键盘输入365,2,则运行后结果I的值是:()
有程序:DATAA,B,C/4.0,-8.0,3.0/P=B*B-4*A*CIF(P.GE.0.0)THENS=(-B+SQRT(P))/(2*A)T=C/(A*S)P=(S+T)/2ELSES=0T=0ENDIFWRITE(*,*)PEND执行此程序,则运行的结果是:()
有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序执行后的输出结果为:()
有程序:I=5J=10K=20M=-10IF(I.GT.M)M=IIF(J.GT.M)M=JIF(K.GT.M)M=KWRITE(*,*)MEND此程序的运行结果是:()
有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果为:()
有程序:CHARATERX*2,Y*3,Z*4DATAX,Y,Z/‘AB’,‘CDE’,‘FGHI’/WRITE(*,100)X,Y,Z100FORMAT(1X,A1,A2,A3)END此程序的运行结果是:()
有程序: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上面程序的运行结果是:()