NOIP提高组初赛 pascal试题+答案Word文件下载.docx
《NOIP提高组初赛 pascal试题+答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《NOIP提高组初赛 pascal试题+答案Word文件下载.docx（15页珍藏版）》请在冰点文库上搜索。
A）平均情况O（nlog2n），最坏情况O（n2）
B）平均情况O（n），最坏情况O（n2）
C）平均情况O（n），最坏情况O（nlog2n）
D）平均情况O（log2n），最坏情况O（n2）
9、左图给出了一个加权无向图，从顶点V0开始用prim算法求最小生成树。
则依次加入最小生成树的顶点集合的顶点序列为：
A）V0,V1,V2,V3,V5,V4
B）V0,V1,V5,V4,V3,V3
C）V1,V2,V3,V0,V5,V4
D）V1,V2,V3,V0,V4,V5
10、全国信息学奥林匹克的官方网站为参与信息学竞赛的老师同学们提供相关的信息和资源，请问全国信息学奥林匹克官方网站的网址是：
A）B）http:
//www.noi.org/
C）D）
二．不定项选择题（共10题，每题1.5分，共计15分。
每题正确答案的个数不少于1。
多选或少选均不得分）。
1、关于CPU下面哪些说法是正确的：
A）CPU全称为中央处理器（或中央处理单元）。
B）CPU能直接运行机器语言。
C）CPU最早是由Intel公司发明的。
D）同样主频下，32位的CPU比16位的CPU运行速度快一倍。
2、关于计算机内存下面的说法哪些是正确的：
A）随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存位置是随机而不确定的。
B）一般的个人计算机在同一时刻只能存/取一个特定的内存单元。
C）计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（register）三个部分。
D）1MB内存通常是指1024*1024字节大小的内存。
3、关于操作系统下面说法哪些是正确的：
A.多任务操作系统专用于多核心或多个CPU架构的计算机系统的管理。
B.在操作系统的管理下，一个完整的程序在运行过程中可以被部分存放在内存中。
C.分时系统让多个用户可以共享一台主机的运算能力，为保证每个用户都得到及时的响应通常会采用时间片轮转调度的策略。
D.为了方便上层应用程序的开发，操作系统都是免费开源的。
4、关于计算机网络，下面的说法哪些是正确的：
A）网络协议之所以有很多层主要是由于新技术需要兼容过去老的实现方案。
B）新一代互联网使用的IPv6标准是IPv5标准的升级与补充。
C）TCP/IP是互联网的基础协议簇，包含有TCP和IP等网络与传输层的通讯协议。
D）互联网上每一台入网主机通常都需要使用一个唯一的IP地址，否则就必须注册一个固定的域名来标明其地址。
5、关于HTML下面哪些说法是正确的：
A）HTML全称超文本标记语言，实现了文本、图形、声音乃至视频信息的统一编码。
B）HTML不单包含有网页内容信息的描述，同时也包含对网页格式信息的定义。
C）网页上的超链接只能指向外部的网络资源，本网站网页间的联系通过设置标签来实现。
D）点击网页上的超链接从本质上就是按照该链接所隐含的统一资源定位符（URL）请求网络资源或网络服务。
6、若3个顶点的无权图G的邻接矩阵用数组存储为{{0，1，1}，{1，0，1}，{0，1，0}}，假定在具体存储中顶点依次为:
v1，v2，v3关于该图，下面的说法哪些是正确的：
A）该图是有向图。
B）该图是强连通的。
C）该图所有顶点的入度之和减所有顶点的出度之和等于1。
D）从v1开始的深度优先遍历所经过的顶点序列与广度优先的顶点序列是相同的。
7、在带尾指针（链表指针clist指向尾结点）的非空循环单链表中每个结点都以next字段的指针指向下一个节点。
假定其中已经有2个以上的结点。
下面哪些说法是正确的：
A）如果p指向一个待插入的新结点，在头部插入一个元素的语句序列为：
p^.next:
=clist^.next;
clist^.next:
=p;
B）如果p指向一个待插入的新结点，在尾部插入一个元素的语句序列为：
=clist;
C）在头部删除一个结点的语句序列为：
p:
=clist^.next^.next;
dispose（p）;
D）在尾部删除一个结点的语句序列为。
clist:
=clist^.next;
8、散列表的地址区间为0-10,散列函数为H（K）=Kmod11。
采用开地址法的线性探查法处理冲突，并将关键字序列26，25，72，38，8，18，59存储到散列表中，这些元素存入散列表的顺序并不确定。
假定之前散列表为空，则元素59存放在散列表中的可能地址有：
A）5B）7C）9D）10
9、排序算法是稳定的意思是关键码相同的记录排序前后相对位置不发生改变，下列哪些排序算法是稳定的：
A）插入排序B）基数排序C）归并排序D）冒泡排序
10、在参加NOI系列竞赛过程中，下面哪些行为是被严格禁止的：
A）携带书写工具，手表和不具有通讯功能的电子词典进入赛场。
B）在联机测试中通过手工计算出可能的答案并在程序里直接输出答案来获取分数。
C）通过互联网搜索取得解题思路。
D）在提交的程序中启动多个进程以提高程序的执行效率。
三．问题求解（共2题，每空5分，共计10分）
1．拓扑排序是指将有向无环图G中的所有顶点排成一个线性序列，使得图中任意一对顶点u和v，若<
u，v>
∈E（G），则u在线性序列中出现在v之前，这样的线性序列成为拓扑序列。
如下的有向无环图，对其顶点做拓扑排序，则所有可能的拓扑序列的个数为。
9
2．某个国家的钱币面值有1,7,72,73共计四种，如果要用现金付清10015元的货物，假设买卖双方各种钱币的数量无限且允许找零，那么交易过程中至少需要流通张钱币。
四．阅读程序写结果（共4题，每题8分，共计32分）
1．
var
a,b:
integer;
functionwork（a,b:
integer）:
begin
ifamodb<
>
0then
work:
=work（b,amodb）
else
=b;
end;
read（a,b）;
writeln（work（a,b））;
end.
输入：
123321
输出：
_________
2．
array[0..3]ofinteger;
i,j,tmp:
fori:
=0to3do
read（b[i]）;
begin
a[i]:
=0;
forj:
=0toido
begin
inc（a[i],b[j]）;
inc（b[a[i]mod4],a[j]）;
end;
end;
tmp:
=1;
=a[i]mod10;
b[i]:
=b[i]mod10;
tmp:
=tmp*（a[i]+b[i]）;
writeln（tmp）;
2357
_______________
3．
const
y=2009;
maxn=50;
n,i,j,s:
longint;
c:
array[0..maxn,0..maxn]oflongint;
s:
read（n）;
c[0,0]:
=1tondo
c[i,0]:
=1toi-1do
c[i,j]:
=c[i-1,j-1]+c[i-1,j];
c[i,i]:
=0tondo
s:
=（s+c[n,i]）mody;
write（s）;
17
4．
n,m,i,j,k,p:
array[0..100]ofinteger;
read（n,m）;
a[0]:
=n;
i:
p:
k:
repeat
=0toi-1do
ifa[i]=a[j]then
begin
p:
k:
=j;
break;
end;
ifp<
break;
=a[i]divm;
a[i+1]:
=（a[i]modm）*10;
inc（i）;
untila[i]=0;
write（b[0],'
.'
）;
forj:
=1tok-1do
write（b[j]）;
ifp<
write（'
（'
=ktoi-1do
）'
writeln;
513
五．完善程序（前5空，每空2分，后6空，每空3分，共28分）
1．（最大连续子段和）给出一个数列（元素个数不多于100），数列元素均为负整数、正整数、0。
请找出数列中的一个连续子数列，使得这个子数列中包含的所有元素之和最大，在和最大的前提下还要求该子数列包含的元素个数最多，并输出这个最大和以及该连续子数列中元素的个数。
例如数列为4，-5，3，2，4时，输出9和3；
数列为123-5078时，输出16和7。
a:
array[1..100]ofinteger;
n,i,ans,len,tmp,beg:
read（a[i]）;
ans:
len:
beg:
=①;
iftmp+a[i]>
ansthen
ans:
=tmp+a[i];
len:
=i-beg;
end
elseif（②）and（i-beg>
len）then
iftmp+a[i]③then
beg:
=④;
tmp:
else
⑤;
writeln（ans,'
'
len）;
2.（寻找等差数列）有一些长度相等的等差数列（数列中每个数都为0~59的整数），设长度均为L，将等差数列中的所有数打乱顺序放在一起。
现在给你这些打乱后的数，问原先，L最大可能为多大？
先读入一个数n（1<
=n<
=60），再读入n个数，代表打乱后的数。
输出等差数列最大可能长度L。
hash:
array[0..60]ofinteger;
n,x,ans,maxnum,i:
functionwork（now:
boolean;
ok:
first,second,delta,i:
while（（①）and（hash[now]=0））do
inc（now）;
ifnow>
maxnumthen
=true;
exit;
first:
=now;
forsecond:
=firsttomaxnumdo
ifhash[second]>
delta:
=②;
iffirst+delta*③>
ifdelta=0then
ok:
=（④）
else
fori:
=0toans-1do
ok:
=⑤and（hash[first+delta*i]>
0）;
ifokthen
dec（hash[first+delta*i]）;
ifwork（first）then
begin
work:
exit;
end;
inc（hash[first+delta*i]）;
work:
=false;
fillchar（hash,sizeof（hash）,0）;
maxnum:
read（x）;
inc（hash[x]）;
ifx>
maxnum:
=x;
forans:
=ndownto1do
if（nmodans=0）and⑥then
writeln（ans）;
NOIP2009年提高组（Pascal语言）参考答案与评分标准
一、单项选择题：
（每题1.5分）
1.C2.A3.D4.B5.D
6.B7.B8.A9.A10.C
二、不定项选择题（共10题，每题1.5分，共计15分。
每题正确答案的个数大于或等于1。
1.AB2.BD3.BC4.C5.BD
6.ABD7.AC8.ABC9.ABCD10.ACD
三、问题求解：
（共2题，每空5分，共计10分）
1．432
2．35
四、阅读程序写结果（共4题，每题8分，共计32分）
1.3
2.5850
3.487（杨辉三角）
4.0.（384615）（分数变小数）
（说明：
以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）
1.
①0
②tmp+a[i]=ans或者a[i]+tmp=ans或者ans=a[i]+tmp等
③<
④i
⑤inc（tmp,a[i]）或者tmp:
=tmp+a[i]
2.
①now<
=maxnum或者not（now>
maxnum）
②second-first
③（ans-1）
④hash[first]>
=ans或者hash[second]>
=ans或者hash[first+delta]>
=ans
⑤ok
⑥work（0）
升级会员 