信息学竞赛初赛模拟试题(十一)
(初中组PASCAL语言，两小时完成)
♦♦请将正确答案在答卷上填写，在本试题卷上答题无效♦♦
一、选择题(每题只有一个选项符合题目要求，多选无效，1.5*20=30分)
1、当一个应用程序窗口被最小化后，该应用程序将()。
A)被终止执行B)继续在前台执行
C)被暂停执行D)被转入后台执行
2、在"替换"对话框中指定了查内容但没有在"替换为"框中输入内容，则执行"全部替换"后，将()。
A)只进行查，不进行替换
B)不能执行，提示输入替换的内容
C)每到一个欲查内容，就提示用户输入替换的内容
D)把所有到的内容删除
3、计算机网络最主要的功能在于()。
A)扩充存储容量B)提高计算速度C)传输文件D)共享资源
4、在计算机领域中，通常用英文单词"BYTE〃来表示()
A)字B)字长C)二进制位D)字节
5、发现计算机病毒后，一种较为彻底的清除方法是()。
A)删除磁盘文件B)格式化磁盘C)用查毒软件处理D)用杀毒软件处理
6、对于一个具有n个结点和e条边的无向图，若采用邻接表表示，则顶点表的大小为
()，
A)nB)n+1C)n-1D)n+e
7、互联网址中公司的顶级域名一般是()。
A)NETB)GOVC)EDUD)COM
8、在微机中，硬盘连同其驱动器属于()。
A)外(铺助)存储器B)输入设备C)输出设备D)主(内)存储器
9、在全角状态下，输入的字母在屏幕上占有()个ASCII码字符的位置。
A)1个B)2个C)3个D)4个
10、二进制数10011010和00101011进行逻辑乘运算(即"与"运算)的结果是()。
A)00001010B)10111011C)11000101D)11111111
11、已知一棵二叉树的前序序列和中序序列分别为：ABDEGCFH和DBGEACHF，层次序列为()。
A)GEDHFBCAB)DGEBHFCAC)ABCDEFGHD)ACBFEDHG
12、下列字符中，其ASCII码值最大的是()
A)9B)DD)aD)y
13、某顺序存储的表格，其中有90000个元素，已按关键项的值的上升顺序排列。现假定对各个元素进行查的概率是相同的，并且各个元素的关键项的值皆不同。用顺序查法查时，平均比较次数约为()
A)25000B)30000C)45000D)90000
14、数字字符"1"的ASCII码的十进制表示为49，那么数字字符"8"的ASCII码的十进制表示为()。
A）56B）58C）60D）54
15、信息高速公路是在（）年提出的？
A）1991B）1992C）1993D）1994
16、下列四个无符号十进制整数中，能用八个二进制位表示的是（）。
A）257B）201C）313D）296
17、若在一个无符号非零二进制整数右边加两个零形成一个新的二进制数，则新数的值是原数值的（）。
A）四倍B）二倍C）四分之一D）二分之一
18、衡量网络上数据传输速率的单位是bps，其含义是（）
A）信号每秒传输多少公里B）信号每秒传输多少千公里
C）每秒传送多少个二进制单位D）每秒传送多少个数据
19、在计算机领域中通常用MIPS来描述（）
A）计算机的运算速度B）计算机的可靠性
C）计算机的可运行性D）计算机的可扩充性
20、设循环队列中数组的下标范围是1〜n,其头尾指针分别为f和r,则其元素个数为（）.
A）r-fB）r-f+1C）（r-f）modn+1D）（r-f+n）modn
二、问题求解：（每题5分,共10分）
21、帽子是谁拿走的？
帽子的故事把俱乐部的一个早晨搅得很热闹,把管理员马开年搞得很头痛。俱乐部有四个会员汤恒、项德铭、皮洛生和理查德都向马开年抱怨丢了帽子,但这四个人当中没有一个肯为拿错别人的帽子而表示歉意,真正好笑的是项德铭和皮洛生两人,虽然都没有错拿对方的帽子,但却相互指责对方公然行窃。下面有一些线索,请你根据这些线索这四个人谁拿走了谁的帽子：
理查德拿走了那个未曾拿走理查德的人的帽子,而那个人又拿走头天晚上第一个离开俱乐部的那人的帽子,汤恒拿走了某人的帽子,而这个又拿走了那个拿了项德铭的帽子的人的帽子。
答：汤恒拿走了的帽子；项德铭拿走了的帽子；皮洛生拿
走了的帽子；理查德拿走了的帽子。
22、有一蜜蜂,其半数的平方根飞向茉莉花丛,9分之8留在家里,还有一只去寻在花瓣里嗡
嗡叫的雄蜂,这只雄蜂被花香所吸引,傍晚时由于花瓣合拢而飞不出去了。请问,蜂中有多少只蜜蜂？
答：蜂中有只蜜蜂。
三、阅读程序,写出程序运行的结果：（每题6分,共24分）
23、
PROGRAMmyt23（input，output）;
VAR
a，b，c:integer;
PROCEDUREp（VARx:integer;y:integer）;
VAR
temp:integer;
BEGIN
temp:=xDIVy+c;
x:=temp;
WRITELN(x:4,y:4,temp:4)
END;
BEGINa:=9;b:=2;c:=3;p(a,b);
WRITELN(a:4,b:4,c:4)
END.
程序运行的结果是：
24、
PROGRAMmyt24;
VARs:INTEGER;
ch:CHAR;count:ARRAY['A'..'Z']OFINTEGER;
BEGIN
FORch:='A'TO'Z'DOcount[ch]:=0;
READ(ch);
WHILENOTEOLNDO
BEGIN
IF(ch>='A')AND(ch<='Z')THENcount[ch]:=count[ch]+1;
READ(ch)
END;
s:=0;
FORch:='B'TO'Y'DOs:=s+count[ch];
WRITELN(s)
END.
运行程序，输入一行正文'WEAREPROUDOFOURCOUNTRY!'则程序的输出是:
25、
PROGRAMmyt25(INPUT,OUTPUT);
VAR
I,j:integer;
a,b:ARRAY[1..5]OFinteger;
BEGIN
FORi:=1TO5DO
BEGINa[i]:=2*i-1;b[i]:=i
END;
FORi:=1TO5DO
FORj:=1TO5DO
IFa[i]=b[j]THENWRITE(a[i]:4)
pascal语言难学吗END.程序运行的结果是：
26、
PROGRAMmyt26(INPUT,OUTPUT);
VARa:ARRAY[1..6]OFINTEGER;
i,j,k:INTEGER;
BEGIN
FORi:=1TO6DO
READ(a[i]);
READLN;
FORi:=1TO6DO
BEGIN
IFi=1
THENk:=1
ELSEk:=8-i;
FORj:=1TO6DO
BEGIN
WRITELN(a[k]:2);
IFk=6
THENk:=1
ELSEINC(k);
END;
WRITELN;
END;
END.程序运行时，从键盘输入六个数：814256(每两个数之间有一个空格)则程序运行的结果是：
814256
681425
568142
256814
425681
142568
四、完善程序：(每空3分，共36分)27、【问题描述】会绕圈的四位数：任意选择一个四位数，把它的每一位上的数字都平方，再相加得到另一个数；将这个数的每一位上的数字再平方，再将平方和相加；……；依次类推，那么这些所产生的一系列数字中将会有一个子序列会产生循环现象，下面的程序就是对这一现象进行验证。
PROGRAMmyt27;
CONSTnum=100;
VARI,j,x,a,b,c,d,z:INTEGER;m:um]OFINTEGER;f:INTEGER;
BEGIN
WRITELN;
i:=1;
WRITE('Pleaseinputx=');
READ(x);
WRITE(x);
m[i]:=x;
forf:=1tonumdo
begin
a:=(l)；
b:=(2)；
c:=(3)；
d:=(4)；
z:=a*a+b*b+c*c+d*d;
write('->',z);
forj:=1toido
begin
if(5)then
begin
j:=i;f:=num;
end;
end;
i:=i+1;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。