NOIP2009普及组初赛试题(Pascal语言)含评分标准

第十五届全国青少年信息学奥林匹克联赛初赛试题

（普及组 Pascal 语言二小时完成）

●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●

一.单项选择题（共20题，每题1.5分，共计30分。每题有且仅有一个正确答

案。）

1、关于图灵机下面的说法哪个是正确的：

A)图灵机是世界上最早的电子计算机

B)由于大量使用磁带操作，图灵机运行速度很慢。

C)图灵机是英国人图灵发明的，在二战中为破译德军的密码发挥了重要作用。

D)图灵机只是一个理论上的计算模型。

2、关于计算机内存，下列说法哪个是正确的：

A)随机存储器（RAM）的意思是当程序运行时，每次具体分配给程序的内存

位置是随机而不确定的。

B)1MB内存通常是指1024*1024字节大小的内存。

C)计算机内存严格说来包括主存（memory）、高速缓存（cache）和寄存器（r

egister）三个部分。

D)一般内存中的数据即使在断电的情况下也能保留2个小时以上。

3、下列关于BIOS的说法哪个是正确的：

A)BIOS是计算机基本输入输出系统软件的简称。

B)BIOS包含了键盘、鼠标、声卡、显卡、打印机等常用输入输出设备的驱

动程序。

C)BIOS一般由操作系统厂商来开发完成。

D)BIOS能提供各种文件拷贝、复制、删除以及目录维护等文件管理功能。

4、关于CPU下面那个说法是正确的：

A)CPU全称为中央处理器（或中央处理单元）。

B)CPU可以直接运行汇编语言。

C)同样主频下，32位的CPU比16位的CPU运行速度快一倍。

D)CPU最早是由Intel公司发明的。

5、关于ASCII，下面哪个说法是正确的：

A)ASCII码就是键盘上所有键的唯一编码。

B)一个ASCII码使用一个字节的内存空间就能够存放。

C)最新扩展的ASCII编码方案包含了汉字和其他欧洲语言的编码。

D)ASCII码是英国人主持制定并推广使用的。

6、下列软件中不是计算机操作系统的是：

A) Windows B) Linux C) OS/2 D) WPS

7、关于互联网，下面的说法哪一个是正确的：

A)新一代互联网使用的IPv6标准是IPv5标准的升级与补充。

B)互联网的入网主机如果有了域名就不再需要IP地址。

C)互联网的基础协议为TCP/IP协议。

D)互联网上所有可下载的软件及数据资源都是可以合法免费使用的。

8、关于HTML语言下面哪种说法是正确的：

A)HTML实现了文本、图形、声音乃至视频信息的统一编码。

B)HTML全称为超文本标记语言。

C)网上广泛使用的Flash动画都是由HTML编写的。

D)HTML也是一种高级程序设计语言。

9、关于程序设计语言，下面哪种说法是正确的：

A)加了注释的程序一般会比同样的没有加注释的程序运行速度慢。

B)高级语言开发的程序不能使用在低层次的硬件系统（如：自控机床）或低

端手机上。

C)高级语言相对于低级语言更容易实现跨平台的移植。

D)以上说法都不对。

10、已知大写字母A的ASCII编码为65（十进制），则大写字母J的十进制A

SCII编码为：

A) 71 B) 72 C) 73 D) 以上都不是

11、十进制小数125.125对应的八进制数是

A) 100.1 B) 175.175 C) 175.1 D) 100.175

12、有六个元素FEDCBA 从左到右依次顺序进栈，在进栈过程中会有元素被

弹出栈。问下列哪一个不可能是合法的出栈序列？

A) EDCFAB B) DECABF C) CDFEBA D) BCDAEF

13、表达式a*(b+c)-d 的后缀表达式是

A) abcd*+- B) abc+*d- C) abc*+d- D) -+*abcd

14、一个包含n个分支节点（非叶节点）的非空二叉树，它的叶节点数目最多

为：

A) 2n + 1 B) 2n - 1 C) n - 1 D) n + 1

15、快速排序最坏情况下的算法复杂度为：

A) O (log2n) B) O (n) C) O (nlog2n) D) O (n2)

16、又一个由4000个整数构成的顺序表，假定表中的元素已经按升序排列，

采用二分查找定位一个元素。则最多需要几次比较就能确定是否存在所查找的元素：

A) 11次B) 12次C) 13次D) 14次

17、排序算法是稳定的意思是关键码相同的记录排序前后相对位置不发生改

变，下列哪种排序算法是不稳定的：

A) 冒泡排序B) 插入排序C) 归并排序D) 快速排序

18、已知n个顶点的有向图，若该图是强连通的（从所有顶点都存在路径到达

其他顶点），则该图中最少有多少条有向边？

A) n B) n + 1 C) n - 1 D) n* (n - 1)

19、全国信息学奥林匹克的官方网站为参与信息学竞赛的老师同学们提供相关

的信息和资源，请问全国信息学奥林匹克官方网站的网址是：

A) https://www.wendangku.net/doc/a15483301.html,/ B) https://www.wendangku.net/doc/a15483301.html,/

C) https://www.wendangku.net/doc/a15483301.html,/ D) https://www.wendangku.net/doc/a15483301.html,/

20、在参加NOI系列竞赛过程中，下面哪一种行为是不被严格禁止的：

A)携带书写工具，手表和不具有通讯功能的电子词典进入赛场。

B)在联机测试中通过手工计算出可能的答案并在程序里直接输出答案来获

取分数。

C)通过互联网搜索取得解题思路。

D)在提交的程序中启动多个进程以提高程序的执行效果。

二.问题求解（共2题，每空5分，共10分）

1.小陈现有2个任务A，B要完成，每个任务分别有若干步骤如下：A=a1-> a2->a3，B=b1->b2->b3->b4->b5。在任何时候，小陈只能专心做某个任务的一个步骤。但是如果愿意，他可以在做完手中任务的当前步骤后，切换至另一个任务，从上次此任务第一个未做的步骤继续。每个任务的步骤顺序不能打乱，例如……a2-> b2->a3->b3……是合法的，而……a2->b3->a3->b2……是不合法的。小陈从B任务的b1步骤开始做，当恰做完某个任务的某个步骤后，就停工回家吃饭了。当他回来时，只记得自己已经完成了整个任务A，其他的都忘了。使计算小陈饭前已做的可能的任务步骤序列共有__________ 种。

2.有如下的一段程序：

1.a:=1;

2.b:=a;

3.d:=-a;

4.e:=a+d;

5.c:=2*d;

6.f:=b+e-d;

7.g:=a*f+c;

现在要把这段程序分配到若干台（数量充足）用电缆连接的PC上做并行执行。每台PC执行其中的某几个语句，并可随时通过电缆与其他PC通讯，交换一些中间结果。假设每台PC每单位时间可以执行一个语句，且通讯花费的时间不计。则这段程序最快可以在_______单位时间内执行完毕。注意：任意中间结果只有在某台PC 上已经得到，才可以被其他PC引用。例如若语句4和6被分别分配到两台PC上执行，则因为语句6需要引用语句4的计算结果，语句6必须在语句4之后执行。

三.阅读程序写结果（共4题，每题8分，共32分）

1.

var

a, b: integer;

function work(a, b: integer): integer;

begin

if a mod b <> 0 then

work := work(b, a mod b)

else

work := b;

end;

begin

read(a, b);

writeln(work(a, b));

end.

输入：20 12

输出：_____

2.

var

a, b: array[0..2] of integer;

i, j, tmp: integer;

begin

for i := 0 to 2 do

read(b[i]);

for i := 0 to 2 do

begin

a[i] := 0;

for j := 0 to i do

inc(a[i], b[j]);

inc(b[a[i] mod 3], a[j]);

end;

end;

tmp := 1;

for i := 0 to 2 do

begin

a[i] := a[i] mod 10;

b[i] := b[i] mod 10;

tmp := tmp * (a[i] + b[i])

end;

writeln(tmp);

end.

输入：2 3 5

输出：_______

3.

const c = 2009;

var

n, p, s, i, j, t: integer;

begin

read(n, p);

s := 0;

t := 1;

for i := 1 to n do

begin

t := t * p mod c;

for j := 1 to i do

s := (s + t) mod c;

end;

writeln(s);

end.

输入：11 2

输出：______

4.

var

n: integer;

procedure getnext(var str: string);

var

l, i, j, k: integer;

temp: char;

begin

l := length(str);

k := l - 1;

while (k >= 1) and (str[k] > str[k + 1]) do

dec(k);

i := k + 1;

while (i <= l) and (str[i] > str[k]) do

inc(i);

temp := str[k];

str[k] := str[i - 1];

str[i - 1] := temp;

for i := l downto k + 1 do

for j := k + 1 to i - 1 do

if str[j] > str[j + 1] then

begin

temp := str[j];

str[j] := str[j + 1];

str[j + 1] := temp;

end;

end;

begin

read(a);

read(n);

while n > 0 do

begin

getnext(a);

dec(n);

end;

write(a);

end.

输入：NOIP 3

输出：_______

四.完善程序（前8空，每空3分，后2空，每空2分，共28分）

1．（最大连续子段和）给出一个数列（元素个数不超过100），数列元素均为负整数、正整数、0。请找出数列中的一个连续子数列，使得这个子数列中包含的所有元素之和最大，在和最大的前提下还要求该子数列包含的元素个数最多，并输出这个最大和以及该连续子数列中元素的个数。例如数列为 4，-5，3，2，4时，输出9和3；数列为1 2 3 -5 0 7 8 时，输出16和7。

var

a: array[1..100] of integer;

n, i, ans, len, tmp, beg: integer;

begin

read(n);

for i := 1 to n do

read(a[i]);

tmp := 0;ans := 0;len := 0;

beg := ① ;

for i := 1 to n do

begin

if tmp + a[i] > ans then

begin

ans := tmp + a[i];

len := i - beg;

end

else if ( ② ) and (i - beg > len) then

len := i - beg;

if tmp + a[i] ③ then

begin

beg := ④ ;

tmp := 0;

end

else

⑤ ;

end;

writeln(ans, ' ', len);

end.

2．（国王放置）在n*m的棋盘上放置k个国王，要求k个国王互相不攻击，有多少种不同的放置方法。假设国王放置在第(x, y)格，国王的攻击的区域是：(x -1,y-1), (x-1,y), (x-1,y+1), (x, y-1), (x,y+1), (x+1,y-1), (x +1,y), (x+1,y+1)。读入三个数n,m,k，输出答案。题目利用回溯法求解。棋盘行标号为0~n-1，列标号为0~m-1。

var

n, m, k, ans: integer;

hash: array[0..4, 0..4] of integer; procedure work(x, y, tot: integer);

var

i, j: integer;

begin

if tot = k then

begin

inc(ans);

exit;

end;

repeat

while hash[x, y] <> 0 do

begin

inc(y);

if y = m then

begin

inc(x);

y := ① ;

end;

if x = n then

exit;

end;

for i := x - 1 to x + 1 do

if (i >= 0) and (i < n) then

for j := y - 1 to y + 1 do

if (j >= 0) and (j <= m) then

② ;

③ ;

for i := x - 1 to x + 1 do

if (i >= 0) and (i < n) then

for j := y - 1 to y + 1 do

if (j >= 0) and (j <= m) then

④ ;

inc(y);

if y = m then

begin

inc(x);

y := 0;

end;

if x = n then

exit;

until false;

end;

begin

read(n, m, k);

ans := 0;

fillchar(hash, sizeof(hash), 0);

⑤ ;

writeln(ans);

end.

NOIP2009初赛试题（普及组Pascal）百度文库会员：jinkaiqin整理

附录

NOIP2009年普及组（Pascal语言）参考答案与评分标准

一、单项选择题：（每题1.5分）

DBAAB DCBCD CCBDD BDACB

二、问题求解：（共2题，每空5分，共计10分）

1．70 2．5

三、阅读程序写结果（共4题，每题8分，共计32分）

1. 4

2. 416

3. 782

4. NPOI

四．完善程序 (前8空，每空3分，后2空，每空2分，共28分)

（说明：以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）

1.① 0

② tmp+a[i]=ans或者 a[i]+tmp=ans 或者ans=a[i]+tmp等

③ <0

④ i

⑤ inc(tmp, a[i])或者tmp := tmp+a[i]

2.① 0

② inc(hash[i, j])或者 hash[i][j]:= hash[i][j]+1

③ work(x,y,tot+1)

④ dec(hash[i, j]) 或者 hash[i][j]:= hash[i][j]-1

⑤ work(0,0,0)

注意：②④两空，不一定要+1 或者 -1。也可以是④ -1 , ② +1. 也可以是 + k , 也可以 - k, 甚至任何加标记的操作(如位运算)都可以，只要相互撤销。（所以答案非常多）。