一、选择题（(1)--(40)每小题1分, (41)--(50)每小题2分, 共60分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项在答题卡相应位置上涂黑，答在试卷上不得分。

(1) 下列电子邮件地址中正确的是（其中□表示空格）
A) Malin&ns.cnc.ac.cn B) malin@ns.cac.ac.cn
C) Lin□Ma&ns.cnc.ac.cn D) Lin□Ma@ns.cnc.ac.cn

(2) 下列说法中正确的是
A) 为了使用Novell网提供的服务，必须采用FTP协议
B) 为了使用Internet网提供的服务，必须采用TELNET协议
C) 为了使用Novell网提供的服务，必须采用TCP/IP协议
D) 为了使用Internet网提供的服务，必须采用TCP/IP协议

(3) 下列说法中不正确的是
A) 调制解调器(Modem)是局域网络设备
B) 集线器(HuB)是局域网络设备
C) 网卡(NIC)是局域网络设备
D) 中继器（Repeater）是局域网络设备

(4) 十进制数397的十六进制值为
A) 18D B) 18E C) 277 D) 361

(5) 下列说法中不正确的是
A) CD-ROM是一种只读存储器但不是内存储器
B) CD-ROM驱动器是多媒体计算机的基本部分
C) 只有存放在CD-ROM盘上的数据才称为多媒体信息
D) CD-ROM盘上最多能够存储大约650兆字节的信息

(6) Windows应用环境中鼠标的拖动操作不能完成的是
A) 当窗口不是最大时，可以移动窗口的位置
B) 当窗口最大时，可以将窗口缩小成图标
C) 当窗口有滚动条时可以实现窗口内容的滚动
D) 可以将一个文件移动(或复制)到另一个目录中去

(7) 从windows中启动MS-DOS方式进入了DOS状态，如果想回到Windos状态，在DOS提示符下，应键入的命令为
A) EXIT B) QUIT C) WIN D) DOS -U

(8) 要在WINDOWS标准窗口的下拉菜单中选择命令，下列操作错误的是
A) 用鼠标单击该命令选项
B) 用键盘上的上下方向键将高亮度条移至该命令选项后再按回车键
C) 同时按下ALT键与该命令选项后括号中带有下划线的字母键
D) 直接按该命令选项后面括号中带有下划线的字母键

(9) ASCLL码(含扩展)可以用一个字节表示，则可以表示的ASCLL码值个数为
A) 1024 B) 256 C) 128 D) 8O

(10) 字长为32位的计算机是指
A) 该计算机能够处理的最大数不超过232
B) 该计算机中的CPU可以同时处理32位的二进制信息
C) 该计算机的内存量为32MB
D) 该计算机每秒钟所能执行的指令条数为32MIPS

(11) 在DOS系统中，下列文件名中非法的是
A) ABCDEFG1 B) ABCDEFG1.234 C)ABCD_EFG D)ABCD\EFG

(12) DOS系统启动后，下列文件中驻留内存的是
A) CONFIG.SYS B) COMMAND.COM C) AUTOEXEC.BAT D) MEM.EXE

(13) DOS下的“DIR *2”命令将列出当前目录下的
A) 所有名字末尾为字符2的非隐含文件和目录
B) 所有名字末尾为字符2的非隐含文件
C) 所有非隐含文件
D) 所有非隐含文件和目录

(14) 软驱的盘符为A，A盘上只有一个目录\XYZ,而\XYZ下有若干子目录和文件，若想把A盘的所有内容复制到C盘根目录下，应使用的命令为
A) COPY A:\*.* C: B) COPY A:\*.* C:\*.*
C) XCOPY A:\*.* C:\ /S D) DISKCOPY A: C:

(15) 若要将当前盘目录下的文件A.TXT连接在文件B.TXT后面，应使用的命令为
A) COPY A.TXT>>B.TXT B) MOVE A.TXT>>B.TXT
C) PATH A.TXT>>B.TXT D) TYPE A.TXT>>B.TXT

(16) 以下各组运算中运算优先级最低的一组是
A) +，-，OR B) *,/ C) >=,<>,IN D) DIV,MOD,AND

(17) 已知有说明
CONST a=1; b=2; c=3; d=4;
VAR w,x,y,:Integer;
执行语句
x:=a; x:=c; y:=a+2; Z:=b; w:=d-a+b;
后，其值相等的变量是
A) x,y B) x,z C) x,w D) y,z

(18) 数学表达式Sin(60o)的正确PASCAL表达式是
A) Sin(60) B) Sin(3.14159*60)
C) Sin(3,14159*60/180.0) D) Sin(60*3.14159/360.0)

(19) 下列属PASCAL合法常数的是
A) 102 B) 1O.0 C) 35,000,000 D) 1/2

(20) 设x是一个实型变量，下面能将x四舍五入使小数部分精确到百分之一的PASCAL表达式是
A) Round(x*100.0)/100.0 B) Round(x/100,0)*100.0
C) Trunc(x*100.0)/100.0 D) Trunc(x/100.0)*100.0

(21) 若有说明
RAR a:ARRTAY[1..10]OF ARRAY[1..10]OF Integer;
下列语句中正确的是
A) a[a[2,4]]:=100； B) a[8][12]:=100；
C) a[0,2,4]:=100； D) a[2][4]L=100；

(22) 一个文件文件的基类型不可以是
A) 文件 B) 数组 C) 实数 D) 记录数组

(23) 下列表达式中正确的是
A) 8/2 MOD 2 B) NOT(1=0) AND(3<>2) C) 'a'+2 D) 2+False

(24) 不能作为FOR语句循环控制变量的是下列哪种类型变量
A) 整型 B) 布尔型 C) 实型 D) 字符型

(25) 对函数的定义和递归调用正确的描述是
A) 函数可以嵌套定义，也可以递归调用。 B) 函数可以嵌套定义，但不能递归调用。
C) 函数不能嵌套定义，但可以递归调用。 D) 函数不能嵌套定义，也不能递归调用。

(26) 下列过程中，其功能是创建并打开一个文件的是
A) Assign B) Reset C) Rewrite D) Write

(27) 当n为任意正奇数时，值总为Ｔtre的表达式是
A) n MOD 2=０ B) NIV 2=１
C) N-(n DIV 2)=１ D) n-Trunc(n/2)*2=1

(28) 下面变量说明中正确的是
A) VAR s:SET OR Real; B) VAR s:SET OF TEXT;
C) VAR s:SET OF 1..100; D) VAR s:SET OR ARRAY[1..5]OR Char;

(29) 表达式Pred(Chr(Ord(‘A')+4))的值是
A) ‘C' B) ‘D' C) 69 D) 101

(30) 下列表达式中值为假的是
A) ‘xy'<‘xyz' B) Odd(25+3)=False
C) 1024<>1024 D) Succ(False)=True

(31) 程序段： FOR i:1 TO 5 DO
FOR j:=2 TO i DO
Writeln(‘A');
输出字符Ａ的个数是
A) ５ B) 10 C) 15 D) 20

(32) 设数组a和变量I,j,k,m,均已说明，且各自的值如
a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5,
a[6]=6, a[7]=7, a[8]=8, a[9]=9,
i=1, j=2, k=3, m=4
下面数组元素的值等于３的是
A) a[i*j] B) a[a[j=k-2]] C) a[m DIV j] D) a[a[k-i]+3]

(33) 以下变量说明中完全正确的一组是
A) VAR B) VAR
x1,x2,x3,x4:integer; y1:'x';
x5:Char; y2:Real;
x2,x4:Real; y3:Integer;
C) VAR D) VAR
x:Real; z1,z2:integer;
y:Real; z3:Char;
xy:Boolean; x-y:Real;

(34) 下面关于FOR循环不正确的叙述是
A) 在循环体中不能改变循环控制变量的值
B) 在执行过程中初值和终值不会改变
C) 分为递增型和递减型两种
D) 循环控制变量不必在程序的说明部分说明

(35) 下面的叙述正确的是
A) Pascal程序中的注释不可以出现在任意两个字符之间
B) Pascal程序中的注释不可以出现在任意两个标识符之间
C) Pascal程序中的注释不可以出现在任意两个语句之间
D) Pascal程序中的注释不可以出现在任意两个程序段之间

(36) 设有说明： TYPE arr=ARRAY[1..10] OF Integer;
ptr=^arr;
VAR p:ptr;
若已执行了new(p),下面合法的赋值语句是
A) p^[2]:=10; B) p[2]^:=10; C) p^:=10; D) p[2]:=10;

(37) 以下结论正确的是
A) 表达式[sun,fri]*[mon,tue]的值为[sun,fri,mon,tre]
B) 表达式x IN [i,j,k,m]等价于(x=i）OR(x=j) OR(x=k) OR(x=m)
C) 表达式[sun,sat]-[mon,tue]的值为［sat,mon,tue］
D) 表达式［mon］-[mon,tue]的值为［tue］

(38) 有下列程序段
FOR i:=1 TO 10 DO
BEGIN
CASE i MOD 4 OF
0: ch[i]:='a';
1: ch[i]:='b';
2: ch[i]:='c';
3: ch[i]:='d'
END;
FOR i:=10 DOWNTO 1 DO Write(ch[i]:1);
Writeln;
运行后输出结果是
A) bcdabcddcb B) abcdabcdab C) cbadcbadcb D) dcbadcbadc

(39) 有变量定义如下：
TYPE
WeekDay=(Mon,Tue,Wed,Thu,Fri,Sat,Sun);
WorkDay=Mon..Fri;
VAR
day1:WeekDay;
day2:WorkDay;
下列不正确的语句是
A) day1:=Wed B) day2:=Wed C) day1:=day2 D) day2:=Sun

(40) 有下面程序段：
a:=False; b:=False; c:=False;
x:=15;
IF a THEN x:=x-10
ELSE IF b THEN x:= x-5
ELSE IF c THEN x:=20
ELSE x:=25:
假设所有变量均已说明，程序运行后x的值是
A) 25 B) 20 C) 15 D) ５

(41) 设有程序：
PROGRAM p41(Input,Output);
TYPE arr=ARRAY[1..10] OF Char;
VAR a:arr;
i:Integer;
BEGIN
FOR i:=1 TO 10 DO
IF NOT Eoln THEN
REPEAT
Read(a[i])
UNTIL a[i]<>' '
ELSE a[i]:='*';
Readln;
FOR i:=1 TO 10 DO
Write(a[i]);
Writeln
END.
运行以上程序，输入I love You 则输出是
A) I love you B) Iloveyou C) I love you** D) Iloveyou**

(42) 设有程序：
PROGRAM p42(Input,Output);
VAR
x,s:Integer;
FUNCTION ms(a,b:Integer;VAR x:Integer):Integer;
BEGIN
x:=3*a-4*b+x;
ms:=x MOD 10
END;
BEGIN
x:=3;
s:=ms(ms(1,2,x),2*ms(1,2,x)x);
Writeln(‘x=',x)
END
运行后，Writeln语句的输出结果是
A) x=-12 B) x=8 C) x=34 D) x=43

(43) 有下列程序段
VAR p,q,r:^Intetger；
BEGIN
New(p):p^:=1;
q:=p;q^:=2;
r:=p;r^:=3;
Dispose(r);
END;
执行后，p,q,r三个变量值的情况是
A) p^的值为1，q^的值为2，r的值无意义
B) p,q,r的值均无意义
C) p^的值为1，q^的值为2，r的值为3
D) p^的值为2，q^的值为2，r的值无意义

(44) 有条件语句
IF a<>b THEN IF a>b
THEN IF a<>c
THEN IF a
THEN S1 {设S1为PASCAL语句}
ELSE S2 {设S2为PASCAL语句}
ELSE S3 {设S3为PASCAL语句}
当a>b而同时a=c时，应执行的语句是
A) S3 B) S2 C) S1 D) 跳出该条件语句

(45) 设a,x为整型变量。有语句
CASE a OF
1,2,3,7; x:=a
END;
下列语句与该CASE语句不等价的是
A) IF a IN [1,2,3,7,] THEN x:=a;
B) IF a IN [7,1..3] THEN x:=a;
C) IF (a=1)AND(a=2)AND(a=3)AND(a=7) THEN x:=a;
D) IF (a=1)OR(a=2)OR(a=3)OR(a=7) THEN x:=a;

(46) 假定p,q,t分别为指向结点A，B，C的指针，每个结点中包含一个字符串和一个整数，如下图所示：

执行下列语句
p^:=q^; q^:=t^; t^:=p^;
后，p,q,t分别指向的结点和各结点内容正确的是

(47) 已知有函数定义
FUNCTION fn(a,b,c:Real);Real;
BEGIN
fn:=sin(a)/(sin(a-b)*sin(a-c))
END;
要计算下列m的值：

通过调用函数fn计算m的正确语句是
A) m:=fn(x,y,z)+fn(x,y,z)+fn(x,y,z)
B) m:=fn(x-y)+fn(y-z)+fn(z-x)
C) m:=fn(x,y,z)+fn(y,z,x)+fn(z,x,y)
D) m:=fn(x)+fn(y)+fn(z)

(48) 设有变量说明：VAR r,s:RECORD
a:Integer:b:Char
END;
x:Real; ch:Char;
下面赋值语句中错误的是
A) r:=s; B) s,b:=ch; C) x:=r,a; D) r,a:=x;

(49) 设有以下说明： TYPE t1=FILE OF Integer;
VAR f1:t1: n:Integer;
且abc.dat是t1型文件，下面正确的程序段是
A) Assign(f1,'abc.dat'); B) Assign(f1,'abc.dat');
Write(f1,n); Reset(f1);
Rewrite(f1); Readln(f1,n);
Close(f1); Close(f1);
C) Assign(f1,'abc.dat'); D) Assign(f1,'abc,dat');
Rewrite(f1); Rewet(f1);
Writeln(f1,n); Read(f1,n);
Close(f1); Close(f1);

(50) 设有类型说明TYPE arr=ARRAY[1..10] OF Char;请阅读下面过程PROCEDURE proc(VAR a:arr);
VAR n,k:Integer;
BEGIN
n:=Ord(‘a')-Ord(‘A');
FOR k:=1 TO 10 DO
IF a[k] IN [‘a'..'z'] THEN
a[k]:=Chr(Ord(a[k]-n)
END;
此过程的功能是
A) 把a中的所有小写字母变成大写字母
B) 把a中的所有小写字母变成大写，大写字母变成小写
C) 把a中的所有大写字母变成小写字母
D) 把a中的每个字符按ASCII码顺序改为它前面的第n个字符

二、填空题(每空2分，共40分)
请将每空的正确答案写在答题卡上[1]至[20]序号的横线上，答在试卷上不得分。

(1) 在DOS状态下,当执行当前盘目录中的程序A.EXE时,为了将本该在屏幕上显示的运行结果输出到文件A.DAT中,应使用的DOS命令为 [1] 。
(2) 在XCOPY、PATH、TREE三个DOS命令中，属于内部命令的是令是 [2] 。
(3) 设当前盘为C盘，为了将当前盘当前目录中第三个字符为X的所有文件同名复制到A盘的当前目录中，应使用的DOS命令为 [3] 。
(4) 要将当前盘的目录A\B\C设置为当前目录,应使用的DOS命令为 [4] 。
(5) 计算机网络按通信距离划分为局域网与广域网,Novell网属于 [5] 。

(6) 下面程序计算 的值。请填空完成。

PROGRAM pp6(Output);
VAR i,j:Integer;
fact,sum:Real;
BEGIN
sum:=0.0; i:=1;
WHILE [6] DO
BEGIN
fact:=1.0;
FOR j:=1 TO 2*i+1 DO
fact:=fact*j;
sum:= [7]
i:=i+1
END
Writeln(‘sum=',sum:10:1);
END.

(7) 下面程序段打印101—200之间所有既不能被3整除也不能被8整除的数，请填空完成。
x:=101;
WHILE x<=200 DO
BEGIN
IF (x MOD 3=0) [8] (x MOD 8=0) THEN
ELSE Write(x:3);
x:=x+1
END;
(8) 下面程序的功能是将当前路径上基类型为实数的文件real.dat中的所有实数求和。请填空完成。
PROGRAM pp8(Input,Output);
VAR
f: [9] ;
r,s:Real;
BEGIN
s:=0;
Assign(f,rdal.dat');
Reset(f)
WHILE NOT EOF(f) DO
BEGIN
[10]
s:=s+r
END;
[11]
Writeln(‘The result is',s:8:3)
END.

(9) 下面的程序可以把文本文件filel.txt复制为file2.txt,请真空完成。
PROGRAM pp9(Output);
VAR f1,f2:Text;
PROCEDURE copy( [12] )
VAR c:Char;
BEGIN
WHELE[13]DO
BEGIN
Read(t1,C);
Write(t2.C)
END
END;
BEGIN
Assign(f1,'filel.txt');
Assign(f2,'file2.txt');
Reset(f1);
Rewrite(f2);
Copy(f1,f2);
Close(f1,);
Close(f2,)
END.

(10) 命题：100以内的奇数的平方被8整除，余数均为1。
下面的函数可以验证上述命题，若命题成立，则返回True,否则返回False.请填空完成。
FUNCTION func:Boolean;
VAR a:integer; flag:Boolean;
BEGIN
flag:= [14]
FOR a:=1 TO 100 DO
IF Odd(a) THEN
flag: [15] ADD(a*a MOD 8=1);
func:=flag
END;

(11) 若两个素数之间没有其它素数，则称这两个素数为相邻的。下面过程p1可以根据参数x输出一对相邻素数a,b，使得a<=x
PROCEDURE pl(x:Integer);
VAR a,b:Integer;
BEGIN
a:=x;
b:= [16]
WHILE NOT isprime(a) DO
a:=pred (a);
WHILE NOT isprime(b) DO
b:= [17]
Writeln(a:5,b:5)
END;

(12) 下面函数func的作用是：若数组a中有n个互不相同的数，则返回a中第m大的数
（m<=n=100)。
例如：若n=10,m=4,a[1]-a[10]中的数为5 7 9 3 4 2 10 15 8 6则返回第4大的数8。请填空完成。
TYPE arr=ARRAY[1..100] OF Integer;
FUNCTION func(a:arr;n,m;Integer);Integer;
VAR k,j,I:Integer;
BEGIN
FOR i:=1 TO m DO
BEGIN
k:= [18]
FOR j:=i+a TO n DO
IF a[j]>a[k] THEN
[19] ;
IF i
BEGIN
j:=a[i]; a[i]:=a[k]; a[k]:=j
END
END;
Func:= [20]
END;