NOIP2016普及组Pascal试题

上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第1页，共10页第二十二届全国青少年信息学奥林匹克联赛初赛普及组Pascal语言试题竞赛时间：2016年10月22日14:30~16:30选手注意：试题纸共有10页，答题纸共有2页，满分100分。请在答题纸上作答，写在试题纸上的一律无效。不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。一、单项选择题（共20题，每题1.5分，共计30分；每题有且仅有一个正确选项）1.以下不是微软公司出品的软件是（）。A.PowerpointB.WordC.ExcelD.AcrobatReader2.如果256种颜色用二进制编码来表示，至少需要（）位。A.6B.7C.8D.93.以下不属于无线通信技术的是（）。A.蓝牙B.WiFiC.GPRSD.以太网4.以下不是CPU生产厂商的是（）。A.IntelB.AMDC.MicrosoftD.IBM5.以下不是存储设备的是（）。A.光盘B.磁盘C.固态硬盘D.鼠标6.如果开始时计算机处于小写输入状态，现在有一只小老鼠反复按照CapsLock、字母键A、字母键S和字母键D的顺序循环按键，即CapsLock、A、S、D、CapsLock、A、S、D、……，屏幕上输出的第81个字符是字母（）。A.AB.SC.DD.a7.二进制数00101100和00010101的和是（）。A.00101000B.01000001C.01000100D.001110008.与二进制小数0.1相等的八进制数是（）。A.0.8B.0.4C.0.2D.0.1上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第2页，共10页9.以下是32位机器和64位机器的区别的是（）。A.显示器不同B.硬盘大小不同C.寻址空间不同D.输入法不同10.以下关于字符串的判定语句中正确的是（）。A.字符串是一种特殊的线性表B.串的长度必须大于零C.字符串不可以用数组来表示D.空格字符组成的串就是空串11.一棵二叉树如右图所示，若采用顺序存储结构，即用一维数组元素存储该二叉树中的结点（根结点的下标为1，若某结点的下标为i，则其左孩子位于下标2i处、右孩子位于下标(2i+1)处），则图中所有结点的最大下标为（）。A.6B.10C.12D.1512.若有如下程序段，其中s、a、b、c均已定义为整型变量，且a、c均已赋值（c大于0）。s:=a;forb:=1tocdos:=s+1;则与上述程序段修改s值的功能等价的赋值语句是（）。A.s:=a+b;B.s:=a+c;C.s:=s+c;D.s:=b+c;13.有以下程序：vark,n:longint;begink:=4;n:=0;whilenkdobegininc(n);ifnmod30thencontinue;dec(k);end;writeln(k,',',n);end.程序运行后的输出结果是（）。A.2,2B.2,3C.3,2D.3,314.给定含有n个不同的数的数组L=x1,x2,...,xn。如果L中存在xi（1in）使得x1x2...xi-1xixi+1...xn，则称L是单峰的，并称xi是L的上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第3页，共10页有水有水果树“峰顶”。现在已知L是单峰的，请把a-c三行代码补全到算法中使得算法正确找到L的峰顶。a.Search(k+1,n)b.Search(1,k-1)c.returnL[k]Search(1,n)1.k←⌊n/2⌋2.ifL[k]L[k-1]andL[k]L[k+1]3.then__________4.elseifL[k]L[k-1]andL[k]L[k+1]5.then__________6.else__________正确的填空顺序是（）。A.c,a,bB.c,b,aC.a,b,cD.b,a,c15.设简单无向图G有16条边且每个顶点的度数都是2，则图G有（）个顶点。A.10B.12C.8D.1616.有7个一模一样的苹果，放到3个一样的盘子中，一共有（）种放法。A.7B.8C.21D.3717.下图表示一个果园灌溉系统，有A、B、C、D四个阀门，每个阀门可以打开或关上，所有管道粗细相同，以下设置阀门的方法中，可以让果树浇上水的是（）。A.B打开，其他都关上B.AB都打开，CD都关上C.A打开，其他都关上D.D打开，其他都关上上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第4页，共10页18.Lucia和她的朋友以及朋友的朋友都在某社交网站上注册了账号。下图是他们之间的关系图，两个人之间有边相连代表这两个人是朋友，没有边相连代表不是朋友。这个社交网站的规则是：如果某人A向他（她）的朋友B分享了某张照片，那么B就可以对该照片进行评论；如果B评论了该照片，那么他（她）的所有朋友都可以看见这个评论以及被评论的照片，但是不能对该照片进行评论（除非A也向他（她）分享了该照片）。现在Lucia已经上传了一张照片，但是她不想让Jacob看见这张照片，那么她可以向以下朋友（）分享该照片。A.Dana,Michael,EveB.Dana,Eve,MonicaC.Michael,Eve,JacobD.Micheal,Peter,Monica19.周末小明和爸爸妈妈三个人一起想动手做三道菜。小明负责洗菜、爸爸负责切菜、妈妈负责炒菜。假设做每道菜的顺序都是：先洗菜10分钟，然后切菜10分钟，最后炒菜10分钟。那么做一道菜需要30分钟。注意：两道不同的菜的相同步骤不可以同时进行。例如第一道菜和第二道的菜不能同时洗，也不能同时切。那么做完三道菜的最短时间需要（）分钟。A.90B.60C.50D.4020.参加NOI比赛，以下不能带入考场的是（）。A.钢笔B.适量的衣服C.U盘D.铅笔二、问题求解（共2题，每题5分，共计10分；第一题全部答对得5分，没有部分分；第二题第一空2分，第二空3分）1.从一个4×4的棋盘（不可旋转）中选取不在同一行也不在同一列上的两个方格，共有_________种方法。上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第5页，共10页2.约定二叉树的根节点高度为1。一棵结点数为2016的二叉树最少有_________个叶子结点；一棵结点数为2016的二叉树最小的高度值是_________。三、阅读程序写结果（共4题，每题8分，共计32分）1.vartmp,max,min,sum,count:longint;begincount:=0;read(tmp);iftmp=0thenexit;max:=tmp;min:=tmp;sum:=tmp;inc(count);whiletmp0dobeginread(tmp);iftmp0thenbegininc(sum,tmp);inc(count);iftmpmaxthenmax:=tmp;iftmpminthenmin:=tmp;end;end;writeln(max,',',min,',',sumdivcount);end.输入:12345607输出：_________2.vari,x,y:longint;begini:=100;x:=0;y:=0;whilei0do上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第6页，共10页begindec(i);x:=imod8;ifx=1theninc(y);end;writeln(y);end.输出：_________3.vara:array[1..6]oflongint=(1,2,3,4,5,6);pi,pj,t,i:longint;beginpi:=1;pj:=6;whilepipjdobegint:=a[pi];a[pi]:=a[pj];a[pj]:=t;inc(pi);dec(pj);end;fori:=1to6dowrite(a[i],',');writeln;end.输出：_________4.constmax=100;vari,length1,length2:longint;s1,s2:string[max];begins1:='Ihaveadream.';s2:='IHaveADream.';length1:=length(s1);length2:=length(s2);fori:=1tolength1do上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第7页，共10页if(s1[i]='a')and(s1[i]='z')thens1[i]:=chr(ord(s1[i])-ord('a')+ord('A'));fori:=1tolength2doif(s2[i]='a')and(s2[i]='z')thens2[i]:=chr(ord(s2[i])-ord('a')+ord('A'));ifs1=s2thenwriteln('=')elseifs1s2thenwriteln('')elsewriteln('');end.输出：_________四、完善程序（共2题，每题14分，共计28分）1.（读入整数）请完善下面的程序，使得程序能够读入两个longint范围内的整数，并将这两个整数分别输出，每行一个。（第一、五空2.5分，其余3分）输入的整数之间和前后只会出现空格或者回车。输入数据保证合法。例如：输入：123-789输出：123-789vara,b:longint;functionreadint:longint;varnum:longint;//存储读取到的整数negative:longint;//负数标识c:char;//存储当前读取到的字符beginnum:=0;negative:=0;read(c);while((c'0')or(c'9'))and(c'-')do(1);if(c='-')thennegative:=1上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第8页，共10页else(2);read(c);while(3)dobegin(4);read(c);end;ifnegative=1then(5);exit(num);end;begina:=readint();b:=readint();writeln(a);writeln(b);end.2.（郊游活动）有n名同学参加学校组织的郊游活动，已知学校给这n名同学的郊游总经费为A元，与此同时第i位同学自己携带了Mi元。为了方便郊游，活动地点提供B(≥n)辆自行车供人租用，租用第j辆自行车的价格为Cj元，每位同学可以使用自己携带的钱或者学校的郊游经费，为了方便账务管理，每位同学只能为自己租用自行车，且不会借钱给他人，他们想知道最多有多少位同学能够租用到自行车。（第四、五空2.5分，其余3分）本题采用二分法。对于区间[l,r]，我们取中间点mid并判断租用到自行车的人数能否达到mid。判断的过程是利用贪心算法实现的。constmaxn=1000000;typearr=array[1..MAXN]oflongint;varn,B,A,l,r,ans,mid,i:longint;M,C:arr;functioncheck(nn:longint):boolean;varcount,i,j:longint;begincount:=0;i:=(1);上海上海上海上海CCFNOIP2016初赛普及组Pascal语言试题第9页，共10页j:=1;whilei=ndobeginif(2)theninc(count,C[j]-M[i]);inc(i);inc(j);end;exit((3));end;proceduresort(vara:arr;l:longint;r:longint);vari,j,x,y:longint;begini:=l;j:=r;x:=a[(l+r)di