noip提高组PASCAL初赛试题和答案Word文档下载推荐.docx
《noip提高组PASCAL初赛试题和答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《noip提高组PASCAL初赛试题和答案Word文档下载推荐.docx（16页珍藏版）》请在冰点文库上搜索。
A.
23
25
37
65
8.主存储器的存取速度比中央处理器（CPU）的工作速度慢的多，从而使得后者的效率受到影响。
而根据局部性原理，CPU所访问的存储单元通常都趋于一个较小的连续区域中。
于是，为了提高系统整体的执行效率，在CPU中引入了（
寄存器
高速缓存
闪存
外存
9.完全二叉树的顺序存储方案，是指将完全二叉树的结点从上到下、从左到右依次存放到一个顺序结构的数组中。
假定根结点存放在数组的1号位置上，则第k号结点的父结点如果存在的话，应当存放在数组中的（
）号位置。
2k
2k+1
C.k/2下取整
（k+1）/2
10.
以下竞赛活动中历史最悠久的是（
A.NOIP
NOI
IOI
APIO
二、不定项选择题
1.元素R1、R2、R3、R4、R5入栈的顺序为R1、R2、R3、R4、R5。
如果第1个出栈的是R3，那么第5个出栈的可能是（
R1
R2
C.R4
D.R5
2.Pascal语言，C语言和C++语言都属于（
高级语言
自然语言
解释性语言
编译性语言
3.原地排序是指在排序过程中（除了存储待排序元素以外的）辅助空间的大小与数据规模无关的排序算法。
以下属于原地排序的有（
冒泡排序
插入排序
基数排序
选择排序
4.在整数的补码表示法中，以下说法正确的是（
A．只有负整数的编码最高位为1
B．在编码的位数确定后，所能表示的最小整数和最大整数的绝对值相同
C．整数0只有一个唯一的编码
D．两个用补码表示的数相加时，如果在最高位产生进位，则表示运算溢出
5.一颗二叉树的前序遍历序列是ABCDEFG，后序遍历序列是CBFEGDA，则根结点的左子树的结点个数可能是（
A．0
2
4
6
6.在下列HTML语句中，可以正确产生一个指向NOI官方网站的超链接的是（
A．<
aurl=”http:
//www.noi.cn”>
欢迎访问NOI网站<
/a>
B．<
ahref=”http:
C．<
a>
http:
//www.noi.cn<
D．<
aname”http:
7.关于拓扑排序，下列说法正确的是（
A．所有连通的有向图都可以实现拓扑排序
B．对同一个图而言，拓扑排序的结构是唯一的
C．拓扑排序中入度为0的结点总会排在入度大于0的结点的前面
D．拓扑排序结果序列中的第一个结点一定是入度大于0的点
8.一个平面的法线是指与该平面垂直的直线。
过点（1,1,1）、（0,3,0）、（2,0,0）的平面的法线是（
A．过点（1，1，1）、（2，3，3）的直线
B．过点（1，1，1）、（3，2，1）的直线
C．过点（0，3，0）、（-3，1，1）的直线
D．过点（2，0，0）、（5，2，1）的直线
9.双向链表中有两个指针域llink和rlink，分别指向该结点的前驱及后继。
设p指向链表中的一个结点，他的左右结点均为非空。
现要求删除结点p，则下列语句序列中正确的是
（
A．p->
rlink->
llink=p->
rlink;
p->
llink->
rlink=p->
llink;
deletep;
B．p->
llink=p->
C．p->
llink->
rlink=p->
D．p->
link=p->
10.今年（2010年）发生的事件有（
A．惠普实验室研究员VinayDeolalikar自称证明了P≠NP
B．英特尔公司收购计算机安全软件公司迈克菲（McAfee）
C．苹果公司发布iPhone4手机
D．微软公司发布Windows7操作系统
三、问题求解
1．LZW编码是一种自适应词典编码。
在编码的过程中，开始时只有一部基础构造元素的编码词典，如果在编码的过程中遇到一个新的词条，则该词条及一个新的编码会被追加到词典中，并用于后继信息的编码。
举例说明，考虑一个待编码的信息串：
“xyxyyyyxyx”。
初始词典只有3个条目，第一个为x,编码为1；
第二个为y，编码为2；
第三个为空格，编码为3；
于是串“xyx”的编码为1-2-1（其中-为编码分隔符），加上后面的一个空格就是1-2-1-3。
但由于有了一个空格，我们就知道前面的“xyx”是一个单词，而由于该单词没有在词典中，我们就可以自适应的把这个词条添加到词典里，编码为4，然后按照新的词典对后继信息进行编码，以此类推。
于是，最后得到编码：
1-2-1-3-2-2-3-5-3-4。
我们可以看到，信息被压缩了。
压缩好的信息传递到接受方，接收方也只要根据基础词典就可以完成对该序列的完全恢复。
解码过程是编码过程的逆操作。
现在已知初始词典的3个条目如上述，接收端收到的编码信息为2-2-1-2-3-1-1-3-4-3-1-2-1-3-5-3-6，则解码后的信息串是”____________”。
2.无向图G有7个顶点，若不存在由奇数条边构成的简单回路，则它至多有__________条边。
3.记T为一队列，初始时为空，现有n个总和不超过32的正整数依次入列。
如果无论这些数具体为何值，都能找到一种出队的方式，使得存在某个时刻队列T中的数之和恰好为9，那么n的最小值是___________。
四、阅读程序写结果
1.
const
size=10;
var
i,j,cnt,n,m:
integer;
data:
array[1..size]ofinteger;
begin
readln（n,m）;
fori:
=1tondo
read（data[i]）;
begin
cnt:
=0;
forj:
if（data[i]<
data[j]）or（（data[j]=data[i]）and（j<
i））
theninc（cnt）;
ifcnt=m
thenwriteln（data[i]）;
end;
end.
输入
52
96-801687
输出：
__________
2.
size=100;
na,nb,i,j,k:
a,b:
readln（na）;
=1tonado
read（a[i]）;
readln（nb）;
=1tonbdo
read（b[i]）;
i:
=1;
j:
while（i<
=na）and（j<
=nb）do
ifa[i]<
=b[j]then
write（a[i],'
'
）;
inc（i）;
end
elsebegin
write（b[j],'
inc（j）;
ifi<
=nathen
fork:
=itonado
write（a[k],'
ifj<
=nbthen
=jtonbdo
write（b[k],'
5
13579
4
261014
3.
num=5;
n:
functionr（n:
integer）:
ifn<
=numthen
r:
=n;
exit;
=1tonumdo
ifr（n-i）<
0then
r:
=i;
=-1;
end;
readln（n）;
writeln（r（n））;
输入16
4.
size=100;
n,m,x,y,i:
integer;
array[1..size]ofinteger;
map:
array[1..size,1..size]ofboolean;
found:
boolean;
functionsuccessful:
=1tondo
ifnotmap[r[i]][r[imodn+1]]
thenbegin
successful:
=false;
=true;
procedureswap（vara,b:
integer）;
t:
=a;
a:
=b;
b:
=t;
procedureperm（left,right:
iffound
thenexit;
ifleft>
right
ifsuccessful
writeln（r[i],'
=true;
fori:
=lefttorightdo
swap（r[left],r[i]）;
perm（left+1,right）;
fillchar（map,sizeof（map）,false）;
=1tomdo
readln（x,y）;
map[x][y]:
map[y][x]:
r[i]:
=i;
perm（1,n）;
ifnotfound
then
writeln（'
Nosoloution'
输入:
912
12
23
34
45
56
61
17
27
38
48
59
69
五、完善程序
1.（过河问题）在一个月黑风高的夜晚,有一群人在河的右岸,想通过唯一的一根独木桥走到河的左岸.在伸手不见五指的黑夜里,过桥时必须借照灯光来照明,不幸的是,他们只有一盏灯.另外,独木桥上最多能承受两个人同时经过,否则将会坍塌.每个人单独过独木桥都需要一定的时间,不同的人要的时间可能不同.两个人一起过独木桥时,由于只有一盏灯,所以需要的时间是较慢的那个人单独过桥所花费的时间.现在输入N（2<
=N<
1000）和这N个人单独过桥需要的时间,请计算总共最少需要多少时间,他们才能全部到达河左岸.
例如,有3个人甲、乙、丙,他们单独过桥的时间分别为1
4,则总共最少需要的时间为7.具体方法是:
甲
乙一起过桥到河的左岸,甲单独回到河的右岸将灯带回,然后甲,丙在一起过桥到河的左岸,总时间为2+1+4=7.
SIZE=100;
INFINITY=10000;
LEFT=true;
RIGHT=false;
LEFT_TO_RIGHT=true;
RIGHT_TO_LEFT=false;
n,i:
time:
array[1..Size]ofinteger;
pos:
array[1..Size]ofBoolean;
functionmax（a,b:
integer）:
ifa>
bthen
max:
=a
else
functiongo（stage:
boolean）:
i,j,num,tmp,ans:
if
（stage=RIGHT_TO_LEFT）
num:
ans:
=0;
=1tondo
ifpos[i]=Rigntthen
inc（num）;
iftime[i]>
ansthen
=time[i];
if__________then
go:
=ans;
ans:
=INFINITY;
fori:
=1ton–1do
ifpos[i]=RIGHTthen
=i+1tondo
ifpos[j]=RIGHTthen
pos[i]:
=LEFT;
pos[j]:
tmp:
=max（time[i],time[j]）+_______;
iftmp<
=tmp;
=RIGHT;
go:
end
elseif
（stage=LEFT_TO_RIGHT）
thenbegin
if_______then
=________;
ansthen
_________;
elsego:
read（time[i]）;
writeln（go（RIGHT_TO_LEFT））;
NOIP2010提高组（Pascal语言）参考答案与评分标准
一、单项选择题（共10题，每题1.5分，共计15分）
12345678910
CAADBDCBCB
二、不定项选择题（共10题，每题1.5分，共计15分，多选或少选均不得分）
12345678910
ACDADABDACBBDDBCDABC
三、问题求解（共3题，每题5分，共计15分）
1．yyxyxxyyxyxyxxxxyx
2．12
3．18
四、阅读程序写结果（共4题，每题7分，共计28分）
1．16
2．12356791014
3．4
4．169548327
五、完善程序（第1空2分，其余10空，每空2.5分，共计27分）
（说明：
以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）
1．①num<
=2（或num<
3或num=2）
②go（LEFT_TO_RIGHT）
③pos[i]=LEFT（或LEFT=pos[i]）
④time[i]+go（RIGHT_TO_LEFT）（或go（RIGHT_TO_LEFT）+time[i]）
⑤pos[i]:
=LEFT
本小题中，LEFT可用true代替，LEFT_TO_RIGHT可用true代替，RIGHT_TO_LEFT可用false代替。
2．①opt[k]
②home[r]:
=k
③j:
=i+i（或j:
=2*i或j:
=i*2）
④swap（i,j）（或swap（j,i））
⑤value[i]+heap[1]（或heap[1]+value[i]）
⑥i-m
升级会员 