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

【shitiku.jxxyjl.com--等级考试】

一、的选择题((1)--(40)每个选项1分，(41)--(50)每个选项2分，共60分)下列各题A)、的B)、的C)、的D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。..joxue.
(1)十进制数1385转换成十六进制数为..joxue.
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主要由运算器与控制器组成，下列说法中正确的是..joxue.
A)运算器主要负责分析指令，并根据指令要求作相应的运算..joxue.
B)运算器主要完成对数据的运算，包括算术运算和逻辑运算..joxue.
C)控制器主要负责分析指令，并根据指令要求作相应的运算..joxue.
D)控制器直接控制计算机系统的输入与输出操作..joxue.
(5)下列叙述中正确的是..joxue.
A)将数学信号变换成便于在模拟通信线路中传输的信号称为调制..joxue.
B)以原封不动的形式将来自终端的信息送入通信线路称为调制解调..joxue.
C)在计算机网络中，一种传输介质不能传送多路信号..joxue.
D)在计算机局域网中，只能共享软件资源，而不能共享硬件资源..joxue.
(6)各种网络传输介质..joxue.
A)具有相同的传输速率和相同的传输距离..joxue.
B)具有不同的传输速率和不同的传输距离..joxue.
C)具有相同的传输速率和不同的传输距离..joxue.
D)具有不同的传输速率和相同的传输距离..joxue.
(7)多媒体计算机系统的两大组成部分是..joxue.
的 A)多媒体功能卡和多媒体主机..joxue.
B)多媒体通信软件和多媒体开发工具..joxue.
C)多媒体输入设备和多媒体输出设备..joxue.
D)多媒体计算机硬件系统和多媒体计算机软件系统..joxue.
(8)按通信距离划分，计算机网络可以分为局域网和广域网。下列网络中属于局域网的是..joxue.
A)Internet B)CERNET C)Novell D)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的功能为..joxue.
A)删除一个字符并退格..joxue.
B)暂停标准输出设备的输出..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.
(14)设当前盘为A盘，要将B盘当前目录下的两个文件A.TXT与X.TXT 连接后以文件名Y.TXT存放到A盘的当前目录中，正确的DOS命令为..joxue.
A)COPY A.TXTX.TXT A:Y.TXT B)COPY B:A.TXTX.TXT A:Y.TXT ..joxue.
C)COPY B:A.TXTB:X.TXT 》Y.TXT D)COPY B:A.TXTB:X.TXT Y.TXT ..joxue.
(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)来表示Round(x)，正确的表示方法是..joxue.
A)Round(x)=Trunc(x0.5)..joxue.
B)Round(x)=Trunc(x--0.5)..joxue.
C)Round(x)={Trunc(x0.5)x》=0 ..joxue.
Trunc(x--0.5)x《0 ..joxue.
D)Round(x)={Trunc(x--0.5)x》=0 ..joxue.
Trunc(x0.5)x《0 ..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)(1《2)AND (--2《--1)D)NOT(1《2)OR NOT (--2《--1)..joxue.
(18)有下列程序..joxue.
PROGRAM print(Input，Output)；..joxue.
VAR ch1，ch2，ch3：Char；..joxue.
BEGIN ..joxue.
Readln(ch1)；..joxue.
Readln(ch2，ch2)；..joxue.
Readln(ch3，ch3，ch3)；..joxue.
Writeln(ch1，ch2，ch3)..joxue.
END...joxue.
若运行时输入..joxue.
red ..joxue.
yellow ..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)Integer是..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 a2 OR NOT a3 ..joxue.
(22)已知ch是字符变量，下列赋值语句中正确的是..joxue.
A)ch:="7"B)ch:=7 C)ch:="--7"D)ch:=--"7"..joxue.
(23)下列中正确的过程说明和调用是..joxue.
A)PROCEDURE proc1(a:Char；VAR b:Char)；B)PROCEDURE proc2(a，b:Integer)；..joxue.
BEGIN BEGIN ..joxue.
的b:=Chr(Ord(a)1)；……..joxue.
procl:=b END；..joxue.
END；BEGIN {主程序}..joxue.
……..joxue.
proc2(3.5，1)；..joxue.
……..joxue.
END...joxue.
C)PROCEDURE proc3(a:Real；VAR b:Real)；D)PROCEDURE 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的参数表没有给出..joxue.
PROGRAM exam(Output)；..joxue.
VAR a，b:Integer；..joxue.
PROCEDURE proc(……)；..joxue.
BEGIN ..joxue.
c:=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:Integer；VAR d:Integer B)VAR c:Integer；d:Integer ..joxue.
C)c，d:Integer D)VAR c，d:Integer ..joxue.
(25)一个记录的域标识符不可以与下列哪项相同？..joxue.
A)常量标识符B)函数名..joxue.
C)此域标识符所属记录的记录名D)同层域标识符..joxue.
(26)下列各程序段中正确的是..joxue.
A)TYPE tocp=^Char；B)TYPE torp=^Real；..joxue.
VAR charp:tocp；VAR rp:torp；..joxue.
BEGIN BEGIN ..joxue.
New(charp)；New(rp)；..joxue.
IF charp^》10 THEN Writeln("Watch out")；rp^：=NIL；..joxue.
……..joxue.
END.END...joxue.
C)TYPE tocp=^Char；D)TYPE toip=^Integer；..joxue.
VAR cp:tocp；VAR ip1，ip2:toip；..joxue.
BEGIN BEGIN ..joxue.
的 New(cp)；New(ip1)；..joxue.
cp:=NIL；New(ip2)；..joxue.
cp^：="x"；ip1^：=5；..joxue.
……ip1=ip2；..joxue.
END.……..joxue.
END...joxue.
(27)下列说法不正确的是..joxue.
A)几个指针可以指向同一个动态变量。..joxue.
B)p和q分别是指向实型变量和整型变量的指针，值NIL赋给了p，那么它还可以赋给q。..joxue.
C)设p、的q是指向整型变量的指针，若已执行了下面的语句：..joxue.
New(p)；..joxue.
q:=p；..joxue.
p^：=5；..joxue.
Dispose(q)；..joxue.
那么这时仍可以访问p^。..joxue.
D)指针变量可以通过赋值语句改变其值。..joxue.
(28)下面关于文件变量的叙述中哪个是错误的..joxue.
A)不能用赋值语句给文件变量赋值..joxue.
B)若以文件变量作为子程序的形式参数，则只能作为变参，不能作为值参..joxue.
C)文件变量的类型只能是文件类型..joxue.
D)文件变量可以作为函数的返回值..joxue.
(29)要编写并执行一个Pascal程序，一般的步骤是..joxue.
A)①用编辑软件编写源程序..joxue.
②用Pascal的编译程序把源程序转换为目标程序..joxue.
③用连接程序把目标程序转换为可执行程序..joxue.
④运行可执行程序..joxue.
B)①用编辑软件编写源程序..joxue.
②修改，调试源程序..joxue.
③用Pascal的编译程序把源程序转换为可执行程序..joxue.
④运行可执行程序..joxue.
C)①用编辑软件编写源程序..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)不能作为子界类型的基类型的是..joxue.
A)实数类型B)枚举类型C)字符类型D)布尔类型..joxue.
(32)下列语句对数组num进行说明，其中不正确的是..joxue.
A)VAR num:ARRAY[Boolean]OF Boolean；..joxue.
B)VAR num:ARRAY[10，10]OF Boolean；..joxue.
C)VAR num:ARRAY[0.。8]OF ARRAY[5.。10]OF Integer；..joxue.
D)VAR num:ARRAY[--1.。5，"a"……"e"]OF Real；..joxue.
(33)下面哪个关于指针类型的叙述是错误的..joxue.
A)指针类型可以作为数组的基类型..joxue.
B)指针类型可以作为集合的基类型..joxue.
C)指针类型可以作为函数返回值的类型..joxue.
D)指针类型可以作为函数的形式参数的类型..joxue.
(34)设有说明VAR p，q:^Integer；..joxue.
j，k:^Char；..joxue.
n:Integer；..joxue.
则下列语句正确的是..joxue.
A)n:=p^；B)p:=n；C)p^：=j^；D)p:=2*q1；..joxue.
(35)已知有说明VAR a，b，c:Integer；键盘输入变量a的值域为[0，5]，则下面正确的CASE语句是..joxue.
A)Readln(a)；..joxue.
CASE a OF ..joxue.
0，1，2:Writeln("a*a="，Spr(a))；..joxue.
3:b:=Spr(a)--a；..joxue.
Writeln("c="，c)；..joxue.
4，5:Writeln("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*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.
3:BEGIN ..joxue.
b:=Spr(a)--a；..joxue.
Writeln("c="，c)；..joxue.
END；..joxue.
4，5:Writeln("aa="，aa)..joxue.
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.
Writeln("c="，c)；..joxue.
END；..joxue.
4，5:Writeln("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 THEN 《语句》；无语法错误，a，b的类型应该是..joxue.
A)a是集合类型，b的类型与a的基类型相同..joxue.
B)b是集合类型，a的类型与b的基类型相同..joxue.
C)a和b都是集合类型..joxue.
D)a，b中的任何一个都可以是集合类型，另一个则是此集合的基类型..joxue.
(38)设a，b是整型变量且已赋值，函数首部为FUNCTION func(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=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.
A)Assign(f，"abc.dat")；B)Assign(f，"abc.dat")；..joxue.
Reset(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)；..joxue.
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--y[8]B)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:Integer；..joxue.
PROCEDURE p(VAR x:Integer；y:Integer)；..joxue.
BEGIN ..joxue.
x:xy ..joxue.
END；..joxue.
BEGIN ..joxue.
a:=5；b:=10；..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:Integer)：Boolean；..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.
BEGIN ..joxue.
i:=3；..joxue.
WHILE i《=100 DO ..joxue.
BEGIN ..joxue.
IF ss(i)AND ss(i4)AND ss(i10)THEN ..joxue.
Writeln(i)；..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:Integer；..joxue.
FUNCTION ff(x，y，z，j:Integer；VAR a:integer)：Integer；..joxue.
VAR i:Integer；..joxue.
BEGIN ..joxue.
ff:=0；a:=j；..joxue.
FOR i:=a TO 3 DO ..joxue.
BEGIN ..joxue.
ff:=(z--y)DIV x；..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)TYPE rec1=RECORD B)TYPE rec2=RECORD ..joxue.
a:Integer；a:Integer；..joxue.
CASE flag:"A"……"C"OF CASE flag:"X"……"Z"OF ..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)TYPE rec3=RECORD D)TYPE rec4=RECORD ..joxue.
的 a:Integer；x:Integer；..joxue.
CASE flag:"A"……"C"OF CASE flag:"X"……"Z"OF ..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 t1=RECORD ..joxue.
的 a，b:Integer；..joxue.
的 END；..joxue.
t2=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:=2 END；..joxue.
END；..joxue.
a:="C"..joxue.
END；..joxue.
(47)设n是整型变量，阅读下面的程序段..joxue.
Readln(n)；..joxue.
REPEAT ..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是奇数时才会出现死循环..joxue.
C)只有输入的n大于或等于1000时才会出现死循环..joxue.
D)输入任何数时都会出现死循环..joxue.
(48)下面程序的输出是..joxue.
PROGAM bs23(Output)；..joxue.
VAR a:ARRAY[1.。10]OF Char；..joxue.
k:Integer；ch:Char；..joxue.
BEGIN ..joxue.
FOR k:=1 TO 10 DO ..joxue.
a[k]：=Chr(Ord("A")k)；..joxue.
FOR k:=1 TO 10 DO ..joxue.
BEGIN ..joxue.
ch:=a[k]；..joxue.
a[k]：a[11--k]；..joxue.
a[11--k]：=ch；..joxue.
END；..joxue.
FOR k:=1 TO 10 DO ..joxue.
Write(a[k])；..joxue.
Writeln ..joxue.
END...joxue.
A)ABCDEFGHIJ B)BCDEFGHIJK C)JIHGFEDCBA D)KJIHGFEDCB ..joxue.
(49)设文件file2.dat中是一行若干个大写字母(没有行结束符)，请阅读下面的程序..joxue.
PROGRAM bs24(Input，Output)；..joxue.
VAR f1，f2:Text；..joxue.
ch:Char；j:Integer；..joxue.
s:SET OF "A"……"Z"；..joxue.
BEGIN ..joxue.
s:=[]；..joxue.
Assign(f1，"file2.dat")；..joxue.
Assign(f2，"out2.dat")；..joxue.
Reset(f1)；..joxue.
Rewrite(f2)；..joxue.
WHILE NOT Eof(f1)DO ..joxue.
BEGIN ..joxue.
Read(f1，ch)；..joxue.
s:=s[ch]..joxue.
END；..joxue.
FOR ch:="A"TO "Z"DO ..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(即若有多个字母相同，则只Joxue的保留一个)..joxue.
D)把file2.dat中的所有字母写入文件out2.dat。..joxue.
(50)设有说明CONST n=10；..joxue.
TYPE arr=ARRAY[1.。n]OF Integer；..joxue.
要求函数func从数组a中查找一个等于x的数并返回此数的下标，如果a中没有此数，则返回0，下面哪个函Joxue数不能完全正确地实现上述功能。..joxue.
A)FUNCTION func(a:arr；x:Integer)：Integer；..joxue.
VAR found:Boolean；k:Integer；..joxue.
BEGIN ..joxue.
found:=False；k:=1；..joxue.
WHILE (k《=n)AND NOT found DO ..joxue.
IF x=a[k]THEN ..joxue.
found:=True ..joxue.
ELSE ..joxue.
k:=k1；..joxue.
IF found THEN ..joxue.
func:=k ..joxue.
ELSE ..joxue.
func:=0 ..joxue.
END；..joxue.
B)FUNCTION func(a:arr；x:integer)：Integer；..joxue.
VAR found:Boolean；k:Integer ..joxue.
BEGIN ..joxue.
k:=0；..joxue.
REPEAT ..joxue.
k:=k1；..joxue.
found:=x=a[k]..joxue.
UNTIL(k=n)OR found；..joxue.
IF found THEN ..joxue.
func:=k ..joxue.
的 ELSE ..joxue.
func:=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《》a[k])DO ..joxue.
k:=k1；..joxue.
IF k》n THEN ..joxue.
func:=0 ..joxue.
ELSE ..joxue.
func:=k ..joxue.
END；..joxue.
D)FUNCION func(a:arr；x:Integer)：Integer；..joxue.
VAR k:Integer；..joxue.
BEGIN ..joxue.
k:=0；..joxue.
REPEAT ..joxue.
k:=k1 ..joxue.
UNTIL(a[k]=x)OR (k=n)；..joxue.
IF k》n THEN ..joxue.
func:=0 ..joxue.
ELSE ..joxue.
func:=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盘上的该文件应写成___2___。..joxue.
(3)为了得到XCOPY命令的在线帮助，可使用的DOS命令之一为___3___。..joxue.
(4)在DOS系统下，代表键盘与显示器的设备文件名为___4___。..joxue.
(5)在DOS系统下，可以直接执行的文件的扩展名除。EXE外，还有两个是___5___。..joxue.
(6)设有说明TYPE ..joxue.
list=^node；..joxue.
node=RECORD ..joxue.
data:Char；..joxue.
next:list；..joxue.
END；..joxue.
下面过程letterlist的功能是：对输入的一串字母(限定为小写字母)，按输入顺序建立一个字母链表(当输入的是非小写字母时停止建表)。..joxue.
PROGCEURE letterlist(VAR head:list)；..joxue.
VAR ..joxue.
h，p:list；..joxue.
ch:Char；..joxue.
BEGIN ..joxue.
head:=NIL；..joxue.
Read(ch)；..joxue.
WHILE ch IN ["a"……"z"]DO ..joxue.
BEGIN ..joxue.
___6___；..joxue.
p^。data:=ch；..joxue.
___7___:=NIL；..joxue.
IF head=NIL ..joxue.
THEN head:=p ..joxue.
ELSE___8___:=p；..joxue.
h:=p；..joxue.
Read(ch)；..joxue.
END；..joxue.
Readln；..joxue.
h^。next:=NIL ..joxue.
END；..joxue.
(7)过程pl计算并输出两个四位整数m和n的乘积，乘积分别放在两个整型变量hi和lo中，hi存放乘积的高4位数，lo存放乘积的低4位数。..joxue.
例如，m=4567，n=5678，则计算结果为4567*5678=25931426，乘积的前4位数2593存入hi，乘积的后4位数1426存入lo。..joxue.
PROCEDURE pl(m，n:Ineger；VAR hi，lo:Integer)；..joxue.
VAR i:Integer；..joxue.
BEGIN ..joxue.
i:=n；hi:=0；___9___；..joxue.
REPEAT ..joxue.
i:=i--1；lo:=lom；..joxue.
JoxueIF lo 》=10000 THEN ..joxue.
BEGIN ..joxue.
lo:=lo--___10___；..joxue.
___11___；..joxue.
END；..joxue.
UNTIL___12___；..joxue.
Write(hi:4，"，"，lo:4)；..joxue.
END；..joxue.
(8)一个数如果正好等于其因子之和，就称其为“完数”。例如6的因子是1，2，3，并且6=123，所以6是一个“完数”。下面的程序可以输出2──n之间的所有完数之和。其中n为2~1000之间的任意整数。请将程序填写完全。..joxue.
PROGRAM bs1(Output)；..joxue.
VAR a，n，s:Integer；..joxue.
FUNCTION func(n:Integer)：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.
func:=True ..joxue.
ELSE ..joxue.
func:=False ..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.
Writeln(s)..joxue.
END...joxue.
(9)下列程序是用筛法生成从2到100之间的所有质数。请将程序填写完全。..joxue.
PROGRAM p9(Output)；..joxue.
CONST n=100；..joxue.
VAR next，j，count:Integer；..joxue.
sieve，primes:SET OF 2.。n；..joxue.
BEGIN ..joxue.
j:=2；..joxue.
sieve:=[j]；..joxue.
REPEAT ..joxue.
j:=j1；..joxue.
sieve:=___17___ ..joxue.
UNTIL j》=n；..joxue.
primes:=[]；..joxue.
next:=___18___；..joxue.
count:=0；..joxue.
REPEAT ..joxue.
WHILE NOT (next 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.

本文来源：https://shitiku.jxxyjl.com/dengjikaoshi/1262.html