NOIP提高组初赛 pascal 试题+答案Word文件下载.docx
《NOIP提高组初赛 pascal 试题+答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《NOIP提高组初赛 pascal 试题+答案Word文件下载.docx（12页珍藏版）》请在冰点文库上搜索。
A.图灵奖是美国计算机协会于1966年设立的，专门奖励那些对计算机事业作出重要贡献的个人
B.图灵奖有“计算机界诺贝尔奖”之称
C.迄今为止，还没有华裔计算机科学家获此殊荣
D.图灵奖的名称取自计算机科学的先驱、英国科学家阿兰·
图灵
12．计算机在工作过程中，若突然停电，（）中的信息不会丢失。
A.硬盘B.CPUC.ROMD.RAM
13.设A=true，B=false，C=true，D=false，以下逻辑运算表达式值为真的有（）。
A.（A∧B）∨（C∧D∨
A）B.（（
A∧B）∨C）∧
D
C.（B∨C∨D）∨D∧AD.A∧（D∨
C）∧B
14．Web2.0是近年来互联网的热门概念之一，其核心思想是互动与分享。
下列网站中，（）是典型的Web2.0应用。
A.SinaB.FlickrC.YahooD.Google
15.（2008）10+（5B）16的结果是（）。
A.（833）16B.（2099）10C.（4063）8D.（100001100011）2
16.二叉树T，已知其先根遍历是1243576（数字为结点的编号，以下同），后根遍历是4275631，则该二叉树的可能的中根遍历是（）。
A.4217536B.2417536
C.4217563D.2415736
17.面向对象程序设计（Object-OrientedProgramming）是一种程序设计的方法论，它将对象作为程序的基本单元，将数据和程序封装在对象中，以提高软件的重用性、灵活性和扩展性。
下面关于面向对象程序设计的说法中，正确的是（）。
A.面向对象程序设计通常采用自顶向下设计方法进行设计。
B.面向对象程序设计方法具有继承性（inheritance）、封装性（encapsulation）、多态性（polymorphism）等几大特点。
C.支持面向对象特性的语言称为面向对象的编程语言，目前较为流行的有C++、JAVA、C#等。
D.面向对象的程序设计的雏形来自于Simula语言，后来在SmallTalk语言的完善和标准化的过程中得到更多的扩展和对以前思想的重新注解。
至今，SmallTalk语言仍然被视为面向对象语言的基础。
18.设T是一棵有n个顶点的树，下列说法正确的是（）。
A.T是连通的、无环的B.T是连通的，有n-1条边
C.T是无环的，有n-1条边D.以上都不对
19.NOIP竞赛推荐使用的语言环境有（）。
A.Dev-C++B.VisualC++C.freepascalD.Lazarus
20.在下列防火墙（firewall）的说法中，正确的有（）。
A.防火墙是一项协助确保信息安全的设备，其会依照特定的规则，允许或是限制数据通过
B.防火墙可能是一台专属的硬件或是安装在一般硬件上的一套软件
C.网络层防火墙可以视为一种IP数据包过滤器，只允许符合特定规则的数据包通过，其余的一概禁止穿越防火墙
D.应用层防火墙是在TCP/IP的“应用层”上工作，可以拦截进出某应用程序的所有数据包
三．问题求解（共2题，每题5分，共计10分）
1．有6个城市，任何两个城市之间都有一条道路连接，6个城市两两之间的距离如下表所示，则城市1到城市6的最短距离为_____________。
城市1
城市2
城市3
城市4
城市5
城市6
2
3
1
12
15
5
6
7
9
2．书架上有21本书，编号从1到21，从其中选4本，其中每两本的编号都不相邻的选法一共有______种。
四．阅读程序写结果（共4题，每题8分，共计32分）
1.var
i,a,b,c,d:
integer;
f:
array[0..3]ofinteger;
begin
fori:
=0to3do
read（f[i]）;
a:
=f[0]+f[1]+f[2]+f[3];
=adivf[0];
b:
=f[0]+f[2]+f[3];
=bdiva;
c:
=（b*f[1]+a）divf[2];
d:
=f[（bdivc）mod4];
if（f[（a+b+c+d）mod4]>
f[2]）then
begin
=a+b;
writeln（a）;
endelse
=c+d;
writeln（c）;
end;
end.
输入：
9192939
输出：
_______________
2．procedurefoo（a,b,c:
integer）;
ifa>
bthenfoo（c,a,b）
elsewriteln（a,'
'
b,'
c）
end;
var
a,b,c:
read（a,b,c）;
foo（a,b,c）;
213
输出:
__________
3．proceduref（a,b,c:
write（a,b,c,'
/'
）;
if（a=3）and（b=2）and（c=1）thenexit;
ifb<
cthenf（a,c,b）
else
ifa<
bthen
cthenf（c,a,b）elsef（b,c,a）;
f（a,b,c）;
end.
输入:
132
________________________________________
4.var
s:
string;
i,j,len,k:
read（s）;
len:
=length（s）;
=1tolendo
if（ord（s[i]）>
=ord（'
A'
））and（ord（s[i]）<
Z'
））then
s[i]:
=chr（ord（s[i]）-ord（'
）+ord（'
a'
））;
if（ord（s[i]）<
ord（'
x'
））thens[i]:
=chr（ord（s[i]）+3）
elses[i]:
=chr（ord（s[i]）-23）;
write（s）;
write（'
forj:
=1to3dobegin
i:
=1;
whilei<
=len-jdo
begin
s[i]:
=s[i+j];
=i+j;
end;
writeln（s）;
ABCDEFGuvwxyz
___________________________________________
五．完善程序（前6空，每空3分，后5空，每空2分，共28分）
1．（找第k大的数）给定一个长度为1,000,000的无序正整数序列，以及另一个数n（1<
=n<
=1000000），接下来以类似快速排序的方法找到序列中第n大的数（关于第n大的数：
例如序列{1，2，3，4，5，6}中第3大的数是4）。
a:
array[1..1000000]ofinteger;
n,m,ans:
procedureswap（vara,b:
vart:
if（a<
>
b）thenbegin
t:
=a;
=b;
=t;
functionFindKth（left,right,n:
integer）:
tmp,value,i,j:
ifleft=rightthenexit（left）;
tmp:
=random（right-left）+left;
swap（a[tmp],a[left]）;
value:
=①;
i:
=left;
j:
=right;
whilei<
jdo
while（i<
j）and（②）dodec（j）;
ifi<
jthenbegin
a[i]:
=a[j];
inc（i）;
endelsebreak;
j）and（③）doinc（i）;
a[j]:
=a[i];
dec（j）;
④
nthenbegininc（i）;
exit（FindKth（⑤））;
ifi>
nthenbegindec（i）;
exit（⑥）;
exit（i）;
i:
randomize;
ans:
=-1;
m:
=5;
=1tomdo
read（a[i]）;
read（n）;
ans:
=FindKth（1,m,n）;
writeln（a[ans]）;
2．（矩阵中的数字）有一个n*n（1<
=5000）的矩阵a，对于1<
=i<
n,1<
=j<
=n,a[i,j]<
a[i+1,j]a[j,i]<
a[j,i+1]。
即矩阵中左右相邻的两个元素，右边的元素一定比左边的大。
上下相邻的两个元素，下面的元素一定比上面的大。
给定矩阵a中的一个数字k，找出k所在的行列（注意：
输入数据保证矩阵中的数各不相同）。
n,k,answerx,answery:
array[1..5000,1..5000]ofinteger;
procedureFindKPosition;
i,j:
=n;
j:
whilej>
0do
ifa[n,j]<
kthenbreak;
①
whilea[i,j]<
kdo
while（②）and（i>
1）dodec（i）;
while（③）and（j<
=n）doinc（j）;
⑤
i,j:
read（n）;
fori:
=1tondo
forj:
read（a[i,j]）;
read（k）;
FindKPosition;
writeln（answerx,'
'
answery）;
NOIP2008年提高组（Pascal语言）参考答案与评分标准
一、单项选择题：
（每题1.5分）
1.C2.A3.B4.C5.B
6.D7.D8.E9.B10.C
11.ABD12.AC13.BC14.B15.ABC
16.ABD17.BCD18.ABC19.ACD20.ABCD
三、问题求解：
（共2题，每题5分，共计10分）
1．7
2．3060
四、阅读程序写结果（共4题，每题8分，共计32分）
1.23（信心题）
2.1,3,2（简单递归）
3.132/213/231/312/321/（全排列）
4.defghijxyzabc/hfizxjaybcccc（字符串替换）
（说明：
以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）
1.①a[left]
②a[j]<
value（或a[j]<
=value）
③a[i]>
value（或a[i]>
④a[i]:
=value;
⑤i,right,n
⑥FindKth（left,i,n）
2.①inc（j）;
（或者j:
=j+1;
）
②a[i,j]>
k
③a[i,j]<
④answerx:
=i;
⑤answery:
=j;
升级会员 