《noip2016提高组pascal试题》由会员分享，可在线阅读，更多相关《noip2016提高组pascal试题（13页珍藏版）》请在金锄头文库上搜索。
1、江 西 江 西江 西 江 西 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 1 页，共 13 页 第二十二届全国青少年信息学奥林匹克联赛初赛 提高组 Pascal 语言试题 竞赛时间：2016 年 10 月 22 日 14:3016:30 选手选手注意：注意： 试题纸共有 13 页，答题纸共有 2 页，满分 100 分。请在答题纸上作答，写 在试题纸上的一律无效。 不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资 料。 一、单项选择题（共一、单项选择题（共 15 题，每题题，每题 1.5 分，共计分，共计 22.5 分分；每题有且仅有一个正确每题有且仅有一
2、个正确 选项）选项） 1. 以下不是微软公司出品的软件是（ ）。 A. Powerpoint B. Word C. Excel D. Acrobat Reader 2. 如果开始时计算机处于小写输入状态， 现在有一只小老鼠反复按照 CapsLock、 字母键 A、字母键 S 和字母键 D 的顺序来回按键，即 CapsLock、A、S、D、 S、A、CapsLock、A、S、D、S、A、CapsLock、A、S、D、S、A、， 屏幕上输出的第 81 个字符是字母（ ）。 A. A B. S C. D D. a 3. 二进制数 00101100 和 01010101 异或的结果是（ ）。 A. 0
3、0101000 B. 01111001 C. 01000100 D. 00111000 4. 与二进制小数 0.1 相等的八进进制数是（ ） 。 A. 0.8 B. 0.4 C. 0.2 D. 0.1 5. 以比较作为基本运算，在 N 个数中找最小数的最少运算次数为（ ）。 A. N B. N-1 C. N2 D. log N 6. 表达式 a*(b+c)-d 的后缀表达形式为（ ）。 A. abcd*+- B. abc+*d- C. abc*+d- D. -+*abcd 7. 一棵二叉树如右图所示， 若采用二叉树链表存储该二叉 树（各个结点包括结点的数据、左孩子指针、右孩子指 针） 。 如果
4、没有左孩子或者右孩子， 则对应的为空指针。 那么该链表中空指针的数目为（ ）。 A. 6 B. 7 C. 12 D. 14 江 西 江 西江 西 江 西 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 2 页，共 13 页 8. G 是一个非连通简单无向图，共有 28 条边，则该图至少有（ ）个顶点。 A. 10 B. 9 C. 8 D. 7 9. 某计算机的 CPU 和内存之间的地址总线宽度是 32 位（bit），这台计算机最 多可以使用（ ）的内存。 A. 2GB B. 4GB C. 8GB D. 16GB 10. 有以下程序： var k, n: longint; be
5、gin k := 4; n := 0; while n 0 then continue; dec(k); end; writeln(k, , n); end. 程序运行后的输出结果是（ ）。 A. 2,2 B. 2,3 C. 3,2 D. 3,3 11. 有 7 个一模一样的苹果，放到 3 个一样的盘子中，一共有（ ）种放法。 A. 7 B. 8 C. 21 D. 37 12. Lucia 和她的朋友以及朋友的朋友都在某社交网站上注册了账号。 下图是他们 之间的关系图，两个人之间有边相连代表这两个人是朋友，没有边相连代表 不是朋友。这个社交网站的规则是：如果某人 A 向他（她）的朋友 B 分享
6、了 某张照片，那么 B 就可以对该照片进行评论；如果 B 评论了该照片，那么他 （她）的所有朋友都可以看见这个评论以及被评论的照片，但是不能对该照 片进行评论（除非 A 也向他（她）分享了该照片）。现在 Lucia 已经上传了 江 西 江 西江 西 江 西 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 3 页，共 13 页 一张照片， 但是她不想让 Jacob 看见这张照片， 那么她可以向以下朋友 （ ） 分享该照片。 A. Dana, Michael, Eve B. Dana, Eve, Monica C. Michael, Eve, Jacob D. Micheal,
7、Peter, Monica 13. 周末小明和爸爸妈妈三个人一起想动手做三道菜。小明负责洗菜、爸爸负责 切菜、妈妈负责炒菜。假设做每道菜的顺序都是：先洗菜 10 分钟，然后切 菜 10 分钟，最后炒菜 10 分钟。那么做一道菜需要 30 分钟。注意：两道不 同的菜的相同步骤不可以同时进行。例如第一道菜和第二道的菜不能同时洗， 也不能同时切。那么做完三道菜的最短时间需要（ ）分钟。 A. 90 B. 60 C. 50 D. 40 14. 假设某算法的计算时间表示为递推关系式 T(n) = 2T( 4) + T(1) = 1 则算法的时间复杂度为（ ）。 A. O() B. O() C. O( l
8、og ) D. O(2) 15. 给定含有 n 个不同的数的数组 L=。 如果 L 中存在 xi（1 xi+1 . xn， 则称 L 是单峰的，并称 xi是 L 的 “峰顶”。现在已知 L 是单峰的，请把 a-c 三行代码补全到算法中使得算法 正确找到 L 的峰顶。 a. Search(k+1, n) b. Search(1, k-1) c. return Lk Search(1, n) 1. kn/2 2. if Lk Lk-1 and Lk Lk+1 3. then _ 4. else if Lk Lk-1 and Lk :) do begin ai, k := ci, j; k := k
9、 + 1; inc(j); end; leni, 1 := k - 1; ai, k := chr(0); k := 1; for j := j + 1 to total_leni do begin bi, k := ci, j; k := k + 1; end; leni, 2:=k-1; bi, k:=chr(0); k := 1; end; for i := 1 to n do begin if (leni, 1 = leni, 2) then write(NO,) else begin k := 1; for j := 1 to leni, 2 do begin if ai, k =
10、bi, j then k := k + 1; if k leni, 1 then break; end; if j = leni, 2 then write(NO,) else write(YES,); 江 西 江 西江 西 江 西 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 7 页，共 13 页 end; end; writeln; end. 输入：3 AB:ACDEbFBkBD AR:ACDBrT SARS:Severe Atypical Respiratory Syndrome 输出：_ （注：输入各行前后均无空格） 3. function lps(seq: str
11、ing; i, j: longint): longint; var len1, len2: longint; begin if i = j then exit(1); if i j then exit(0); if (seqi = seqj) then exit(lps(seq, i + 1, j - 1) + 2); len1 := lps(seq, i, j - 1); len2 := lps(seq, i + 1, j); if len1 len2 then exit(len1) else exit(len2); end; var n: longint; seq: string; beg
12、in seq := acmerandacm; n := length(seq); writeln(lps(seq, 1, n); end. 输出：_ 4. var map: array1100, 1100 of longint; 江 西 江 西江 西 江 西 CCF NOIP2016 初赛提高组 Pascal 语言试题 第 8 页，共 13 页 sum, weight, visit: array1100 of longint; n, i, x, y, ans, ansn: longint; procedure dfs(node: longint); var v, maxw: longint;
13、begin visitnode := 1; sumnode := 1; maxw := 0; for v := 1 to n do begin if (mapnodev = 0) or (visitv maxw then maxw := sumv; end; if n - sumnode maxw then maxw := n - sumnode; weightnode := maxw; end; begin fillchar(map, sizeof(map), 0); fillchar(sum, sizeof(sum), 0); fillchar(weight, sizeof(weight)
14、, 0); fillchar(visit, sizeof(visit), 0); readln(n); for i := 1 to n - 1 do begin read(x,y); mapx,y:=1; mapy,x:=1; end; dfs(1); ans := n; ansn := 0; for i := 1 to n do if weighti x do dec(j); if (1) then begin temp := ranki; ranki := rankj; rankj := temp; inc(i); dec(j); end; end; if i 0 then shorter
15、 := heighti - heightpreviousi; if nexti 1)个城市因地震而导致交通中断时， 首都到多少个城市的最短路径长度会 发生改变。如果因为无法通过第 i 个城市而导致从首都出发无法到达某个城 市，也认为到达该城市的最短路径长度改变。 对于每一个城市 i，假定只有第 i 个城市与外界交通中断，输出有多少个 城市会因此导致到首都的最短路径长度改变。 我们采用邻接表的方式存储图的信息，其中 headx表示顶点 x 的第一条 边的编号，nexti表示第 i 条边的下一条边的编号，pointi表示第 i 条边的终 点，weighti表示第 i 条边的长度。（第一空 2 分，其余 3 分） const maxn = 6000; maxm = 100000; inf = 2147483647; var next, point, weight: array1maxm of longint; head, dist, visit: array1maxn of longint; queue: array0maxn - 1 of longint; n, m, i, j, s, t, total, x, y, z, answer: longint; procedure link(x, y, z: longint); begin inc(total); nexttotal
