NOIP普及组初赛及答案Pascal.docx

1、NOIP普及组初赛及答案Pascal第十八届全国青少年信息学奥林匹克联赛初赛（普及组Pascal语言试题）选手注意：l试题纸共有10页，答题纸共有2页，满分100分。请在答题纸上作答，写在试题纸上一律无效。l不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料一、单项选择题（共20题，每题1.5分，共计30分；每题且仅有一个正确选项）1计算机如果缺少（），将无法正常启动。A内存B鼠标CU盘D摄像头2（）是一种先进先出的线性表。A栈B队列C哈希表（散列表）D二叉树3目前计算机芯片（集成电路）制造的主要原料是（），它是一种可以在沙子中提炼出的物质。A硅B铜C锗D铝4十六进制数9A在

2、（）进制下是232。A四B八C十5（）不属于操作系统。AWindowsBDOSD十二CPhotoshopDNOI Linux6如果一棵二叉树的中序遍历是BAC，那么它的先序遍历不可能是（）。AABCBCBACACBDBAC7目前个人电脑的（）市场占有率最靠前的厂商包括Intel、AMD等公司。A显示器BCPUC内存D鼠标8使用冒泡排序对序列进行升序排列，每执行一次交换操作系统将会减少1个逆序对，因此序列5，4，3，2，1需要执行（）次操作，才能完成冒泡排序。A0B5C10D1591946年诞生于美国宾夕法尼亚大学的ENIAC属于（）计算机。A电子管B晶体管C集成电路D超大规模集成电路10无论是

3、TCP/IP模型还是OSI模型，都可以视为网络的分层模型，每个网络协议都会被归入某一层中。如果用现实生活中的例子来比喻这些“层”，以下最恰当的是（）。A中国公司的经理与波兰公司的经理交互商业文件B军队发布命令C国际会议中，每个人都与他国地位对等的人直接进行会谈D体育比赛中，每一级比赛的优胜者晋级上一级比赛11矢量图（VectorImage）图形文件所占的贮存空间比较小，并且无论如何放大、缩小或旋转等都不会失真，是因为它（）。A记录了大量像素块的色彩值来表示图像B用点、直线或者多边形等基于数学方程的几何图元来表示图像C每个像素点的颜色信息均用矢量表示D把文件保存在互联网，采用在线浏览的方式查看图

4、像12如果一个栈初始时为空，且当前栈中的元素从栈顶到栈底依次为a，b，c，另有元素d已经出栈，则可能的入栈顺序是（）。Aa, d, c, bBb, a, c, dCa, c, b, dDd, a, b, c13（）是主要用于显示网页服务器或者文件系统的HTML文件的内容，并让用户与这些文件交互的一种软件。A资源管理器B浏览器C电子邮件D编译器14（）是目前互联网上常用的E-mail服务协议。AHTTPBFTPCPOP3DTelnet15（）就是把一个复杂的问题分成两个或更多的相同类似的子问题，再把子问题分解成更小的子问题直到最后的子问题可以简单地直接求解。而原问题的解就是子问题解的并。A动态规

5、划B贪心C分治D搜索16地址总线的位数决定了CPU可直接寻址的内存空间大小，例如地址总线为16位，其最大的可寻址空间为64KB。如果地址总线是32位，则理论上最大可寻址的内存空间为（）。A128KBB1MBC1GBD4GB17蓝牙和Wi-Fi都是（）设备。A无线广域网B无线城域网C无线局域网D无线路由器18在程序运行过程中，如果递归调用的层数过多，会因为（）引发错误。A系统分配的栈空间溢出B系统分配的堆空间溢出C系统分配的队列空间溢出D系统分配的链表空间溢出19原字符串中任意一段连续的字符所组成的新字符串称为子串。则字符“AAABBBCCC”共有（）个不同的非空子串。A3B12C36D4520

6、仿生学的问世开辟了独特的科学技术发展道路。人们研究生物体的结构、功能和工作原理，并将这些原理移植于新兴的工程技术中。以下关于仿生学的叙述，错误的是（）A由研究蝙蝠，发明雷达B由研究蜘蛛网，发明因特网C由研究海豚，发明声纳D由研究电鱼，发明伏特电池二、问题求解（共2题，每题5分，共计10分）1如果平面上任取n个整点（横纵坐标都是整数），其中一定存在两个点，它们连线的中点也是整点，那么n至少是_。2在NOI期间，主办单位为了欢迎来自各国的选手，举行了盛大的晚宴。在第十八桌，有5名大陆选手和5名港澳选手共同进膳。为了增进交流，他们决定相隔就坐，即每个大陆选手左右旁都是港澳选手，每个港澳选手左右旁都是

7、大陆选手。那么，这一桌一共有_种不同的就坐方案。注：如果在两个方案中，每个选手左右相邻的选手相同，则视为同一种方案。三、阅读程序写结果。（共4题，每题8分，共计32分）1var a,b,c,d,e,ans: integer;beginreadln(a,b,c);d:=a+b;e:=b+c;ans:=d+e;writeln(ans);end输入：1 2 5输出：_2var n,i,ans: integer;begin输入：18输出：_3varn,i,j: integer;a: array1100,1100 of integer;readln(n);ans:= 0;for i:= 1 to n d

8、oif (n mod i)= 0 then ans := ans+1;writeln(ans);endfunction solve(x,y:integer): integer;var u,v: integer;beginif x = n thenbeginsolve:= ax,y;exit;end;u:= solve(x+1,y);v:= solve(x+1,y+1);if uv then solve := ax,y + uelse solve := ax,y + v;end;beginread(n);for i:= 1 to n dofor j:=1 to i do read(ai,j);w

9、riteln(solve(1,1);end输入：52-1 42 -1 -2-1 6 4 03 2 -1 5 8输出：_4varn,ans,i,j: integer;s: string;Function get(i: integer) : char;beginif i= n then get:= sielse get:=si-n;end;beginreadln(s);n:= length (s);ans:= 1;for i:= 2 to n dobeginfor j:=0 to n-1 doif get(i+j) get(ans+j) then break;end;for j:=0 to n-1

10、 do write(get(ans+j);writeln;end输入：CBBADADA输出：_四、完善程序（前2空每空2分，后8空每空3分，共计28分）1（坐标统计）输入n个整点在平面上的坐标。对于每个点，可以控制所有位于它左下方的点（即x、y坐标都比它小），它可以控制的点的数目称为“战斗力”。依次输出每个点的战斗力，最后输出战斗力最高的点的编号（如果若干个点的战斗力并列最高，输出其中最大的编号）。const SIZE= 100;varx,y,f:array1SIZE of integer;n,i,j,max_f,ans: integer;readln(n);for i:=1 to n do

11、readln (xi,yi);max_f :=0;for i:=1 to n dobeginfi:=；for j:= 1 to n dobeginif(xj xi) and () then;end;ifthenbeginmax_f:= fi;beginend;end;for i:= 1 to n do writeln(fi);writeln(ans);end2（排列数）输入两个正整数n，m（1n20,1mn），在1n中任取m个数，按字典序从小到大输出所有这样的排列。例如：输入：3 2输出：1 21 32 12 33 13 2const SIZE：=25;varused: array1SIZE

12、of boolean;data: array1SIZE or integer;n,m,i,j,k : integer;flag: boolean;beginreadln(n,m);fillchar(used,sizeof(used), false);for i:=1 to m dobegindatai:=i;usedi:= true;end;flag:= true;while flag dobeginfor i:= 1 to m-1 do write(datai, );writeln(datam);flag:=;for i:=m downto 1 dobegin;for j:= datai+1

13、 to n doif usedj= false thenbeginusedj:= true;datai:=;flag:= true;break;end;if flag thenbeginfor k:=i+1 to m dofor j:=1 todoif usedj= false thenbegindatak:= j;usedj:= true;break;end;end;end;end参考答案一、单项选择题（共20题，每题15分，共计30分；每题且仅有一个正确选项）1A11B2B12D3A13B4B14C5C15C6C16D7B17C8C18A9A19C10A20B二、问题求解（共2题，每题5分，共计10分）1522880三、阅读程序写结果。（共4题，每题8分，共计32分）10614ACBBADAD四、完善程序（前2空每空2分，后8空每空3分，共计28分）1、0yj1）and (fifi-1)ans:=max_f2、falseuseddatai:=flasejnbreak