2016年-第二十二届全国青少年信息学奥林匹克联赛初赛普及组Pascal

第二十二届全国青少年信息学奥林匹克联赛初赛普及组Pascal语言试题竞赛时间：2016年10月22日14：30-16：30一、单项选择题（共20题，每题1.5分，共计30分）1. 以下不是微软公司出品的软件是（ ）A. Powerpoint B. Word C. Excel D. Acrobat Reader2. 如果256种颜色用二进制编码来表示，至少需要（ ）位A. 6 B.7 C.8 D.93.以下不属于无线通信技术的是（ ）A. 蓝牙 B. WiFi C. GPRS D. 以太网4. 以下不是CPU生产厂商的是（ ）A. intel B. AMD C. Microsoft D. IBM5. 以下不是存储设备的是（ ）A. 光盘 B. 磁盘 C. 固态硬盘 D. 鼠标6. 如果开始时计算机处于小写输入状态，现在有一只小老鼠反复按照CapsLock、字母键A、字母键S和字母键D的顺序循环按键，即CapLock、A、S、D、CapsLock、A、S、D、，屏幕上输出的第81个字符是字母（ ）A. A B. S C. D D.a7. 二进制00101100和00010101的和是（ ）A. 00101000 B. 01000001 C. 01000100 D. 001110008. 而二进制小数0.1相等的八进制是（ ）A. 0.8 B. 0.4 C. 0.2 D. 0.19. 以下是32位机器和64位机器的区别的是（ ）A. 显示器不同 B. 硬盘大小不同 C. 寻址空间不同 D. 输入法不同10. 以下关于字符串的判定语句中正确的是（ ）A. 字符串是一种特殊的线性表 B. 串的长度必须大于零C. 字符串不可以用数组来表示 D. 空格字符组成的串就是空串11. 一颗二叉树如右图所示，若采用顺序存储结构，即用一维数组元素存储该二叉树中的结点（根结点的下标为1，若某结点的下标为i，则其左孩子位于下标2i处，右孩子位于下标（2i+1）处），则图中所有结点的最大下标为（ ）A. 6 B.10 C.12 D. 1512. 若有如下程序段，其中s、a、b、c均已定义为整型变量，且a、c均已赋值（c大于0）.s := a;for b:=1 to c do s:=s+1;则与上述程序段修改s值的功能等价的赋值语句是（ ）A. s:=a+b B. s:=a+c; C. s:=s+c; D. s:=b+c;13. 有以下程序：vark,n :longint;begin k:=4; n:=0; while nk do begin inc(n); for n mod 3 0 then continue; dec(k);end;writeln(k, , ,n);end.程序运行后的输出结果是（ ）A. 2,2 B. 2,3 C. 3,2 D. 3,314. 给定含有n个不同的数的数组L=。如果L中存在xi(1in)，使得x1x2xi-1xi+1xn,则L是单峰的，并称xi是L的“峰顶”。现在已知L是单峰的，请把a-c三行代码补全到算法中使得算法正确找到L的峰顶。a. Search(k+1,n)b. Search(1,k-1)c. return LkSearch(1,n)1. k := n/22. if Lk Lk-1 and Lk Lk+13. then _4. else if Lk Lk-1 and LkLk+15. then _6. else _正确的填空顺序是（ ）A. c,a,b B. c,b,a C. a,b,c D. b,a,c15. 设简单无向图G有16条边且每个顶点的度数都是2，则图G有（ ）个顶点A.10 B. 12 C. 8 D. 1616. 有7个一模一样的苹果，放到3个一样的盘子中，一共有（ ）种方法。A. 7 B. 8 C.21 D. 3717. 下图表示一个果园灌溉系统，有A,B,C,D四个阀门，每个阀门可以打开或关上，所有管道粗细相同，以下设置阀门的方法中，可以让果树浇上水的是（ ）A. B打开，其它都关上 B. AB都打开，CD都关上C. A打开，其它都关上 D. D打开，其它都关上18. Lucia和她的朋友以及朋友的朋友都在某社交网站上注册了帐号，下图是他们之间的关系图，两个人之间有边相连代表这两个人是朋友，没有边相连代表不是朋友。这个社交网站的规则是：如果某人A向他（她）的朋友B分享了某张相片，那么B就可以对该相片进行评论；如果B评论了该相片，那么他（她）的所有朋友都可以看见这个评论以及被评论的相片，但是不能对该相片进行评论（除非A也向他（她）分享了该相片）。现在Lucia已经上传了一张相片，但是她不想让Jacob看见这张相片，那么她可以向以下朋友（ ）分享该相片。A. Dana, Michael, Eve B. Dana, Eve, MonicaC. Michael, Eve, Jacob D. Micheal, Peter, Monica19. 周末小明和爸爸妈妈三个人一起想动手做三道菜。小明负责洗菜，爸爸负责切菜，妈妈负责炒菜。假设做每道菜的顺序都是：先洗菜10分钟，然后切菜10分钟，最后炒菜10分钟。那么做一道菜需要30分钟。注意：两道不同的菜的相同步骤不可以同时进行。例如第一道菜和第二道菜不能同时洗，也不能同时切。那么做完三道菜的最短时间需要（ ）分钟。A. 90 B. 60 C. 50 D.4020. 参加NOI比赛，以下不同带入考场的是（ ）A. 钢笔 B. 适量的衣服 C. U盘 D. 铅笔二、问题求解（每题5分，共计10分）1. 从一个44的棋盘（不可旋转）中选取不在同一行也不在同一列上的两个方格，共有_种方法。2、约定二叉树的根节点高度为1，一颗结点数为2016的二叉树最少有_个叶子结点；一颗结点数为2016的二叉树最小的高度值是_.三、阅读程序写结果（共4题，每题8分，共计32分）1. vartmp, max, min, sum, count:longint; begin count := 0; read(tmp); if tmp=0 then exit; max:= tmp; min:=tmp; sum:=tmp; inc(count); while tmp 0 do begin read(tmp); if tmp 0 then begin inc(sum, tmp); inc(count): if tmp max then max := tmp; if tmp0 do begin dec(i); x:=i mod 8; if x=1 then inc(y);end;writeln(y);end.输出：_3、var a: array1.6 of longint=(1,2,3,4,5,6); pi,pj,t,i:longint;begin pi := 1; pj:=1 6; while pi=a) and (s1i=a) and (2i 2 then writeln()else writeln();end.输出：_四、完善程序（共2题，每题14分，共计28分）1. （读入整数）请完善下面的程序，使得程序能够读入两个longint范围内的整数，并将这两个整数分别输出，每行一个。（第一、五空2.5分，其余3分）输入的整数之间和前后只会出现空格或者回车。输入数据保证合法。例如：输入： 123 -789输出： 123 -789var a,b:longint;function readint:longint;var num:longint ; /存储读取到的整数 negative:longint; /负数标识 c:char; /存储当前读取到的字符begin num:=0; negative := 0; read(c); while(c9) and (c-) do _j_; if (c=-) then negative :=1 else _k_; read(c); while _l_ do begin _m_; read(c);end;if negative =1 then _n_;exit(num);end;begin a:= reading(); b:=readint(); writeln(a); writeln(b);end.2. (郊游活动) 有n名同学参加学校组织的郊游活动，已知学校给这n名同学的郊游总经费为A元，与此同时第i位同学自己携带了Mi元。为了方便郊游，活动地点提供B(=n)辆自行车供人租用，租用第j辆自行车的价格为Cj元，每位同学可以使用自己携带的钱或者学校的郊游经费，为了方便帐务管理，每位同学只能为自己租用自行车，且不会借钱给他人，他们想知道最多有多少位同学能够租用到自行车（第四、五空2.5分，其余3分） 本题采用二分法，对于区间l,r，我们去中间点min并判断租用到自行车的人数能否达到mid，判断的过程是利用贪心算法实现的。constmaxn = 1000000;typearr = array1.MAXN of longint;varn,B,A,l,r,ans,min,i:longint;M,C:arr;function check(nn:longint):boolean;var count,i,j:longint;begin count:=0; i:=_ j_; j:=1; while i=n do begin if _k_ then inc(count,Cj-Mi); inc(i); inc(j);end;exit(_l_);end;procedure sort(var a:arr; l:longint; r:longint);var i,j,x,y:longint;begin i:=l; j:=r; x:=a(l+r) div 2; while i= j do begin while ai x do dec(j); if i=j then begin y:=ai;ai:=aj;aj:=y; inc(i); dec(j); end; end; if ir then sort(a,i,r); if lj then sort(a,l,j);end;begin read(n,B,A); for i:=1 to n do read(Mi); for i:=1 to B do read(Ci);sort(M,1,n);sort(C,1,B);l:=0;r:=n;while lr dobegin min := (l+r) div 2; if _m_ then begin ans:=mid; l:=mid+1; end else r:=_n_;end;writeln(ans);end.