Free Pascal 典型题目解析

学按顺序来到操场时，都从排尾走向排头，找到第一个比自己高的同学，并站在他的后面。这种站队的方法类似于（ ）算法。 A、快速排序

B、插入排序

C、冒泡排序

D、归并排序

9、一个正整数在二进制下有 100 位，则它在十六进制下有（ ）位。 A、7

10、有人认为，在个人电脑送修前，将文件放入回收站中就是已经将其删除了。这种想法是（ ）。

A、正确的，将文件放入回收站意味着彻底删除、无法恢复 B、不正确的，只有将回收站清空后，才意味着彻底删除、无法恢复

C、不正确的，即使将回收站清空，文件只是被标记为删除，仍可能通过恢复软件找回 D、不正确的，只要在硬盘上出现过的文件，永远不可能被彻底删除

11、广度优先搜索时，需要用到的数据结构是（ ）。 A、链表

12、在使用高级语言编写程序时，一般提到的“空间复杂度”中的“空间”是指（ ）。 A、程序运行时理论上所占的内存空间 B、程序运行时理论上所占的数组空间 C、程序运行时理论上所占的硬盘空间 D、程序源文件理论上所占的硬盘空间

13、在含有 n 个元素的双向链表中查询是否存在关键字为 k 的元素，最坏情况下运行的时间复杂度是（ ）。 A、O(1)

14、生物特征识别，是利用人体本身的生物特征进行身份认证的一种技术。目前，指纹识别、虹膜识别、人脸识别等技术已广泛应用于政府、银行、安全防卫等领域。以下不属于生物特征识别技术及其应用的是（ ）。

A、指静脉验证

15、现有一段文言文，要通过二进制哈夫曼编码进行压缩。简单起见，假设这段文言文只由 4

B、步态验证

C、ATM 机密码验证 D、声音验证

B、O(log n)

C、O(n)

D、O(n log n)

B、队列

C、栈

D、散列表

B、13

C、25

D、不能确定

CCF NOIP2011 初赛 5 普及组 Pascal

个汉字“之”、“乎”、“者”、“也”组成，它们出现的次数分别为 700、600、300、 200。那么，“也”字的编码长度是（ ）。 A、1

B、2

C、3

D、4

16、关于汇编语言，下列说法错误的是（ ）。 A、是一种与具体硬件相关的程序设计语言

B、在编写复杂程序时，相对于高级语言而言代码量较大，且不易调试 C、可以直接访问寄存器、内存单元、以及 I/O 端口 D、随着高级语言的诞生，如今已完全被淘汰，不再使用

17、（ ）是一种选优搜索法，按选优条件向前搜索，以达到目标。当探索到某一步时，发现原先选择并不优或达不到目标，就退回一步重新选择。 A、回溯法

18、1956 年（ ）授予肖克利（William Shockley）、巴丁（John Bardeen）和布拉顿（Walter Brattain），以表彰他们对半导体的研究和晶体管效应的发现。 A、诺贝尔物理学奖 B、约翰·冯·诺依曼奖 C、图灵奖

D、高德纳奖（Donald E. Knuth Prize）

19、对一个有向图而言，如果每个节点都存在到达其他任何节点的路径，那么就称它是强连通的。例如，右图就是一个强连通图。事实上，在删掉边（ ）后，它依然是强连通的。 A、a

20、从 ENIAC 到当前最先进的计算机，冯·诺依曼体系结构始终占有重要的地位。冯·诺依曼体系结构的核心内容是（ ）。 A、采用开关电路

B、采用半导体器件 D、采用键盘输入

B、b

C、c

D、d

B、枚举法

C、动态规划

D、贪心法

C、采用存储程序和程序控制原理

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

1、每份考卷都有一个 8 位二进制序列号。当且仅当一个序列号含有偶数个 1 时，它才是有效的。例如，00000000、01010011 都是有效的序列号，而 11111110 不是。那么，有效的序列号共有________个。

CCF NOIP2011 初赛 6 普及组 Pascal

2、定义字符串的基本操作为：删除一个字符、插入一个字符和将一个字符修改成另一个字符这三种操作。将字符串 A 变成字符串 B 的最少操作步数，称为字符串 A 到字符串 B 的编辑距离。字符串\到字符串\的编辑距离为________。 三、阅读程序写结果（共 4 题，每题 8 分，共计 32 分） 1、

Var

n, m, i, ans : Integer;

Begin

Readln(n, m); ans := 0; i := n;

While i <= m Do Begin

ans := ans + i; Inc(i); End;

Writeln(ans); End.

输入：10 20

输出：__________________ 2、

Var

map, tel : String; i : Integer;

Begin

map := '22233344455566677778889999'; Readln(tel);

For i := 1 To Length(tel) Do

If (tel[i] >= '0') AND (tel[i] <= '9') Then Write(tel[i]) Else

If (tel[i] >= 'A') AND (tel[i] <= 'Z')

Then Write(map[Ord(tel[i]) - Ord('A') + 1]); End.

CCF NOIP2011 初赛 7 普及组 Pascal

输入：CCF-NOIP-2011 输出：__________________

3、 Const

SIZE = 100; Var

n, i, sum, x : Integer;

a : Array[1..SIZE] Of Integer;

Begin

Readln(n);

FillChar(a, SizeOf(a), 0); For i := 1 To n Do Begin

Read(x); Inc(a[x]); End; i := 0; sum := 0;

While sum < (n DIV 2 + 1) Do Begin

Inc(i);

sum := sum + a[i]; End;

Writeln(i); End. 输入： 11

4 5 6 6 4 3 3 2 3 2 1 输出：__________________

CCF NOIP2011 初赛 8 普及组 Pascal