A.6
B.5
C.7
D.4
您可能感兴趣的试卷
你可能感兴趣的试题
A.18
B.30
C.25
D.36
A.1
B.0
C.0.5
D.2
A.0
B.2
C.2.5
D.1
A.在区间[-1,1]中的一个值
B.一定等于0
C.在区间(-1,1)中的一个值
D.K=0或K=-1
A.顺序有格式读,顺序无格式写
B.直接有格式读,顺序有格式写
C.直接无格式读,直接无格式写
D.直接无格式读,顺序有格式写
A.OPEN(8)
B.OPEN(8,FORM=‘UNFORMATTED’)
C.OPEN(8,ACCESS=‘DIRECT’)
D.OPEN(8,FILE=‘AA’)
A.文件
B.变量
C.记录
D.字节
A.有格式文件只能按顺序文件的形式存取
B.有格式文件的存取适用于顺序文件也适用于直接文件
C.无格式文件只适用于直接文件存取
D.无格式文件只适用于顺序文件存取
A.打开一个有格式顺序文件,可以读文件
B.打开一个有格式直接文件,可以写文件
C.打开一个有格式直接文件,可以读写
D.打开一个直接文件
A.函数值只能通过函数名返回
B.当实参为变量时,形参的改变影响实参的值
C.一个函数子程序只能返回一个函数值或一个变量值
D.函数值只能通过形实结合双向传递
最新试题
有程序:DIMENSION(4,4)READ(*,*)AWRITE(*,10)A10FORMAT(1x,6E9.2)END此程序执行后的输出结果的记录数为:()
有程序: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上面程序的运行结果为:()
有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果为:()
有程序:INTEGERFF(X,Y)=X/Y+XA=-2.0B=4.0B=B+F(A,B)WRITE(*,20)B20FORMAT(1X,F4.1)END此程序的运行结果是:()
有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I=1,310WRITE(*,‘(1X,3I2)’)(B(I,J),J=1,3)END此程序的运行结果是:()
有程序:I=5J=10K=20M=-10IF(I.GT.M)M=IIF(J.GT.M)M=JIF(K.GT.M)M=KWRITE(*,*)MEND此程序的运行结果是:()
有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,*)S1END此程序执行后的输出结果为:()
有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的运行结果为:()
有程序:INTEGERPP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-5,-110P=P+1WRITE(*,*)PEND此程序的运行结果是:()
有程序: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’,程序运行结果是:()