1998年9月全国计算机等级考试二级笔试考题.txt

c++的大量习题,对二级考试大有帮助. 希望大家满意.

(43) 阅读下列FORTRAN77 程序：
DIMENSION X(3)
P(X，Y)=3*X +2*Y 
DATA K，X/2，-3.6，0.5，7.8/
T=X(K)
IF (T.LE.0.0)S =P(1.0,2.0)
IF (T.LE.5.0)S =P(2.0,3.0)
IF (T.LE.10.0)S =P(3.0,4.0)
WRITE(*，*) S
END
运行上述程序后，输出的S值为
A) 7.0 　　 B) 12.0 　　 C) 17.0 　　 D) 运行出错
(44) 阅读下列FORTRAN77程序：
DIMENSION A(3，3)
DO 10 K=1，3
DO 10 J=1，3
10　A(K，J)=3*(K-1)+J
WRITE(*，*)F(A，3) 
END 
FUNCTION F(P，N)
DIMENSION P(N，N)
F=0
DO 10 K=1，N
10　F=F+P(K，K)
END
运行上述程序后，输出的结果为
A) 45.0 　　 B) 12.0　　　 C) 6.0 　　　 D) 15.0
(45) 阅读下列FORTRAN77程序：
　　　　INTEGER B(4，4)
　　　　DO 10 K=1，4
　　　　DO 10 J=1，4
　　10　B(K，J)=4*(J-1)+K
　　　　WRITE(*，*)SUM(B，2)
　　　　END
　　　　FUNCTION SUM (A，N)
　　　　INTEGER A (N，N)
　　　　SUM=0
　　　　DO 10 K=1，N
　　　　DO 10 J=1，N
　　10　SUM=SUM+A(K，J)
　　　　END
运行上述程序后，输出的结果为
A) 26.0　　　 B) 28.0 　　　 C) 14.0 　　　 D) 10.0
(46) 下列各FORTRAN77语句中不合法的是
A) SUBROUTINE ABC(X，Y，Z，SIN(X)) B) CALL P(X，SIN(Z))
C) COMMON //Q(20) D) REAL FUNCTION IP (X)
(47) 阅读下列FORTRAN77程序：
　　　　INTEGER P(12)
　　　　DATA P/8 ，2，3，5，6，4，9，3，0，15，5，3/
　　　　K=1
　　　　SUM=0.0
　　　　M=P(K)
　　　　N=P(K+1)
　　10　IF((M*N.NE.0).AND.(K.LT.12))THEN
　　　　SUM=SUM+F(M，N)　　
　　　　K=K+2
　　　　IF (K .LT.12) THEN
　　　　M=P(K)
　　　　N=P(K+1)
　　　　END IF 
　　　　GOTO 10 
　　　　END IF
　　　　WRITE (*，*) SUM
　　　　END
　　　　FUNCTION F(M，N)
　　　　　F=0
　　　　IF(MOD(M，N). EQ.0)F=1
　　　　END
运行上述程序后，输出的SUM值为
A) 5.0　　　 B) 4.0　　　 C) 3.0 　　　 D) 2.0
(48) 阅读下列FORTRAN77程序：
　　　DIMENSION S(3)
　　　DATA S/3.0，2.0，1.0/
　　　WRITE(*，100) A(3，S)
　100 FORMAT (1X，F3.1)
　　　END
　　　FUNCTION A(N，P)
　　　DIMENSION P(N)，M(3)
　　　A=0
　　　M(2)=2
　　　D0 10 K=1，N
　10 A=A+P(K)/M(2)
　　　END
运行上述程序后，输出的结果为
A) 随机值 　　 B) 3.0　　　 C) 2.5 　　 D) 2.0
(49) 阅读下列FORTRAN77程序：
COMMON A，B，C，X(6)
DO 10 K=1，6
10 X(K)=K
CALL S1 
CALL S2
WRITE(*，*) A
END
SUBROUTINE S1
COMMON A(6)，X，Y，Z
DO 10 K =1，6
10 A(K)=K
END
SUBROUTINE S2
COMMON P(9)
DO 10 K=1，3
10 P(K)=P(K)+P(9-K+1)
END
运行上述程序后，输出的A值为
A) 9.0　　 B) 7.0 　　 C) 5.0 　　 D) 3.0
(50) 阅读下列FORTRAN77程序：
　　　　EXTERNAL F1，F2
　　　　INTEGER X(3，4)
　　　　DATA X/3 *1，0，3*2，0，3*3，0/
　　　　WRITE(*，*)F(F1，F2，X，3)
　　　　END
　　　　FUNCTION F(S1，S2，X，N)
　　　　INTEGER X(N，N)
　　　　P=S1(X，N)
　　　　Q=S2(X，N)
　　　　IF(P.GT.Q) THEN
　　　　F=P
　　　　ELSE
　　　　F=Q
　　　　END IF
　　　　END
　　　　FUNCTION F1(X，N)
　　　　INTEGER X(N，N)
　　　　F1=0
　　　　DO 10 K=1，N
　　10　F1=F1+X(K，K)
　　　　END
　　　　FUNCTION F2(X，N)
　　　　INTEGER X(N，N)
　　　　F2=0
　　　　DO 10K=1，N
　　10　F2=F2+X(K，N-K+1)
　　　　END
　　运行上述程序后，输出的结果为
A) 0.0　　 B) 4.0　　　 C) 5.0　　　 D) 6.0
二、填空题(每空2分，共40分)
请将每空的正确答案写在答题卡 【1】 至 【20】序号的横线上，答在试卷上不得分。
(1) 自动批处理文件名为 【1】 。
(2) DOS命令分为内部命令和外部命令,COMP命令属于【2】命令。
(3) 设当前盘为C盘,现要用一条DOS命令在打印机上输出A盘当前目录下所有扩展名为.DAT的文件内容。这一条DOS命令应为【3】 。
(4) 要将当前盘当前目录下的子目录XYZ中所有扩展名为.BAK的文件名改成扩展名为.FOR,应使用的DOS命令为【4】 。
(5) 设DOS外部命令文件所在的路径均已用PATH命令打通。现要将当前盘当前目录下的文件WST.TXT设置为只读属性,应使用的DOS命令为【5】 。
(6) 下列FORTRAN77程序的功能是：
计算y=cosx在xk=0.9k(k=0,1,…，9)处的函数值yk,要求用冒泡排序法进行排序输出(按非递减顺序)。
请在程序中的下划线处填入合适的内容。
DIMENSION A(10)
DO 10 K=0，9
10　A(K+1)=COS(0.9*K)
DO 50 N= 9，1，【6】
DO 20 K=1，N
IF (A(K) 【7】 A(K+1)) THEN
D=A(K)
【8】
A(K+1)=D
END IF
20　CONTINUE
50　CONTINUE
DO 60 K=1，10
60　WRITE(*，100)A(K)
100 FORMAT(1X，F9.4)
END
(7) 下列FORTRAN77程序的功能是：
　　设500以内所有能被13整除但非偶数的自然数为(从小到大排列)
S1，S2，…，Sn
计算并输出
SUM=(1/S1)-(1/S2)+…+(-1)n-1(1/Sn)的值。
请在程序中的下划线处填入合适的内容。
　　　　S=0.0 
　　　　F=1.0
　　DO 10 N=1,500
　　　IF ((MOD(N，13).EQ.0) 【9】(MOD(N.2).NE.0))THEN
　　　　　S=S+F/N
　　　　　IF(F.LT.0.0)THEN
　　　　　　【10】
　　　　　 ELSE
　　　　　　【11】
　　　　　END IF
　　　END IF
　　10　CONTINUE
　　　　WRITE (*，100) S
　　100 FORMAT(1X，F9.4)
　　　　END
(8) 下列FRTRAN77程序的功能是：
从键盘输入若干个非负实数，并以输入一个负数作为结束，然后计算它们的平均值。请在程序中的下划线处填入合适的内容。
　　　　　【12】
　　　　SUM=0. 
　　　　READ(*，*) X
　　10　IF (X 【13】 0.0)THEN
　　　　　N=N+1
　　　　　SUM=SUM+　【14】
　　　　　READ(*，*)X
　　　　　COTO 10 
　　　　END IF
　　　　IF (N.EQ.O) THEN
　　　　　A=0.0
　　　　ElSE
　　　　　A=SUM/N
　　　　END IF
　　　　WRITE(*，100) A
　　　100 FORMAT (1X，E13.5)
　　　　　END
(9) 下列FORTRAN77程序的功能是：
　　求2～500以内最大的10个素数，并输出这10个素数之和。请在程序中的下划线处填入合适的内容。
　　　　M=0
　　　　K=499
　　　　　【15】
　　10　IF ((F.GE.2).AND.(MC.LT.10)) THEN
　　　　　N=SQRT(1.0*K)
　　　　　J=2
　　　　　　　【16】
　　20　IF (J.LE.N).AND.(KK.EQ.0))THEN
　　　　　　IF (MOD(K，J).EQ.0)KK=1
　　　　　　J=J+1
　　　　　　GOTO 20
　　　　END IF
　　　　IF (KK.EQ.0) THEN
　　　　　　【17】
　　　　　MC=MC+1
　　　　END IF
　　　　K=K-2
　　　　COTO 10
　　　　END IF
　　　　WRITE (*，100) M
　　100 FORMAT (1X，15)
　　　END
(10) 下列FORTRAN77程序的功能是：
计算并输出给定二维数组中各行的最大元素之和。
请在程序中的下划线处填入合适的内容。
DIMENSION A(3，4)
DATA A/21.3，-23.5，56.3，11.2，5.7，76.8，
* 22.5，84.4，-34.6，28.5，5.3，13.9/
WRITE(*，*) S(A，3，4)
END
FUNCTION 【18】
DIMENSION B(M，N)
S=0
DO 10 K=1，M
【19】 
DO 20 J=2，N
IF (B(K，J).GT.D)D =B(K，J)
20 CONTINUE
S=S+【20】
10 CONTINUE
END
〖完〗