(考试时间120分钟，满分100分)
一、选择题（1）～（40）题每小题1分，（41）～（50）题每小题2分，共60分）
下列各题A），B），C），D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答卡相应位置上，答在试卷上不能得分。
(1) 计算机的存储器完整的应包括
A) 软盘、硬盘 B) 磁盘、磁带、光盘
C) 内存储器、外存储器 D) RAM、ROM
(2) 计算机中运算器的作用是
A) 控制数据的输入/输出 B) 控制主存与辅存间的数据交换
C) 完成各种算术运算和逻辑运算 D) 协调和指挥整个计算机系统的操作
(3) 软磁盘处于写保护状态时，其中记录的信息
A) 绝对不会丢失
B) 不能被擦除，但能追加新信息
C) 不能通过写磁盘操作被更新
D) 不能以常规方式被删除，但可以通过操作系统的格式化功能被擦除
(4) 光盘根据其制造材料和记录信息的方式不同，一般可分为
A) CD、VCD
B) CD、VCD、DVD、MP3
C) 只读光盘、可一次性写入光盘、可擦写光盘
D) 数据盘、音频信息盘、视频信息盘
(5) 在计算机系统中，可执行程序是
A) 源代码 B) 汇编语言代码 C) 机器语言代码 D) ASCII码
(6) 计算机软件系统包括
A) 操作系统、网络软件 B) 系统软件、应用软件
C) 客户端应用软件、服务器端系统软件 D) 操作系统、应用软件和网络软件
(7) 目前，一台计算机要连入Internet，必须安装的硬件是
A) 调制解调器或网卡 B) 网络操作系统
C) 网络查询工具 D) WWW浏览器
(8) 在多媒体计算机系统中，不能存储多媒体信息的是
A) 光盘 B) 磁盘 C) 磁带 D) 光缆
(9) 要将当前盘当前目录下一个文本文件内容显示在屏幕上，正确的命令形式是
A) TYPE a*.* B) TYPE abc.exe
C) TYPE pro.c>PRN D) TYPE abc.txt
(10) 下列更改文件名的命令中正确的是
A) REN A:file1 C:F1 B) RENAME A: A:file1 C:F1
C) REN A:file1 F1 D) REN A:file1 \SUB\F1
(11) 已知A盘为DOS系统启动盘，只有A:\DOS下有自动批处理文件，其中内容为：
CD\DOS
MD USER
CD USER
由A盘启动DOS系统后，A盘的当前目录是
A) \DOS B) \DOS\USER C) \ D) \USER
(12) MS-DOS是
A) 分时操作系统 B) 分布式操作系统
C) 单用户、单任务操作系统 D) 单用户、多任务操作系统
(13) 在Windows操作系统中，不同文档之间互相复制信息需要借助于
A) 剪贴板 B) 记事本 C) 写字板 D) 磁盘缓冲区
(14) 在Windows操作系统中
A) 同一时刻可以有多个活动窗口
B) 同一时刻可以有多个应用程序在运行，但只有一个活动窗口
C) 同一时刻只能有一个打开的窗口
D) DOS应用程序窗口与Windows应用程序窗口不能同时打开着
(15) 下列叙述中正确的是
A) 所有DOS应用程序都可以在Windows操作系统中正确运行
B) 所有DOS应用程序都不能在Windows操作系统中正确运行
C) 大部分DOS应用程序可以在Windows操作系统中正确运行
D) 为DOS5.0以上版本操作系统编写的应用程序可以在Windows操作系统中正确运行
(16) 下面能正确输出ASCII码值为52的字符的语句是
A）Writeln(Ord(52)); B) Writeln(Perd(52));
C）Writeln(Chr(52)); D) Writeln(Succ(52));
(17) 设n个人从1到n编号，已说明四个集合变量Oldpeople、males、smokers和drinkers分别表示老人、男人、抽烟者和酗酒者的编号集合，假设四个集合都已被赋值，则表示抽烟或酌酒或两者都爱好的集合表达式是
A）[l..n] B) [l..n]-smokers-drinkers
C) smokers+drinkers D) smokers*drinkers
(18) 已知变量waterflow=1和outputvalue=0。下面不能输出字符串Value open的语句是
A）IF(waterflow=1)AND(outputvalue=0)THEN Writeln('Value open');
B）IF(waterflow=1)OR(outputvalue=0) THEN Writeln('Value open');
C）IF(waterflow=0)OR(outputvalue=0) THEN Writeln('Value open');
D）IF(waterflow=1)AND (outputvalue=1) THEN Writeln('Value open');
(19) 在结构化程序设计中所说的程序的三种基本结构是指
A） 主函数、函数、过程 B） 顺序、选择、循环
C） 程序首部、说明部分、语句部分 D）WHILE、REPEAT、FOR
(20) 下面对子界类型tt定义正确的是
A）TRPE tt=10..100; B) TYPE tt='a'..h;
B) TYPE tt='a'..'Z'; D) TYPE tt=100..10;
(21) 下面常量定义合法的是
A）CONST a=b=10 ; B) CONST x;3.5;
C) CONST pl:=3.14; D) CONST s=2.789;
(22) 要判断字符型变量ch的值是否为小写字母，下面正确的表达式是
A）ch IN [` a`..`z`] B) `a`<=ch<=`z`;
C) (ch.>=a)AND (ch<=z) D) Ord(ch)<=Ord(`z`)
(23) 下列符号中，符合PASCAL规定的字符型值的是
A） 'abc' B) '@' C) `` D) ```
(24) 设有变量说明
VAR i,j:Integer;
x,y:Real;
a,b:Boolean:
c:Char;
并设各变量均已赋值，下列语句中正确的是
A）i:=i+x; B) b:=Ord(c>`c'); C) a:=i=j; D) i:=x MOD y;
(25) 设有下列语句
FORI:=1 TO 5 DO
FORJ:=5 TO 1 DO
Read(a,b,c);
A) 25 B) 0 C) 5 D) 1
(26) 设有说明：TYPE tt=1..10;
VAR a:Real;x,y:tt;
PROCEDURE five(VAR m,n:Real; z:tt);
下面对过程five调用正确的是
A）five(a,a,9); B) five(y,a,15); C) five(5,x,y); D) five(x,y,a);
(27) 已知有如下说明
VAR a:ARRAY[-2..2] OF Integer;
i,j:Integer;
程序段
j：=1；
FOR i:=2 DOWNTO -2 DO
a[i]:=j+i;
Writeln(a[2]-a[-2]);
该程序段后输出的是
A）0 B）4 C）1 D）5
(28) 下面可以作为函数值的数据类型是
A）指向整型的指针类型 B）一维数据类型
C）记录类型 D）集合类型
(29) 下面哪一种循环语句不需要用户在循环体内改变循环控制变量的值，而由语句自身所具备的功能控制循环？
A）REPEAT-UNTIL循环语句 B）FOR循环语句
C）WHILE循环语句 D）不存在此种语句
(30) 设有集合a=[1,3,5,7,9]，b=[2,4,6,8,10]，c=[1,2,3,4,5],d=[ ]，下面表达式的值为False的是
A）d<=(a*c) B) (b*c)=d+[2,4] C) 5 IN ((a-b)-c) D）c<=(a+b)
(31) 程序段
i：=1
REPEAT
n:=i*i;
i:=i+1;
UNTIL n>i
中循环体执行的次数是
A）1 B）2 C）3 D）4
(32) 有下面IF语句
IF flag=1 THEN number:=10
ELSE IF flag=2 THEN number:=20;
ELSE IF flag=3 THEN number :=40;
将该IF语句转换成下面的CASE语句，正确的是
A）CASE flag OF B) CASE number OF
1:number:=10; 10:flag:=1;
2:number:=20; 20:flag:=2;
DEFUALT:number:=40 40:flag:=3
END; END;
C) CASE flag/10+1 OF D) CASE flag OF.
1:number:=10; 1:number:=10;
2:number:=20; 2:number:=20;
3:number:=40 3:number:=40
END; END;
(33) 设m，n均为整数类型变量，且两者的数值均不大于1000。下面语句
m:=m+n n:=m-n m:=m-n
执行后，产生的结果是
A）m，n的值保持不变 B）m，n的值进行了交换
C）m，n的值均为原来M的值 D）m，n的值均为原来N的值
(34) 下述命题中正确的是]
A）单链表中的每个结点必须有指针域
B）单链表结点个数是固定的
C）单链表的结点可以随机访问
D）单链表所有结点的指针域中值一定相同
(35) 下面表达式的值等于False的是
A）Odd(Round(-8+3.5)) B) 5 DIV 2=5/2
C) NOT('abc'>'abc1') D) Ord(Chr(Pred(8)))>=7
(36) 设变量说明
TYPE t=(a,b,c);
则下列数组定义中错误的是
A）VAR s:ARRAY[1..5] OF ARRAY[t] OF Integer;
B）VAR s:ARRAY[1..5,t] OF Integer;
C）VAR s:ARRAY[Boolean] [t] OF Integer;
D）VAR s:ARRAY[1..5,Boolean,t] OF Integer;
(37) 按文件存储方式可以把文件分为
A）类型文件和文本文件 B）顺序文件和随机文件
C）内部文件和外部文件 D）程序文件和数据文件
(38) 下列符合Pascal语法规则的过程或函数是
A）FUNCTION f(x:Integer):Integer; B) PROCEDURE p(VAR x:Integer):Integer;
VAR VAR y:Integer;
y:Integer; BEGIN
BEGIN x:=y+1;
y:=3*x+2; Writeln(x)
f:=y END;
END;
C) PROCEDURE p(x:Integer); D) FUNCTION f(x:Integer);
BEGIN BEGIN
p:=x+10 f:=x+10
END; END;
(39) 下面描述错误的是
A) Read(c);等价于Read(Input,c); B) Writeln;等价于Writeln(Output);
C) Eof 等价于 Eof(Input) D）Eoln等价于Eoln(output)
(40) 有下列程序
PROGRAM p40 (Input,Output);
VAR n:Integer;
PROCEDUER p(Integer;VAR b:Integer);
BEGIN
a:=a+b;
b:=b*a
END;
BEGIN
n:=8;
p(n,n);
Writeln(n);
END.
该程序的运行结果是
A）8 B）16 C）128 D）256
(41) 类型定义如下
TYPE
tl=RECORD
a:Integer;
r:t2;
END;
t2=RECORD
a:Integer;
b:Real;
END;
在该类型定义中错误是
A）记录类型t2的定义前缺少保留字TYPE
B）在保留字RECORD之前没有使用冒号而使用了等号
C）记录类型t2的定义放在了t1的定义之后
D）在记录类型t1和t2中使用了相同的域名
(42) 有如下程序
PROGRAM p42 (Input, Output);
VAR
a:ARRAY[1..3] OF Integer;
i,j:Integer;
BEGIN
FOR i:=1 TO 3 DO
a[i]:=i;
i:=1; j:=3;
REPEAT
a[i]:=a[j]+l;
i:=i+l;
j:=j-1;
UNTIL i>3;
FOR i:=1 TO 3 DO
Write(a[i]:5);
END.
该程序的运行结果是
A) 4 3 2 B) 2 3 4 C) 4 5 3 D) 4 3 5
(43) 设有如下类型和变量说明
TYPE
r1=RECORD
x:Integer;
y:Real;
END;
r2=RECORD
a:r1;
b:Integer;
END;
VAR t:r2;
下列语句中错误的是
A）Read(t.a.x); B) WITH t DO
Read(a.x);
C) WITH r2, r1 DO; D) WITH t, a DO;
Read(x); Read(x);
(44) 有如下函数
FUNCTION s(VAR f:Text): Integer;
VAR num:Integer;
BEGIN
Reset(f);
num:=0;
WHILE NOT Eof(f) DO
BEGIN
Readln(f);
num:=num+1
END;
s:=num
END;
该函数的功能是
A）统计文本文件中文本的行数
B）统计文本文件中每行的字符数
C）将文件指针调整到文件的最后一行开始位置，并返回该行的字符个数
D）统计文本文件中字符总数
(45) 有如下５行语句
IF year MOD 4=0 THEN
IF year MOD 100<>0 THEN leap:=1
ELSE IF year MOD 400=0 THEN leap:=1
ELSE leap:=0
ELSE leap:=0
与上述5行语句等价的语句是
A）IF（year MOD 4=0）AND(year MOD 100=0) THEN leap:=1
ELSE leap:=0;
B）IF( year MOD 4=0) AND(year MOD 100<>0) OR (year MOD 400=0)
THEN leap:=1 ELSE leap:=0;
C）IF(year MOD 4=0) OR(year MOD 400=0) THEN leap:=1
ELSE leap:=0;
D）IF( year MOD 4=0) AND(year MOD 400=0)OR NOT (year MOD 100=0)
THEN leap:=1 ELSE leap:=0;
(46) 有如下程序
PROGRAM p46(Input,Output);
VAR p1,p2,p3:^Interger,
BEGIN
New(p1);New(p2);New(p3);
p1^:=3; p2^:=5; p3^:=7;
p1:=p2;p2:=p3; p3:=p1;
Writeln(p1^:3,p2^:3,p3^:3);
END.
该程序的运行结果是
A) 5 7 5 B) 3 5 7 C) 5 7 3 D) 5 5 7
(47) 没有下列函数说明
FUNCTION func(n:integer):integer;
BEGIN
IF n=0 THEN func:=0
ELSE IF n=1 THEN func:=2
ELSE func:=func(n-1)+func(n-2)
END;
表达式func(5)的值是
A) 8 B) 6 C) 10 D) 12
(48) 下列变量说明中正确的是
A) VAR a:RECORD B) VAR a:RECORD
a,b;Integer; a,b:Integer
CASE flag:(x,y,z) OF CASE flag:(a,b,c) OF
x:( ); a:( )
y:(a:Integer); b:(x:Integer);
z:(b,c:Integer) c:(y,z:Integer)
END; END;
C) VAR a:RECORD D) VAR a:RECORD
n,m:Integer; a,b:Integer;
CASE flag(a,b,c) OF CAST flag:(x,y,z) OF
a:( ); x:( );
b:(x:Integer); y:(x:Integer);
c:(y,z:integer) z:(y,z:Integer)
END; END;
(49) 能正确输出 A B C D E F 的程序段是
A）loop:='A'; B) loop:='F'
WHILE loop<='F' DO WHILE loop>'A' DO
BEGIN BEGIN
Writeln(loop,''); Write(loop,'');
loop:=Succ(loop) loop:=Pred(loop)
END; END;
C) loop:='A'; D) loop:='A'
WHILE loop<='F' DO WHILE loop<F DO
BEGIN BEGIN
Write(loop,''); Write(loop,'');
loop:=Succ(loop) loop:=Succ(loop)
END; END;
(50) 有下面程序段
IF x>=5 THEN
IF y<3 THEN z:=1
ELSE z:=2
ELSE
IF y<2 THEN z:=3
ELSE z:=4;
该程序段执行后，变量ｚ的值变为3，那么，变量x,y的值只能是
A) 6 1 B) 2 2 C) 1 1 D) 3 3
二、填空题（每空２分，共４０分）
请将每一个空的正确答案写在答题卡【１】至【20】序号的横线上，答在试卷上不得分
(1) 计算机机领域中，通常用英文单词"Byte"表示 【１】 。
(2) 在DOS环境下，自动批处理的文件名为 【２】 。
(3) 要将当前盘当前目录下所有扩展名为.TXT的文件内容在打印机上打印输出，应使用的单条DOS内部命令为 【３】 。
(4) 在Windows环境下，可以利用单击、双击、拖动这三种鼠标操作之一的 【４】 操作实现窗口的移动。
(5) 在Windows环境下，可以将窗口最小化为 【５】 。
(6) 设有类型说明 TYPE arr=ARRAY[1..20] OF Integer；过程proc的作用是把数组a中下标为奇数的元素中的数按升序排序，排序结果仍放在下标为奇数的元素中，请填空完成。
PROCEDURE proc(VAR a:arr);
VAR i,j,k,temp:Integer;
BEGIN
FOR i:=1 TO 10 DO
BEGIN
k:= 【6】
FOR j:=i TO 10 DO
IF a[k]>a[2*j-1] THEN
k:= 【7】
temp:= a[k]; a[k]:=a[2*j-1];a[2*i-1]:=temp;
END;
END;
(7) 哥德赫猜想是：任意一个不小于６的偶数可以表示为２个素数之和。下面程序从键盘接受一个不小于６的偶数，找出组成它的２个素数输出。例如：若输入12,则输出12=7+5请填空完成?
PROGRAM p1(Input,Output);
VAR a,b,x:Interger;
FUNCTION isprime(n:Integer):Boolean;
VAR k:Integer;
prime:Boolean;
BEGIN
prime:=n>1;
FOR k:=2 T0 n DIV 2 DO
prime:= 【8】 AND (n MOD k<>0);
isprime:=prime
END;
BEGIN
REPEAT
Readln(x) ;
UNTIL NOT Odd(x)AND(x>5);
a:=x;
REPEAT
REPEAT
a: =a-1;
UNTIL 【9】 ;
b:= 【10】 ;
UNTIL isprime(b);
Writeln(x,'=',a,'+',b)
END.
(8) 下面程序的功能是对键盘输入的一串小写字母加密，加密方法是：把要加密的字母后移x个字母（若已后移到'z'，再后移就成为'a'），而x等于该字母在字母表中的顺序号。例如：
'a'的顺序号为1，则后移1个字母，成为'b';
'b'的顺序号为2，则后移2个字母，成为'd';
'y'的顺序号为25，则后移25个字母，成为'x';
'z'的顺序号为26，则后移26个字母，成为'z'。
若输入'abcdefgxyz'，则输出'bdfhjlnvxz'。请填空完成。
PROGRAM p3(Input,Output);
VAR i,j,k,n:Integer;
ch:Char;
a,b:ARRAY[1..80] OF Char;
BEGIN
k:=1; Read(a[k]);
WHILE NOT Eoln DO
BEGIN
k:=k+1;Read(a[k])
END;
Readln;
FOR i:=1 TO k DO
BEGIN
IF a[i] IN ['a'..'z'] THEN
BEGIN
n:=Ord(a[i]-Ord('a');
FOR j:=1 TO 【11】 DO
IF a[j]:='z' THEN
a[i]:= 【12】
ELSE
a[i]:= 【13】 ;
END;
Write(a[i]);
END;
Writeln
END.
(9) 过程create的作用是从键盘输入若干个字符（输入'*'时结束），然后建立一个单循坏链表，链表的每个节点上有一个字符（不含'*'字符），变参head指向链表的某个节点。请填空完成。
TYPE link=^node;
node=RECORD
data:Char;
next:link
END;
PROCEDURE create(VAR head:link);
VAR p,q:link; ch:Char;
BEGIN
p:=NIL;
Read(ch);
WHILE ch<>'*' DO
BEGIN
New(head);
head^.data:=ch;
head^.next:= 【14】 ;
I F p=NIL THEN
q:= 【1５】
p:=head; Read(ch)
END;
IF p<>NIL THEN
q^.next:= 【16】 ;
END;
(10) 随机文件students.dat中存放的是若干个学生的学号、姓名和班号，文件中记录的顺序是按学号以升序排序的。下面的程序从键盘接受一个学号，再用对半查找的方法在文件中找出该学号的学生并输出其姓名，若没找到，则输出'Not found!'。请填空完成。
PROGRAM search(Input Output);
TYPE rec=RECORD
number :Integer; {学号}
name :STRING; {姓名}
class :STRING; {班号}
END；
VAR f: 【17】 ;
a:rec;
x,top,bottom,mid;Integer;
BEGIN
Writeln('Input a number:');
Readln(x);
Assign(f,'students.dat');
【18】 ;
top:=0 bottom:=Filesize(f)-1;
REPEAT
mid:=(top+bottom) DIV 2;
Seek( 【19】 );
Read(f,a);
IF a.number>x THEN
Bottom:=mid-1
ELSE
IF a.number<x THEN
top:=mid+1
UNTIL( 【20】 ) OR (x=a.number);
Close(f);
IF x=a.number THEN
Writeln(a.name)
ELSE
Writeln('Not found!')
END.
|
