《noip2017年提高组pascal试题》由会员分享，可在线阅读，更多相关《noip2017年提高组pascal试题（10页珍藏版）》请在金锄头文库上搜索。
1、上 海 上 海上 海 上 海 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 1 页，共 10 页 第二十三届全国青少年信息学奥林匹克联赛初赛 提高组 Pascal 语言试题 竞赛时间：2017 年 10 月 14 日 14:3016:30 选手选手注意：注意： 试题纸共有 10 页，答题纸共有 2 页，满分 100 分。请在答题纸上作答，写 在试题纸上的一律无效。 不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资 料。 一、单项选择题（共一、单项选择题（共 15 题，每题题，每题 1.5 分，共计分，共计 22.5 分分；每题有且仅有一个正确每题有且仅有一
2、个正确 选项）选项） 1. 从（ ）年开始，NOIP 竞赛将不再支持 Pascal 语言。 A. 2020 B. 2021 C. 2022 D. 2023 2. 在 8 位二进制补码中，10101011 表示的数是十进制下的（ ）。 A. 43 B. -85 C. -43 D. -84 3. 分辨率为 1600x900、16 位色的位图，存储图像信息所需的空间为（ ）。 A. 2812.5KB B. 4218.75KB C. 4320KB D. 2880KB 4. 2017 年 10 月 1 日是星期日，1949 年 10 月 1 日是（ ） 。 A. 星期三 B. 星期日 C. 星期六 D.
3、 星期二 5. 设 G 是有 n 个结点、 m 条边 （n m） 的连通图， 必须删去 G 的 （ ） 条边， 才能使得 G 变成一棵树。 A. m n + 1 B. m - n C. m + n + 1 D. n m + 1 6. 若某算法的计算时间表示为递推关系式： T(N) = 2T(N / 2) + N log N T(1) = 1 则该算法的时间复杂度为（ ）。 A. O(N) B. O(N log N) C. O(N log2 N) D. O(N2) 7. 表达式 a * (b + c) * d 的后缀形式是（ ）。 A. a b c d * + * B. a b c + * d
4、* C. a * b c + * d D. b + c * a * d 8. 由四个不同的点构成的简单无向连通图的个数是（ ）。 A. 32 B. 35 C. 38 D. 41 上 海 上 海上 海 上 海 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 2 页，共 10 页 9. 将 7 个名额分给 4 个不同的班级，允许有的班级没有名额，有（ ）种不 同的分配方案。 A. 60 B. 84 C. 96 D. 120 10. 若 f0 = 0, f1 = 1, fn + 1 = (fn + fn - 1) / 2，则随着 i 的增大，fi将接近于 （ ）。 A. 1/2 B
5、. 2/3 C. 5 1 2 D. 1 11. 设 A 和 B 是两个长为 n 的有序数组， 现在需要将 A 和 B 合并成一个排好序的 数组，请问任何以元素比较作为基本运算的归并算法最坏情况下至少要做 （ ）次比较。 A. n 2 B. n log n C. 2n D. 2n-1 12. 在 n（n 3）枚硬币中有一枚质量不合格的硬币（质量过轻或质量过重）， 如果只有一架天平可以用来称重且称重的硬币数没有限制，下面是找出这枚 不合格的硬币的算法。请把 a-c 三行代码补全到算法中。 a. b. c. | 算法 Coin(A, n) 1. /3 2. 将 A 中硬币分成 X，Y，Z 三个集合，
6、使得| = | = ,| = 2 3. if () () /W(X), W(Y)分别为 X 或 Y 的重量 4. then _ 5. else _ 6. _ 7. if n2 then goto 1 8. if n=2 then 任取 A 中 1 枚硬币与拿走硬币比较，若不等，则它不合格； 若相等，则 A 中剩下的硬币不合格. 9. if n=1 then A 中硬币不合格 正确的填空顺序是（ ）。 A. b, c, a B. c, b, a C. c, a, b D. a, b, c 13. 有正实数构成的数字三角形排列形式如图所示。 第一行的数为 a11； 第二行的数从左到右依次为 a21
7、, a22； 第 n 行的数为 an1, an2, , ann。 从 a11 开始，每一行的数 aij只有两条边可以分别通向 下一行的两个数 a(i+1)j和 a(i+1)(j+1)。 用动态规划算 法找出一条从 a11向下通到 an1, an2, , ann中某 a11 a21 a22 a31 a32 a33 an1 an2 . ann 上 海 上 海上 海 上 海 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 3 页，共 10 页 个数的路径，使得该路径上的数之和达到最大。 令 Ci,j是从 a11到 aij的路径上的数的最大和，并且 Ci,0=C0,j=0, 则 Ci
8、,j=（ ）。 A. maxCi-1,j-1, Ci-1,j + aij B. Ci-1,j-1 + Ci-1,j C. maxCi-1,j-1, Ci-1,j + 1 D. maxCi,j-1,Ci-1,j + aij 14. 小明要去南美洲旅游，一共乘坐三趟航班才能到达目的地，其中第 1 个航班 准点的概率是 0.9，第 2 个航班准点的概率为 0.8, 第 3 个航班准点的概率为 0.9。如果存在第 i 个（i=1,2）航班晚点，第 i+1 个航班准点，则小明将赶不 上第 i+1 个航班，旅行失败；除了这种情况，其他情况下旅行都能成功。请 问小明此次旅行成功的概率是（ ）。 A. 0.5
9、 B. 0.648 C. 0.72 D. 0.74 15. 欢乐喷球：儿童游乐场有个游戏叫“欢 乐喷球”，正方形场地中心能不断喷出 彩色乒乓球， 以场地中心为圆心还有一 个圆形轨道， 轨道上有一列小火车在匀 速运动，火车有六节车厢。假设乒乓球 等概率落到正方形场地的每个地点， 包 括火车车厢。小朋友玩这个游戏时，只 能坐在同一个火车车厢里， 可以在自己 的车厢里捡落在该车厢内的所有乒乓 球，每个人每次游戏有三分钟时间，则 一个小朋友独自玩一次游戏期望可以 得到（ ）个乒乓球。假设乒乓球喷 出的速度为 2 个/秒，每节车厢的面积 是整个场地面积的 1/20。 A. 60 B. 108 C. 18
10、 D. 20 二二、不定不定项选择题（共项选择题（共 5 题，每题题，每题 1.5 分，共计分，共计 7.5 分分；每题有一个或多个正确；每题有一个或多个正确 选项，多选或少选均不得分选项，多选或少选均不得分） 1. 以下排序算法在最坏情况下时间复杂度最优的有（ ）。 A. 冒泡排序 B. 快速排序 C. 归并排序 D. 堆排序 2. 对于入栈顺序为 a, b, c, d, e, f, g 的序列，下列（ ）不可能是合法的出栈序 列。 A. a, b, c, d, e, f, g B. a, d, c, b, e, g, f C. a, d, b, c, g, f, e D. g, f, e,
11、 d, c, b, a 上 海 上 海上 海 上 海 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 4 页，共 10 页 3. 下列算法中，（ ）是稳定的排序算法。 A. 快速排序 B. 堆排序 C. 希尔排序 D. 插入排序 4. 以下是面向对象的高级语言的有（ ）。 A. 汇编语言 B. C+ C. Fortran D. Java 5. 以下和计算机领域密切相关的奖项有（ ）。 A. 奥斯卡奖 B. 图灵奖 C. 诺贝尔奖 D. 王选奖 三、三、问题求解（共问题求解（共 2 题，每题，每题题 5 分，共计分，共计 10 分）分） 1. 如右图所示，共有 13 个格子。对
12、任何一个格子进行一 次操作， 会使得它自己以及与它上下左右相邻的格子中 的数字改变（由 1 变 0，或由 0 变 1）。现在要使得所 有的格子中的数字都变为 0，至少需要_次操 作。 2. 如下图所示，A 到 B 是连通的。假设删除一条细的边的代价是 1，删除一条 粗的边的代价是 2，要让 A、B 不连通，最小代价是_（2 分），最 小代价的不同方案数是_（3 分）。（只要有一条删除的边不同，就 是不同的方案） 四四、阅读程序写结果（共、阅读程序写结果（共 4 题，每题题，每题 8 分，共计分，共计 32 分）分） 1. var t, m, n: longint; function g(m,
13、n, x: longint):longint; var i, ans:longint; begin 上 海 上 海上 海 上 海 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 5 页，共 10 页 ans := 0; if (n = 1) then exit(1); for i:=x to m div n do ans := ans + g(m - i, n - 1, i); exit(ans); end; begin read(m, n); writeln(g(m, n, 0); end. 输入：8 4 输出：_ 2. var n, i, j, x, y, nx, ny
14、: longint; a : array040,040 of longint; begin for i := 0 to 39 do for j := 0 to 39 do aij := 0; read(n); y := 0; x := n - 1; n := 2 * n - 1; for i := 1 to n*n do begin ayx := i; ny := (y - 1 + n) mod n; nx := (x + 1) mod n; if (y = 0) and (x = n - 1) or (anynx 0) then y := y + 1 else begin y := ny;
15、x := nx; end; end; for j := 0 to n-1 do write(a0j, ); writeln; end. 输入：3 输出：_ 上 海 上 海上 海 上 海 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 6 页，共 10 页 3. var n, s, i : longint; a, t : array0100005 of longint; procedure mergesort(l, r : longint); var mid, p, i, j : longint; begin if (l = r) then exit; mid := (l + r) div 2; p := l; i := l; j := mid + 1; mergesort(l, mid); mergesort(mid + 1, r); while (i 2) do begin cnt := 0; x := x + dx; y := y + dy; if (x = 1) or (x = n) then begin cnt := cnt + 1; dx := -dx; end; if (y = 1) or (y = m) then beg
