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

《1999年9月全国计算机等级考试二级笔试试题基础部分和PASCAL语言程序设计》由会员分享，可在线阅读，更多相关《1999年9月全国计算机等级考试二级笔试试题基础部分和PASCAL语言程序设计（34页珍藏版）》请在装配图网上搜索。

1、11999 年 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 转换成十六进制数为.j

2、oxue.A) 568 B)569 C)D85 D)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 主要由运算器与控制器组成，下列说法中正确的2是.joxue.A）运算器主要负责分析指令，并根据指令要求作相

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

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

5、）CHINANET .joxue.（9） 在 Windows 中，启动应用程序的正确方法是.joxue.A）用鼠标双击该应用图标.joxue.B）将该应用程序窗口最小分成图标.joxue.C）将该应用程序窗口还原.joxue.D）将鼠标指向该应用程序窗口 .joxue.（10）在 Windows 中，终止应用程序执行的正确方法是.joxue.A）用鼠标双击应用程序窗口左上角的控制菜单框.joxue.B）将应用程序窗口最小化成图标.joxue.C）用鼠标双击应用程序窗口右上角的还原按钮.joxue.D）用鼠标双击应用程序窗口中的标题栏.joxue.（11）DOS 控制键 CtrlAltDel 的

6、功能为.joxue.A）删除一个字符并退格.joxue.4B）暂停标准输出设备的输出.joxue.C）热启动.joxue.D）终止当前操作.joxue.A)Ro un d(x)=Tr un c(x0.5).joxue.5(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，且

7、 当前目录为 D1，若要进入子目录 D2，正确的 DOS 命令为.joxue.A)CD D2 B)CD D2、的 C)CD、的 D2 D)CD D1、的 D2 .joxue.(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

8、.(15) 下列 DOS 命令中正确的是.joxue.A) REN、的 USER、的 A.TXT、的 B.TXT .joxue.B) CD、的.joxue.C) TYPE *。TXT .joxue.D) MD 、的.joxue.(16) 根据函数 Trunc(x)和 Round(x)的定义，可用 Trunc(x)来表 示red .joxue.yellow .joxue.6Round(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 .

9、joxue.D) Rou nd(x)二二Tru nc(x-0.5)x =0 .joxue.Trunc(x0.5)x0 .joxue.(17) y 既不在-2 到-1 的范围内又不在 1 到 2 的范围内，其正 确的表达式是.joxue.A) (Abs(y)1)AND (Abs(y)2)B)(Abs(y)1)OR (Abs(y)2).joxue.C)(12)AND (-2-1)D)NOT(12)OR NOT (-2-1).joxue.(18) 有下列程序.joxue.PROGRAM print(lnput，Output) ； .joxue.VAR chi ， ch2，ch3 : Char ； .

10、joxue.BEGIN .joxue.Readln(chi) ； .joxue.Readln(ch2 ， ch2) ； .joxue.Readln(ch3 ，ch3，ch3) ； .joxue.Writeln(chi ，ch2，ch3).joxue.END.joxue.red .joxue.yellow .joxue.7若运行时输入.joxue.的 b:=Chr(Ord(a)1);.joxue.procl:=b END ; .joxue.8blue .joxue.则正确的输出是.joxue.A) ryb B)reu C)rdl D)blu .joxue.(19) 表达式 8 MOD (2*(5

11、-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 a3 .joxue.C)(NOT a1 OR a2)AND (a2 OR a3)D)False OR a1 AND a2OR NOT a3 .joxue.(22) 已知 ch

12、是字符变量，下列赋值语句中正确的是.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.PROCEDURE proc(); .joxue.BEGIN .joxue.9END ; BEGIN 主程序.joxue. .joxue.proc2(3.5 , 1); .joxue. .joxue.END.joxue.C

13、)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).joxue.proc3(xy , x-y) ; END.joxue. .joxue.END.joxue.(24)下面程序中的过程 proc 的参数表没有给出PROGRAM exam(Output) ; .jox

14、ue.VAR a , b:Integer ; .joxue.D)PROCEDURE.joxue.修改，调试源程序.joxue.10c:=ab ; .joxue.d:=a-b .joxue.END ; .joxue.BEGIN .joxue.a:=1 ; .joxue.b:=2 ; .joxue.proc(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:I nteger ;d:I nt

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

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

17、xue.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.12D) VAR num:ARRAY-1. 。5 , a.eOF Real ; .joxue.3:BEGIN .joxue.13(33)下面哪个关于指针类型的叙述是错误的A

18、) 指针类型可以作为数组的基类型.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 二二

19、，Spr(a) ； .joxue.3:Writeln(a*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.joxue.A)a 是集合类型，b 的类型与 a 的基类型相同.joxue.14b:=Spr(a)-a ； .joxue.Write In (c 二二 ,c); .joxue.END ; .joxue.4 , 5:WriteIn(aa 二二 ,aa).jo

20、xue.END ; .joxue.D) Readln(a) ; .joxue.CASE Sqr(a)/a OF .joxue.0, 1 , 2:Writeln(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 ； .jox

21、ue.y:=c ; .joxue.Writeln(Ord(y)-Ord(x); .joxue.A) 1 B)-2 C)2 D)3 .joxue.(37) 要使语句 IF a IN b THEN语句；无语法错误，a, b 的类型应该是.joxue.A)Assign(f，abc.dat) ； B)Assign(f，abc.dat) ； .joxue.15B) b 是集合类型，a 的类型与 b 的基类型相同.joxue.C) a 和 b 都是集合类型.joxue.D) a , b 中的任何一个都可以是集合类型，另一个则是此集合的基类型.joxue.(38) 设 a，b 是整型变量且已赋值，函数首部为

22、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) ； .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 二

23、二 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.BEGIN .joxue.a:=5 ; b:=10 ; .joxue.16Reset(f) ; Reset(f) ; .joxue.Read(f , s.a, s.b); Readln(f , s); .joxue.Close(f) ; Close(f) ; .j

24、oxue.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) ; .joxue.Writeln(s.a , s.b); Writeln(s.a , s.b); .joxue.(41) 设集合 x=2 , 4, 6, 8 , y=2 , 3, 4, 5, 6，下面能

25、使 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) ; .joxue.BEGIN .joxue.x:xy .joxue.END ; .joxue.BEGIN .joxue.i:=3 ; .joxue.17p(a , b); .joxue.p(a ,

26、 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 ; .joxue.VAR i:Integer ; b:Boolean ; .joxue.BEGIN .joxue.i:=3 ; b:二二

27、 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.ff:=(z-y)DIV x ； .joxue.18BEGIN .joxue.IF ss(i)AND ss(i4)AND ss(i10)THEN .joxue.Writeln(i) ; .joxue.i:=i2 .jo

28、xue.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.VAR i:I

29、nteger ； .joxue.BEGIN .joxue.ff:=0 ； a:=j ； .joxue.FOR i:=a TO 3 DO .joxue.19x:=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 二二

30、 RECORD .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

31、 flag:A COF CASE flag:X ZOF .joxue.A : (a:Char); X :(a:Char) ; .joxue.B : (b:Char); Y:(b:Char) ; .joxue.(47)设 n 是整型变量，阅读下面的程序段.joxue.Readln(n) ; .joxue.20C : (c:Char) ; Z:(c:Char) ; .joxue.END ; END ; .joxue.(46) 设有类型和变量说明如下：.joxue.的 TYPE t 仁 RECORD .joxue.的 a, b:lnteger ； .joxue.的 END; .joxue.t2 二

32、RECORD .joxue.a:Char ; b:t1 .joxue.END ; .joxue.VAR x:t2 ; .joxue.下面哪组语句有错误？ .joxue.A) x.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

33、:=2 END ; .joxue.(47)设 n 是整型变量，阅读下面的程序段.joxue.Readln(n) ; .joxue.21END ; .joxue.a:=C.joxue.END ; .joxue.ch:=ak ； .joxue.ak : a11-k ； .joxue.22REPEAT .joxue.IF n MOD 2=0 THEN .joxue.n:二二 n1 .joxue.ELSE .joxue.n:=n2 .joxue.UNTIL n=1000; .joxue.关于输入数据的正确描述是.joxue.A) 只有输入的 n 是偶数时才会出现死循环.joxue.B) 只有输入的 n

34、 是奇数时才会出现死循环.joxue.C) 只有输入的 n 大于或等于 1000 时才会出现死循环.joxue.D) 输入任何数时都会出现死循环.joxue.(48)下面程序的输出是.joxue.PROGAM bs23(Output) ； .joxue.VAR a:ARRAY1.。10OF Char ； .joxue.k:Integer ； ch:Char ； .joxue.BEGIN .joxue.FOR k:=1 TO 10 DO .joxue.ak : =Chr(Ord(A)k) ； .joxue.FOR k:=1 TO 10 DO .joxue.BEGIN .joxue.WHILE N

35、OT Eof(f1)DO .joxue.BEGIN .joxue.23a11-k : =ch ； .joxue.END ; .joxue.FOR k:=1 TO 10 DO .joxue.Write(ak) ； .joxue.Writein .joxue.END.joxue.A)ABCDEFGHIJB)BCDEFGHIJKD) KJIHGFEDCB .joxue.(49)设文件 file2.dat 中是一行若干个大写字母请阅读下面的程序.joxue.PROGRAM bs24(lnput ，Output) ； .joxue.VAR fl ，f2:Text ； .joxue.ch:Char ； j

36、: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.C） JIHGFEDCBA（没有行结束符） ,24Read(f1 , ch) ; .joxue.s:=sch.joxue.END ; .joxue.FOR ch:=ATO ZDO .joxue.IF ch IN s THEN .joxue.Write(f2 ,

37、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(即若有多个字母相同，则只 Joxue 的保留一个).joxue.D) 把 file2.dat 中的所有字母写入文件 out2.dat。

38、.joxue.(50)设有说明 CONST n=10 ； .joxue.TYPE arr=ARRAY1.。nOF Integer ； .joxue.要求函数 func 从数组 a 中查找一个等于 x 的数并返回此数的下 标，UNTIL(k 二二 n )OR found ;.joxue.25如果 a 中没有此数，则返回 0,下面哪个函 Joxue 数不能完全正 确地实现上述功能。.joxue.A) FUNCTION func(a:arr ; x:lnteger) ： Integer ; .joxue.VAR found:Boolean; k:Integer ; .joxue.BEGIN .jox

39、ue.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:I nteger

40、 .joxue.BEGIN .joxue.k:=0 ; .joxue.REPEAT .joxue.k:=k1 ; .joxue.UNTIL(k 二二 n )OR found ;.joxue.26foun d:=x=ak.joxue.REPEAT .joxue.27IF 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 .jox

41、ue.k:=1 ; .joxue.WHILE (k 二二 n)AND (x ak)DO .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.还有两个是5_。 .joxue.28UNTIL(ak=x)OR (k=n); .jox

42、ue.IF kn THEN .joxue.fun c:=0 .joxue.ELSE .joxue.fun c:=k .joxue.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 盘上的该

43、文件应写成 2_。 .joxue.(3) 为了得到 XCOPY 命令的在线帮助，可使用的 DOS 命令之一为_ 3_ 。.joxue.在在 DOS 系统下，代表键盘与显示器的设备文件名为_4_ 。 .joxue.(5)在 DOS 系统下，可以直接执行的文件的扩展名除。EXE 外，还有两个是5_。 .joxue.29(6)设有说明 TYPE .joxue.list=11； .joxue.30ode ; .joxue.no de 二二 RECORD .joxue.data:Char ; .joxue.next:list ； .joxue.END ; .joxue.下面过程 letterlist 的

44、功能是： 对输入的一串字母（限定为小写字 母） ，按输入顺序建立一个字母链表（当输入的是非小写字母时停止建表）。.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_ ； .jox

45、ue.REPEAT .joxue.i:=i-1 ； lo:=lom ； .joxue.JoxueIF lo =10000 THEN .joxue.fun c:二二 False .joxue.31BEGIN .joxue.lo:=lo-_10_ ； .joxue.END ; .joxue.UNTIL_12_; .joxue.Write(hi:4 , , , lo:4) ; .joxue.END ; .joxue.(8) 一个数如果正好等于其因子之和，就称其为“完数”。例如 6的因子是 1 , 2, 3,并且 6=123，所以 6 是-一个“斧魏”丨 完数。F面的程序可以输出 2n 之间的所有完数

46、之和。其中n 为 21000之间的任意整数。请将程序填写完全。.joxue.PROGRAM bs1(Output);.joxue.VAR a , n , s:Integer ; .joxue.FUNCTION fun c( n:ln teger):Boolean;.joxue.VAR s , k:Integer ; .joxue.BEGIN .joxue.s:=0 ; .joxue.FOR k:=1 TO _13_DO .joxue.IF n MOD k=0 THEN .joxue.s:=_14_; .joxue.IF _15_ THEN .joxue.fun c:二二 True .joxue

47、.fun c:二二 False .joxue.32ELSE .joxue.END ; .joxue.BEGIN .joxue.s:=0 ; Readln(n) ; .joxue.FOR a:=2 TO n DO .joxue.IF func(_16_THEN .joxue.s:=sa ; .joxue.Writel n(s).joxue.END.joxue.(9)下列程序是用筛法生成从 2 到 100 之间的所有质数。请将程序填写完全。.joxue.PROGRAM p9(Output) ； .joxue.CONST n=100 ； .joxue.VAR next ，j，count:Intege

48、r ； .joxue.sieve，primes:SET OF 2.。n ; .joxue.BEGIN .joxue.j:=2 ； .joxue.sieve:=j ； .joxue.REPEAT .joxue.j:=j1 ； .joxue.next:=18； .joxue.33sieve:=_17_.joxue.UNTIL j=n ; .joxue.primes:= ； .joxue.34count:=0 ; .joxue.REPEAT .joxue.WHILE NOT (n ext IN sieve)DO .joxue.next:=Succ(next) ; .joxue.primes:二二_19_ ; .joxue.Write(next:1，”); .joxue.count:=count1; .joxue.IF count MOD 5=0 THEN Writeln ; .joxue.j:=next ; .joxue.WHILE j 二二 n DO .joxue.BEGIN .joxue.sieve:二二 sieve-j ; .joxue.j:=_ 20_.joxue.END .joxue.UNTIL sieve=.joxue.END.joxue.1999 年 9 月 全国计算机等级考试二级笔试试题PASCAL 语言程序设计 相关内容：基础部分和