1999年9月全国计算机等级考试二级笔试试题基础部分和PASCAL语言程序设计

1、1999年9月 全国计算机等级考试二级笔试试题基础部分和PASCAL语言程序设计1999年9月全国计算机等级考试二级笔试试题基础部分和PASCAL语言程序设计1999年9月 全国计算机等级考试二级笔试 试题 基础部分和PASCAL语言程序设计 发布时间：2006-05-13 、 的选择题(1)-(40)每个选项1分，(41)-(50)每个选项2分，共60 分)下列各题A)、的B)、的C)、的D)四个选项中，只有一个选项是 正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得 分。.joxue.(1) 十进制数1385转换成十六进制数为.joxue.A) 568 B)569 C)D85 D

2、)D55 .joxue.(2) 下列叙述中正确的是.joxue.A) 计算机病毒只能传染给可执行文件.joxue.B) 计算机软件是指存储在软盘中的程序.joxue.C) 计算机每次启动的过程之所以相同，是因为RAM中的所有信 息在关机后不会丢失.joxue.D) 硬盘虽然装在主机箱内，但它属于外存.joxue.(3) 一个字长的二进制数是.joxue.A) 8 B)16 C)32 D)随计算机系统而不同的.joxue.(4) CPU主要由运算器与控制器组成，下列说法中正确的是.joxue.A）运算器主要负责分析指令，并根据指令要求作相应的运算.joxue.B）运算器主要完成对数据的运算，包括

3、算术运算和逻辑运算.joxue.C）控制器主要负责分析指令，并根据指令要求作相应的运算.joxue.D）控制器直接控制计算机系统的输入与输出操作.joxue.（5）下列叙述中正确的是.joxue.A）将数学信号变换成便于在模拟通信线路中传输的信号称为调 制.joxue.B）以原封不动的形式将来自终端的信息送入通信线路称为调制 解调.joxue.C）在计算机网络中，一种传输介质不能传送多路信号.joxue.D）在计算机局域网中，只能共享软件资源，而不能共享硬件资源.joxue.（6）各种网络传输介质.joxue.A）具有相同的传输速率和相同的传输距离.joxue.B）具有不同的传输速率和不同的传

4、输距离.joxue.C）具有相同的传输速率和不同的传输距离.joxue.D）具有不同的传输速率和相同的传输距离.joxue.（7）多媒体计算机系统的两大组成部分是.joxue.的A）多媒体功能卡和多媒体主机.joxue.B）多媒体通信软件和多媒体开发工具.joxue.C）多媒体输入设备和多媒体输出设备.joxue.D）多媒体计算机硬件系统和多媒体计算机软件系统.joxue.（8）按通信距离划分，计算机网络可以分为局域网和广域网。下 列网络中属于局域网的是.joxue.A）I nternet B）CERNET C）Novell D）CHINANET .joxue.（9）在Windows中，启动应

5、用程序的正确方法是.joxue.A）用鼠标双击该应用图标.joxue.B）将该应用程序窗口最小分成图标.joxue.C）将该应用程序窗口还原.joxue.D）将鼠标指向该应用程序窗口 .joxue.（10）在Windows中，终止应用程序执行的正确方法是.joxue.A）用鼠标双击应用程序窗口左上角的控制菜单框.joxue.B）将应用程序窗口最小化成图标.joxue.C）用鼠标双击应用程序窗口右上角的还原按钮.joxue.D）用鼠标双击应用程序窗口中的标题栏.joxue.（11）DOS 控制键 CtrlAltDel 的功能为.joxue.A）删除一个字符并退格.joxue.B）暂停标准输出设备

6、的输出.joxue.C）热启动.joxue.D）终止当前操作.joxue.(12) 设当前盘为C盘，为了将A盘当前目录中所有扩展名为PAS的文件改成扩展名为。P,应使用的DOS命令为.joxue.A) REN A:*。PAS A:*。P B)REN A:*。PAS *。P .joxue.C)REN A:。PAS A:。P D)REN A:。PAS .P .joxue.(13) 设当前盘为C盘，其根目录下有两个子目录 D1和D2，且 当前目录为D1，若要进入子目录 D2，正确的DOS命令为.joxue.A)CD D2 B)CD D2、的 C)CD、的 D2 D)CD D1、的 D2 .joxue

7、.(14) 设当前盘为A盘，要将B盘当前目录下的两个文件 A.TXT 与X.TXT连接后以文件名Y.TXT存放到A盘的当前目录中，正确的 DOS 命令为.joxue.A)COP Y A.TXTX.TXT A:Y .TXTB)COP YB:A.TXTX.TXTA: Y.TXT .joxue.C)COPY B:A.TXTB:X.TXTY.TXT D)COPY B:A.TXTB:X.TXTY.TXT .joxue.(15) 下列DOS命令中正确的是.joxue.A) REN、的 USER、的 A.TXT、的 B.TXT .joxue.B) CD、的.joxue.C) TYPE *。TXT .joxu

8、e.D) MD 、的.joxue.(16) 根据函数Trunc(x)和Round(x)的定义，可用 Trunc(x)来表 示Round(x)，正确的表示方法是.joxue.B) Ro un d(x)=Tr un c(x-0.5).joxue.C) Rou nd(x)二Tru nc(x0.5)x=0 .joxue.Trun c(x-0.5)x0 .joxue.D) Rou nd(x)二Tru nc(x-0.5)x=0 .joxue.Trunc(x0.5)x 0 .joxue.(17) y既不在-2到-1的范围内又不在1到2的范围内，其正 确的表达式是.joxue.A) (Abs(y)1)AND

9、(Abs(y)2)B)(Abs(y)1)OR (Abs(y) 2).joxue.C)(12)AND (-2 -1)D)NOT(1 2)OR NOT (-2-1).joxue.(18) 有下列程序.joxue.PROGRAM print(lnput，Output) ； .joxue.VAR chi ， ch2，ch3 : Char ； .joxue.BEGIN .joxue.Readln(chi) ； .joxue.Readln(ch2 ， ch2) ； .joxue.Readln(ch3 ，ch3，ch3) ； .joxue.Writeln(chi ，ch2，ch3).joxue.END.jo

10、xue.若运行时输入.joxue.blue .joxue.则正确的输出是.joxue.A) ryb B)reu C)rdl D)blu .joxue.(19) 表达式 8 MOD (2*(5-3*(46*(5 DIV 2)DIV 10)的值 是.joxue.A) 0 B)1 C)2 D)3 .joxue.(20) I nteger 是.joxue.A) 保留字B)标准标识符C)用户定义的标识符D)类型定 义.joxue.(21) 假设a1，a2，a3是布尔变量，且值均为True，则下列表达式中值为False的是.joxue.A)NOT a1 AND NOT a2 B)a1 OR a2 AND

11、a3 .joxue.C)(NOT a1 OR a2)AND (a2 OR a3)D)False OR a1 AND a2OR NOT a3 .joxue.(22) 已知ch是字符变量，下列赋值语句中正确的是.joxue.A)ch:=7B)ch:=7 C)ch:二-7D)ch:=-7.joxue.(23) 下列中正确的过程说明和调用是.joxue.A)PROCEDURE proc1(a:Char ； VAR b:Char) ； B)PROCEDUREproc2(a ，b:Integer) ； .joxue.BEGIN BEGIN .joxue.END ; BEGIN 主程序.joxue.joxu

12、c2(3.5 , 1); .joxue.joxue.END.joxue.C)PROCEDURE proc3(a:Real ; VAR b:Real);proc4(c , d:Integer) ; .joxue.BEGIN BEGIN .joxue.joxue.END ; END ; .joxue.BEGIN 主程序BEGIN 主程序.joxue.a:=1 ; .joxue.x:=1 ; b:=2 ; .joxue.y:=2 ; proc4(a , b).c3(xy , x-y) ; END.joxue.joxue.END.joxue.(24) 下面程序中的过程pro

13、c的参数表没有给出PROGRAM exam(Output) ; .joxue.D)PROCEDURE.joxue.VAR a , b:Integer ; .joxue.c:=ab ; .joxue.d:=a-b .joxue.END ; .joxue.BEGIN .joxue.a:=1 ; .joxue.b:=2 ; .c(a , b); .joxue.Writeln(a:2 , , , b:2).joxue.END.joxue.则过程proc中的参数表取下列哪种形式，程序的输出是1 ,2 .joxue.A)c:ln teger; VAR d:I nteger B)VAR c

14、:I nteger ;d:I nteger .joxue.C) c, d:Integer D)VAR c , d:Integer .joD) 文件变量可以作为函数的返回值.joxue.(29) 要编写并执行一个Pascal程序，一般的步骤是.joxue.A) 用编辑软件编写源程序.joxue. 用Pascal的编译程序把源程序转换为目标程序.joxue. 用连接程序把目标程序转换为可执行程序.joxue. 运行可执行程序.joxue.B) 用编辑软件编写源程序.joxue. 用Pascal的编译程序把源程序转换为可执行程序.joxue. 运行可执行程序.joxue.C) 用编辑软件编写源程序.

15、joxue. 有连接程序把源程序转换为可执行程序.joxue. 试运行可执行程序.joxue. 修改后再运行可执行程序.joxue.D) 用编辑软件编写源程序.joxue. 有连接程序把源程序转换为目标程序.joxue. 用Pascal的编译程序把目标程序转换为可执行程序.joxue. 运行可执行程序.joxue.(30) 下面是对实型常量的形式定义，其中士表示是正号或负号，a表示整数部分，b表示小数部分，E表示以10为底数的指数，则下 面对实型量描述正确的是.joxue.A) 士。b B) 士E6 C) IE5 D) 士a.bE 0.5 .joxue.(31) 不能作为子界类型的基类型的是.

16、joxue.A) 实数类型B)枚举类型C)字符类型D)布尔类型.joxue.(32) 下列语句对数组num进行说明，其中不正确的是.joxue.A) VAR num:ARRAYBooleanOF Boolean; .joxue.B) VAR num:ARRAY10 , 10OF Boolean ; .joxue.C) VAR num:ARRA Y0.。 8OF ARRA Y5.。10OFInteger ； .joxue.D) VAR num:ARRAY-1.。5 , aeOF Real ; .joxue.joxue.(33) 下面哪个关于指针类型的叙述是错误的A) 指针类型可以作为数组的基类型

17、.joxue.B) 指针类型可以作为集合的基类型.joxue.C) 指针类型可以作为函数joxue.A) Readln(a) ； .joxue.CASE a OF .joxue.0， 1，2:Writeln(a*a二，Spr(a) ； .joxue.3:b:=Spr(a)-a； .joxue.Write In (c二，c) ； .joxue.4，5:WriteIn(aa二，aa).joxue.END ； .joxue.B) Readln(a) ； .joxue.的 CASE a OF .joxue.0， 1，2:Writeln(a*a二，Spr(a) ； .joxue.3:Writeln(a*

18、a-a=，Spr(a)-a) ； .joxue.1，4，5:Writeln(aa=，aa).joxue.END ； .joxue.C) Readln(a) ； .joxue.CASE a OF .joxue.0， 1，2:Writeln(a*a二，Spr(a) ； .joxue.b:=Spr(a)-a ； .joxue.Write In (c二,c); .joxue.END ; .joxue.4 , 5:WriteIn(aa二,aa).joxue.END ; .joxue.D) Readln(a) ; .joxue.CASE Sqr(a)/a OF .joxue.0, 1 , 2:Writel

19、n(a*a二,Sqr(a) ; .joxue.3:BEGIN .joxue.b:=Sqr(a)-a ; .joxue.Write In (c二,c); .joxue.END ; .joxue.4 , 5:WriteIn(aa二,aa).joxue.END ; .joxue.(36) 设有说明 VAR x , y:(d , c, b , a); .joxue.执行下面3条语句后的输出是.joxue.x:=a ； .joxue.y:=c ; .joxue.Writeln(Ord(y)-Ord(x); .joxue.A)1 B)-2 C)2 D)3 .joxue.(37) 要使语句IF a IN b

20、 THEN语句；无语法错误，a, b的类型应该是.joxue.B) b是集合类型，a的类型与b的基类型相同.joxue.C) a和b都是集合类型.joxue.D) a , b中的任何一个都可以是集合类型，另一个则是此集合的基类型.joxue.(38) 设a，b是整型变量且已赋值，函数首部为FUNCTIONfunc(VAR a:Integer) : Integer ； .joxue.下面正确的函数调用是.joxue.A)b:=func(func(b)； B)Writeln(func(ab) ； .joxue.C)Writeln(Ord(func(b)； D)b:=func(Succ(func(b

21、)； .joxue.(39) 设a为集合变量，下面哪一组中的两个表达式的值是不同的.joxue.A)aa-a 禾口 a-aa B)aa*a 禾口 a .joxue.C)(aa)*a 和 a D)a-a*a 和(aa)*a-a .joxue.(40) 设有说明如下：TYPE rec二RECORD .joxue.a， b:Integer .joxue.END ； .joxue.ft二FILE OF rec ； .joxue.VAR f:ft ； .joxue.s:rec ； .joxue.ft类型文件abc.dat中有一条rec型记录，要取出记录中的两个整数并输出，应使用的程序段是.joxue.R

22、eset(f) ; Reset(f) ; .joxue.Read(f , s.a, s.b); Readln(f , s); .joxue.Close(f) ; Close(f) ; .joxue.Writeln(s.a , s.b); Writeln(s.a , s.b); .joxue.C)Assign(f , abc.dat) ; D)Assign(f , abc.dat) ; .joxue.Reset(f) ; Reset(f) ; .joxue.的 Readln(f , s.a, s.b); Read(f, s); .joxue.Close(f) ; Close(f) ; .joxu

23、e.Writeln(s.a , s.b); Writeln(s.a , s.b); .joxue.(41) 设集合 x=2 , 4, 6, 8 , y=2 , 3, 4, 5, 6，下面能使 a=的赋值语句是.joxue.A)a:=x-y8B)a:=(xx)*(x-y).joxue.C)a:=x*y-x D)a:=(y-x)-(x-y).joxue.(42) 有程序：.joxue.PROGRAM prog(Input , Output) ; .joxue.VAR a , b:lnteger ; .joxue.PROCEDURE p(VAR x:Integer ; y:Integer) ; .j

24、oxue.BEGIN .joxue.x:xy .joxue.END ; .joxue.p(a , b); .joxue.p(a , a MOD b) ; .joxue.Writeln(a , , , b).joxue.END.joxue.则运行结果为.joxue.A)10 , 10 B)20 , 20 C)10 , 20 D)20 , 10 .joxue.(43) 有下列程序：.joxue.JoxuePROGRAM exam2(Input , Output) ; .joxue.VAR i:Integer ; .joxue.FUNCTION ss(n:lnteger) : Boolean ; .

25、joxue.VAR i:Integer ; b:Boolean ; .joxue.BEGIN .joxue.i:=3 ; b:二True ; .joxue.WHILE(i二Trunc(Sqrt(n)AND b DO .joxue.BEGIN .joxue.IF n MOD i=0 THEN b:二False; .joxue.i:=i2 .joxue.END ; .joxue.ss:=b .joxue.END ; .joxue.WHILE i=100 DO .joxue.BEGIN .joxue.IF ss(i)AND ss(i4)AND ss(i10)THEN .joxue.Writeln(i

26、) ; .joxue.i:=i2 .joxue.END .joxue.END.joxue.则程序的功能是.joxue.A) 找出100以内的全部质数(即素数)。.joxue.B) 找出100以内质数的个数。.joxue.C) 找出100以内满足i, i4 , i10都是质数的i的个数。.joxue.D) 找出100以内满足i, i4 , i10都是质数的所有整数i。.joxue.(44) 设有说明.joxue.VAR a，b，c:lnteger ； .joxue.FUNCTION ff(x ， y， z， j:Integer ； VAR a:integer)Integer ； .joxue.V

27、AR i:Integer ； .joxue.BEGIN .joxue.ff:=0 ； a:=j ； .joxue.FOR i:=a TO 3 DO .joxue.x:=x1 .joxue.END ; .joxue.END ; .joxue.执行语句 c:=ff(ff(2 , 4 ,16 , 1 , a), 6, 8, 3, b)后变量 c, a, b的值分别是.joxue.的 A)0, 1 , 1 B)0, 3, 1 C)0, 3, 3 D)0 , 1 , 3 .joxue.(45) 下面哪个类型说明是错误的？.joxue.A)T YPE rec仁RECORD B)T YPE rec2二REC

28、ORD .joxue.a:Integer ； a:Integer ； .joxue.CASE flag:A COF CASE flag:X ZOF .joxue.A :(x:Char);X :(x:Char);.joxue.B :(y:Char);Y:(y:Char);.joxue.C :(z:Char);Z :(z:Char);.joxue.END ; END ; .joxue.C)T YPE rec3二RECORD D)T YPE rec4二RECORD .joxue.的 a:Integer ; x:Integer ; .joxue.CASE flag:A COF CASE flag:X

29、ZOF .joxue.A :(a:Char);X :(a:Char) ;.joxue.B :(b:Char);Y:(b:Char) ;.joxue.C :(c:Char);Z:(c:Char) ;.joxue.END ; END ; .joxue.(46) 设有类型和变量说明如下：.joxue.的 TYPE t仁RECORD .joxue.的 a, b:lnteger ； .joxue.的 END; .joxue.t2二RECORD .joxue.a:Char ; b:t1 .joxue.END ; .joxue.VAR x:t2 ; .joxue.下面哪组语句有错误？ .joxue.A) x

30、.a:=A ; B)WITH x , b DO .joxue.x.b.a:=1 ; BEGIN .joxue.x.b.b:=2 ; a:=A ; b:=5 .joxue.END ; .joxue.C)WITH x DO D)x.a:=C; .joxue.BEGIN WITH x , b DO .joxue.WITH b DO BEGIN .joxue.BEGIN a:=1 ; b:=2 ; .joxue.a:=1 ; b:=2 END ; .joxue.END ; .joxue.a:=C.joxue.END ; .joxue.REPEAT .joxue.IF n MOD 2=0 THEN .j

31、oxue.n:二n1 .joxue.ELSE .joxue.n:=n2 .joxue.UNTIL n=1000; .joxue.关于输入数据的正确描述是.joxue.A) 只有输入的n是偶数时才会出现死循环.joxue.B) 只有输入的n是奇数时才会出现死循环.joxue.C) 只有输入的n大于或等于1000时才会出现死循环.joxue.D) 输入任何数时都会出现死循环.joxue.(48) 下面程序的输出是.joxue.PROGAM bs23(Output) ； .joxue.VAR a:ARRAY1.。10OF Char ； .joxue.k:Integer ； ch:Char ； .jo

32、xue.BEGIN .joxue.FOR k:=1 TO 10 DO .joxue.ak : =Chr(Ord(A)k) ； .joxue.FOR k:=1 TO 10 DO .joxue.BEGIN .joxue.a11-k : =ch ； .joxue.END ; .joxue.FOR k:=1 TO 10 DO .joxue.Write(ak) ； .joxue.Writein .joxue.END.joxue.C）JIHGFEDCBA（没有行结束符）,A)ABCDEFGHIJB)BCDEFGHIJKD) KJIHGFEDCB .joxue.(49) 设文件file2.dat中是一行若干

33、个大写字母请阅读下面的程序.joxue.PROGRAM bs24(lnput ，Output) ； .joxue.VAR fl ，f2:Text ； .joxue.ch:Char ； j:lnteger ； .joxue.s:SET OF A Z ; .joxue.BEGIN .joxue.s:= ; .joxue.Assign(f1 , file2.dat) ; .joxue.Assign(f2 , out2.dat) ; .joxue.Reset(fl) ; .joxue.Rewrite(f2) ; .joxue.Read(f1 , ch) ; .joxue.s:=sch.joxue.EN

34、D ; .joxue.FOR ch:=ATO ZDO .joxue.IF ch IN s THEN .joxue.Write(f2 , ch); .joxue.Close(f1) ; .joxue.close(f2).joxue.END.joxue.此程序的功能是.joxue.A) 把file2.dat中不重复的字母写入文件out2.dat(即只保留出现 一次的字母)。.joxue.B) 把file2.dat中重复出现的字母写入文件out2.dat(即只保留出 现多次的字母)。.joxue.C) 把file2.dat中重复出现的字母中多余的字母滤去后，写入文件out2.dat(即若有多个字母相

35、同，则只 Joxue的保留一个).joxue.D) 把file2.dat中的所有字母写入文件 out2.dat。.joxue.(50) 设有说明 CONST n=10 ； .joxue.TYPE arr=ARRAY1.。nOF Integer ； .joxue.要求函数func从数组a中查找一个等于x的数并返回此数的下 标，如果a中没有此数，则返回0,下面哪个函Joxue数不能完全正 确地实现上述功能。.joxue.A) FUNCTION func(a:arr; x:lnteger) ： Integer ; .joxue.VAR found:Boolean; k:Integer ; .joxu

36、e.BEGIN .joxue.found:=False ; k:=1 ; .joxue.WHILE (k二n)AND NOT found DO .joxue.IF x=akTHEN .joxue.foun d:=True .joxue.ELSE .joxue.k:=k1 ; .joxue.IF found THEN .joxue.fun c:=k .joxue.ELSE .joxue.fun c:=0 .joxue.END ; .joxue.B) FUNCTION func(a:arr; x:integer) ： Integer ; .joxue.VAR foun d:Boolea n; k:

37、I nteger .joxue.BEGIN .joxue.k:=0 ; .joxue.REPEAT .joxue.k:=k1 ; .joxue.foun d:=x=ak.joxue.IF found THEN .joxue.fun c:=k .joxue.的 ELSE .joxue.fun c:=0 .joxue.END ; .joxue.C) FUNCTION func(a:arr ; x:Integer) ： Integer ; .joxue.VAR k:Integer ; .joxue.BEGIN .joxue.k:=1 ; .joxue.WHILE (k 二n)AND (x ak)DO

38、 .joxue.k:=k1 ； .joxue.IF kn THEN .joxue.fun c:=0 .joxue.ELSE .joxue.fun c:=k .joxue.END ; .joxue.D) FUNCION func(a:arr; x:Integer) ： Integer ; .joxue.VAR k:Integer ; .joxue.BEGIN .joxue.k:=0 ; .joxue.k:=k1 .joxue.UNTIL(ak=x)OR (k=n); .joxue.IF kn THEN .joxue.fun c:=0 .joxue.ELSE .joxue.fun c:=k .jo

39、xue.END ; .joxue.二、的填空题(每空2分，共40分).joxue.的请将每一个空的正确答案写在答题卡1 _至20 号的横线上，答在试卷上不得分。.joxue.(1) DOS命令分为内部命令与外部命令，PATH命令是 _1命令。.joxue.(2) 设当前盘为A盘，当前目录为、的X、的Y, A盘上的一个文件QR.C在当前目录下的子目录 W中。现已将A盘的当前目录改为、 的D、的XY，当前盘改为C盘，如果需指定A盘上的该文件应写成 2。 .joxue.(3) 为了得到XCOPY命令的在线帮助，可使用的 DOS命令之一为3。.joxue.在DOS系统下，代表键盘与显示器的设备文件名为

40、4。 .joxue.(5)在DOS系统下，可以直接执行的文件的扩展名除。EXE外，(6)设有说明 TYPE .joxue.list=ode ; .joxue.no de二RECORD .joxue.data:Char ; .joxue.next:list ； .joxue.END ; .joxue.下面过程letterlist的功能是：对输入的一串字母（限定为小写字 母），按输入顺序建立一个字母链表（当输入的是非小写字母时停止建 表）。.joxue.PROGCEURE letterlist（VAR hea例如，m=4567，n=5678， 则计算结果为4567*5678=25931426 ，乘积的前4位数2593存入hi，乘积的后 4 位数 1426 存入 lo。.joxue.PROCEDURE pl（m ， n:lneger ； VAR hi， lo:Integer） ； .joxue.VAR i:Integer ； .joxue.BEGIN .joxue.i:=n ; hi:=0 ； 9； .joxue.REPEAT .joxue.i:=i-1 ；