C)’ARE’.GT.’are’ D)’are’.GT.’is’
(48) 下列关于直接文件操作说法中不正确的是
A) 直接文件不能按记录的顺序读取
B) 直接文件的所有记录的长度都相等
C) 直接文件不能按表控格式存取
D) 顺序写入的文件都不能直接读取
(49) 阅读下列FORTRAN77程序:
DIMENSION A(3)
OPEN(6,FILE=’XY.DAT’,STATUS=’NEW’, ACCESS=’DIRECT’,
* FORM=’FORMATTED’,RECL=30)
DO 10 I=1,6
S=2.0*I
WRITE(6,100,REC=I)S
100 FORMAT(E15.6)
10 CONTINUE
REWIND(6)
READ(6,100,REC=3)A
S=0.0
DO 20 I=1,3
S=S+A(I)
20 CONTINUE
WRITE(*,*)S
CLOSE(6)
END
上述程序执行后,S的输出结果是
A) 12.0 B) 18.0 C) 24.0 D) 30.0
(50) 阅读下列FPRTRAN77程序:
COMMON C
A=1.0
B=2.0
C=3.0
CALL TEST1(4.0,A,B)
WRITE(*,*)A,B,C
END
SUBROUTINE TEST1(A,B,C)
COMMON X
X=0.0
IF(A.GT.B)C=A
IF(A,LE,B)B=A
X=C-B
END
执行上述程序后,输出的A,B,C值分别为
A) 1.0 2.0 1.0 B) 4.0 4.0 4.0
C) 1.0 4.0 3.0 D) 2.0 4.0 4.0
二、填空题(每空2分，共40分)
请将每空的正确答案写在答题卡上[1]至[20]序号的横线上，答在试卷上不得分。
(1) 在DOS状态下,当执行当前盘当前目录中的程序A.EXE时,为了将本该在屏幕上显示的运行结果输出到文件A.DAT中,应使用的DOS命令为 [1] 。
(2) 在XCOPY、PATH、TREE三个DOS命令中，属于内部命令的是令是 [2] 。
(3) 设当前盘为C盘，为了将当前盘当前目录中第三个字符为X的所有文件同名复制到A盘的当前目录中，应使用的DOS命令为 [3] 。
(4) 要将当前盘的目录A\B\C设置为当前目录,应使用的DOS命令为 [4]。
(5) 计算机网络按通信距离划分为局域网与广域网,NOVELL网属于 [5] 。
(6) 下列FORTRAN77程序的功能是:对输入的N(<100)个实数,求其平均值并输出。请在程序中的下划线处填入合适的内容。
DIMENSION X(100)
READ(*,*)N
CALL ABC(N,X)
END
[6]
DIMENSION A(N)
DO 10 I=1,N
READ(*,*)A(I)
10 CONTINUE
[7]
DO 20 J=1,N
20 S=S+A(J)
[8]
WRITE(*,*)S
END
(7) 下列FORTRAN77子程序的功能是对给定的N×K阶实矩阵A和K×M阶实矩阵B，求乘积矩阵C=AB。请在程序中的下划线处填入合适的内容。
SUBROUTINE SM(N,K,M,A,B,C)
[9]
DO 10 I=1,N
DO 10 J=1,M
[10]
DO 20 L=1,K
20 C(I,J)=C(I,J)+A(I,L)*B(L,J)
10 [11]
END
(8) 下列FORTRAN77子程序的功能是：统计字符串中字母Q、字母U和字符串QU出现的次数。其中字符串通过键盘输入得到，其长度不超过80个字符。请在程序中的下划线处填入适当的内容。
CHARACTER *80 STR
READ(*,*)STR
NUMQ=0
NUMU=0
NUMQU=0
I=0
K=0
10 [12]
IF(STR(I:I).EQ.’Q’) THEN
NUMQ=NUMQ+1
[13]
ELSE IF(STR(I:I).EQ.’U’) THEN
NUMU=NUMU+1
IF(K.EQ.1) NUMQU=NUMQU+1
K=0
ELSE
[14]
ENDIF
IF(I.LT.80) GOTO 10
WRITE(*,*)’NUMQ=’,NUMQ
WRITE(*,*)’NUMU=’,NUMU
WRITE(*,*)’NUMQU=’,NUMQU
END
(9) 用梯形公式求数值积分的近似公式为
取f(x)=s0+s1x+s2x2，对于不同的系数s0，s1，s2,和积分上下限a，b，计算近似积分值并输出结果。其中f(x)用函数子程序实现，数值积分用子程序实现，写成下列FORTRAN77程序。请在程序中的下划线处填入合适的内容。
[15]
COMMON S0,S1,S2
WRITE(*,*)’S0,S1,S2=’
READ(*,*)S0,S1,S2
READ(*,*)A,B
CALL SUB( [16] )
WRITE(*,*)’S0=’,S0,’S1=’,S1,’S2=’,S2
WRITE(*,*)’A=’,A,’B=’,B
WRITE(*,*)’FAB=’,FAB
END
FUNCTION F(X)
[17]
F=S0+S1*X,S2*X*X
END
SUBROUTINE SUB(A,B,F,FAB)
COMMON S0,S1,S2
FAB=0.5*(B-A)*(F(A)+F(B))
END
(10) 下列FORTRAN77程序的功能是计算并输出
请在程序中的下划线处填入合适的内容。
K=1
[18]
10 IF(K.LE.5) THEN
[19]
DO 20 M=1,K+2 |
