全国计算机等级考试二级笔试试卷基础部分和fortran语言程序设计2002年4月.txt

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

DO 10 M=1,20
N(M)=0
10 CONTINUE
K=5
DO 20 M=1,K
DO 20 J=1,K
N(J)=N(M)+1
20 CONTINUE
WRITE(*,*)N(K)
END 
程序运行的结果是:
A) 8 B) 9 C) 18 D) 10
(47) 阅读下列FORTRAN77程序:
COMMON /COM/M(5),N(4)
CALL FIB
WRITE(*,'(1X,4I3)')N
END
SUBROUTINE FIB
COMMON /COM/J(5),K(4)
DO 10 I=1,4
K(I)=J(I+1)-J(I)
10 CONTINUE
END
BLOCK DATA
COMMON /COM/K(5),L(4)
DATA K/8,7,10,4,13/
END
程序运行的结果是:
A) 1 -3 6 -9 B) 7 10 4 13
C) -1 3 -6 9 D) -9 3 -6 9
(48) 阅读下列FORTRAN77程序:
INTEGER P(3,4)
DATA P/1,2,3,4,5,6,7,8,9,10,11,12/
CALL SUB(P)
WRITE(*,*)P(2,2)
END
SUBROUTINE SUB(A)
INTEGER A(12)
DO 10 K=1,12
M=A(K)
A(K)=A(12-K+1)
A(12-K+1)=M
10 CONTINUE
END 
程序运行结果是：
A) 5 B) 6 C) 7 D) 8
(49) 阅读下列FORTRAN77程序：
N=0
DO 10 K=30，0，-2
DO 10 L=-10，10，1
10 N=N+1
WRITE(*，*)N
END
程序运行结果是：
A) 316 B) 326 C) 306 D) 336
(50) 阅读下列FORTRAN77程序：
COMMON A，B，C，D
A=1.0
B=2.0
C=3.0
D=4.0
CALL ABCD(2)
WRITE(*,*)A,C
END
SUBROUTINE ABCD(N)
COMMON B,C,D,A
IF(N.LE.0) THEN
B=A
C=D
ENDIF
END 
程序运行结果是
A) 1.0 3.0 B) 1.0 4.0 C) 4.0 3.0 D) 4.0 2.0 
二、填空题(每空2分，共40分)
请将每一个空的正确答案写在答案卡【1】至【20】序号的横线上，答在试卷上不得分。
(1) 为了要将当前盘目录中的可执行程序ABC.EXE的输出结果存放到当前盘当前目录中的文件OUT.TXT中,则应使用的DOS命令为【1】 。
(2) 计算机网络分为广域网和局域网,因特网属于【2】 。
(3) 要想在当前目录下方便地执行C盘\UCDOS目录中的程序,就应该先执行预设搜索路径的命令,该DOS命令为【3】 。
(4) 要查看当前目录中扩展名为.DAT的所有文件目录,应该使用的DOS 命令为【4】 。
(5) 在Windows环境下,当进行复制操作时,其复制的内容将存放在【5】中 
(6) 下列FORTRAN77子程序的功能是用以下公式计算一组数据Z1,Z2,…,Zn的标准差σ：
σ2=(Z12 +Z22+…+Zn2)/n-[(Z1+Z2,+…+Zn)/n]2
请在程序中的下划线处填入合适的内容。
【6】 SIGMA(Z，N)
REAL Z(N)
SUMX=0.0
SUMX2=0.0
DO 10 K=1,N
【7】
SUMX=SUMX+X
SUMX2=SUMX2+X*X
10 CONTINUE
AV=SUMX/N
AV2=SUMX2/N
S2=AV2-AV*AV
SIGMA=【8】
END
(7) 下列FORTRAN77程序的功能是将30个学生的考试成绩读入数组A,然后统计并且输出最高的分数以及小于60分、60～80分与大于80分的三个分数段的学生数。请在程序中的下划线处填入合适的内容。
【9】 A(30), B, C(3)
DATA C/3*0/
READ(*,*)A
【10】
DO 10 K=2,30
IF(A(K).GT.B) B=A(K)
10 CONTINUE
DO 30 K=1,30
IF (A(K).LT.60)C(1)=C(1)+1
IF (A(K).GT.80)C(3)=C(3)+1
IF(A(K).LE.80 【11】 A(K).GE.60)C(2)=C(2)+1
30 CONTINUE
WRITE(*,*) B,C
END
(8) 下列FORTRAN77程序的功能是用对分法求出方程4.1x3-5.2x=11.8在区间(1，5)中的一个实数根，要求输出根的近似值和对分次数。请在程序中的下划线处填入合适的内容。
【12】 =4.4*X**3-5.2*X-11.8
DATA XL,XR,N/1.0,N/1.0,5.0,0/
10 N=N+1
X=(XL+XR)/2.0
FX=FUN(X)
IF (ABS(FX).LT.1E-6.OR.N.GE.1000)THEN
WRITE(*,'(1X,A2,F12.7,A5,I4)')'X=',X,'N=', N
ELSE
IF(FUN(XR)*FX.GE.0.0) THEN
XR=X
【13】
XL=X
ENDIF
【14】
ENDIF
END
(9) 下列FORTRAN77程序的功能是计算多项式y=2+2.1x+3.2x3+5.4x5 在x=1.7时的值。主程序调用了函数子程序POLY。请在程序中的下划线处填入合适的内容。
PROGRAM PVALUE
REAL A(6)
DATA A/【15】 /
DATA N，X/6， 1.7/
Y=POLY(A,N,X)
WRITE(*,'(1X,A5,6F5.1)')'a(k)=',A
WRITE(*,'(1X,A2,F5.1,A6,F8.2)')'X=',X,'; Y=',Y
END 
FUNCTION POLY(B,M,V)
【16】
POLY=B(1)
FV=1.0
DO 10 K=2, M
FV=FV*V
10 POLY=POLY+【17】
END 
(10) 下列FORTRAN77程序的功能是使用筛法筛选出N以内的所有素数并输出。其算法如下：
在N 以内的自然数列中先筛除2的倍数(不包括2)；在2之后未筛去的第一个数是3,于是再筛除3的倍数；在3之后未筛去的第一个数是5,于是再筛除5的倍数；如此重复下去，直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止。请在程序中下划线处填入合适的内容。
PARAMETER (N=100)
【18】 A(N),P(N)
A(1)=0
DO 10 K=2,N
10 A(K)=K
DO 20 K=3,N
20 IF(MOD(A(K),2).EQ.0)A(K)=0
ISR=SQRT(FLOAT(N))
DO 30 M=3,ISR,2
DO 30 K=M+2, N 
30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)【19】 
M=1
DO 40 K=1,N
IF(A(K).NE.0)THEN
P(M)=【20】
M=M+1
ENDIF
40 CONTINUE
WRITE(*,'(1X,10I8)')(P(K),K=1,M-1)
END
〖完〗
基础部分和FoxBASE程序设计试题
参考答案及评分标准
一、选择题（⑴-(40)题每题1分，(41)-(50)题每题2分，其60分）
(1) D (2) B (3) A (4) A (5) B
(6) C (7) B (8) B (9) C (10) C
(11) D (12) D (13) C (14) A (15) B
(16) B (17) C (18) A (19) C (20) B
(21) C (22) A (23) D (24) D (25) B
(26) D (27) B (28) D (29) A (30) C
(31) C (32) B (33) A (34) D (35) B
(36) D (37) B (38) C (39) C (40) D
(41) B (42) C (43) B (44) C (45) A
(46) B (47) C (48) C (49) B (50) C
二、填空题答案（每空2分，共40分）
(1) 【1】ABC >OUT.TXT 或者 ABC.EXE>OUT.TXT
(2) 【2】广域网
(3) 【3】PATH C:\UCDOS 或其它等效命令
(4) 【4】DIR *.DAT 或 DIR *.DAT/P 或 DIR *.DAT/W 或带其它参数也可
(5) 【5】剪贴板
(6) 【6】.NOT.婚姻状况 或 !婚姻状况
(7) 【7】INT(X/3)=X/3 或 X/3=INT(X/3)
【8】MOD(X,3)=0 或 0=MOD(X,3)
【9】ROUND(X/3,0)=X/3 或 X/3=ROUND(X/3,0)
(8) 【10】TOTAL TO SG ON 类别 FIELDS 数量, 总价
或TOTAL TO SG ON 类别 FIELDS总价, 数量 
或TOTAL ON 类别FIELDS 数量, 总价TO SG
或TOTAL ON 类别FIELDS总价, 数量TO SG
只有TOTAL 给1分。
(9) 【11】.NOT.EOF() 或 !EOF()
【12】OTHERWISE 或至少包含前4个字母
【13】WITH 基本工资+奖金+津贴-扣发 注：WITH后的各项顺序不限
【14】SKIP 或 SKIP 1 或 SKIP +1
(10) 【15】ACCEPT 如果写成INPUT给1分
【16】FOUND() 或 .NOT.EOF() 或 !EOF()
【17】TO YN
(11) 【18】SUM 基本工资,奖金,津贴 TO JB,JJ,JT
或 SUM TO JB, JJ, JT基本工资,奖金,津贴
注：基本工资、奖金、津贴的顺序不限，但必须与JB、JJ、JT对应。
(12) 【19】INDEX ON 岗位+职工号 TO GW_ZG
或INDEX ON 岗位+职工号 TO GW_ZG.IDX
(13) 【20】SET ORDER TO 3
〖完〗
基础部分和FORTRAN程序设计试题
参考答案及评分标准
一、选择题（⑴-(40)题每题1分，(41)-(50)题每题2分，其60分）
(1) D (2) B (3) A (4) A (5) B
(6) C (7) B (8) B (9) C (10) C
(11) D (12) D (13) C (14) A (15) B
(16) B (17) D (18) C (19) C (20) D
(21) A (22) A (23) D (24) A (25) C
(26) B (27) C (28) B (29) C (30) D
(31) B (32) C (33) D (34) A (35) A
(36) D (37) B (38) A (39) A (40) A
(41) C (42) C (43) C (44) C (45) D
(46) B (47) C (48) A (49) D (50) A
二、填空题答案（每空2分，共40分）
(1) 【1】ABC >OUT.TXT 或者 ABC.EXE>OUT.TXT
(2) 【2】广域网
(3) 【3】PATH C:\UCDOS 或其它等效命令
(4) 【4】DIR *.DAT 或 DIR *.DAT/P 或 DIR *.DAT/W 或带其它参数也可
(5) 【5】剪贴板
(6) 【6】FUNCTION
【7】X＝Z(K)
【8】SQRT(S2) 
(7) 【9】 INTEGER或者REAL
【10】 B=A(1)
【11】.AND.
(8) 【12】FUN(X)
【13】ELSE
【14】 GOTO 10
(9) 【15】 2.0, 2.1 0.0，3.2， 0.0，5.4
（注：顺序不可颠倒，小数点前后的0可以省略其中的一个。）
【16】DIMENSION B(M) 或者 REAL B(M)
【17】 B(K)*FV 或者 FV*B(K)
(10) 【18】INTEGER
【19】A(K)=0 或者 A(K)=0.0
【20】A(K)