2017年(第十五届)绍兴市少儿信息学竞赛试卷

1、2017年（第十五届）绍兴市少儿 信息学竞赛试卷2017年（第十五届）绍兴市少儿信息学竞赛试卷第十五届绍兴市少儿信息学竞赛（PASCAL版试卷）第十五Ji维兴力少儿信息学意穿第十五届绍兴市少儿信息学竞赛初赛试题（小学但PASCAL语言二小时完成） 全部试题答案都要求写在答卷纸上，写在试卷上一律无效一、选择一个正确答案代码（A/B/C/D）,填入每题的括号内（每题2分，每题 只有一个正确答案，多选无分.共20分）1、以下不是獐冢公司开发的荻件般（）A.Access B.FrontpageC .Excel D.Acrobat Reader2、有一种利用打孔透光原理设计的筒易身份识别卡，每张卡在炒定

2、位置上有一排fl打孔位 读卡界根据透光检测判断，些孔位已打孔.，些未打孔,从而识第出卡的金码.如果要设计 一种供300人使用的身份卡.剜卡上的定孔位至少需要（）.A5个 B7个 C. 9个 D.10个3、字母-L的ASCH码值为99,则字母的十六进制ASCII眄是（）A. 66H B. 9CH C. 67H D. 9DH 4.在正浏览中,要查看量近访问过的网址.应年击下列按钮中的（）5、以下不于无线通信技术的是（）.A蓝牙 B.WiFi C.GPRS D.以太网6 . 一畏二又忖如图1所示，若采用顺序存储结构.即用 一螳数生元量存体该二叉轲中的结点（板结点的下标为I, 若基结点的下标为i.用其

3、左孩子位于下标2i处、右孩子位于下标（*1）处）,则图中所有结点的大下标为方（）A27B.6C.24D.26图 17 .下列做法符合信息安全的是（）用智能手机意扫描商家发来的二维码以便衣取优惠网上下或共享软件后先杳杀病毒再安装使用不随意打开陌生帐件中的exe格式的附件为方便记忆用自己的出生年月作为网上银行登录密码定期安装操作系统补丁并升级杀毒软件批准，绢兴市料努、主办：绍兴科技馆.绍兴市itira学行究段2017年4月）8、某算法流程图如图2所示：执行该算法，输出s的结果是（9、今有一空栈S,对下列待进栈的数据元素序列，b,c,def依次进行进枝，进栈,出栈，进 栈，进栈,出栈的操作，则此操作

4、完成后，栈S的栈II元素为（）.A. f B. c C. a D. b10、在有2016个结点的连通图中，其边数最少需要（）A. 2017 条B. 2016 条C. 2015 条 D. 2014 条二、根据要求回答问题：（5+5=10分）1、有M个一模一样的乒乓球，放到N个一样的盒子中，允许有的盒子空着不放，共有多少 种处放法？（用K表示）例如：M=7, N=3时，K=8：在这里认为（5, 1, 1）和（1, 5, 1）是同一种放法向：M=8, N=4 时，K=2、甲、乙、丙、丁四人同时参加一次信息学竞赛，赛后，他们四人预测名次的谈话如下, 甲：丙得第一名，我第三名.乙，我第一，丁第四, 丙：

5、丁第二，我第三 丁没有说话.当最后公布结果时，发现甲、乙、丙都只说对了一半，请你说出这次竞赛四人的名次.批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市教育教学研究院（2017年4月）-2-第十五届的兴市少儿信息学嵬交（PASCAL版试卷）三、阅读程序并写出运行结果(8+8+8+8+8=40分以1. var a9b:integer;begina:=3;b:=7：a:=a-b:b:=b+a：a:=b-a;writelnCa=，,a);writelnC b=' ,b);end.输出：2、vari, n, r, s, x: integer;beginreadln(n)：for i:=l

6、 to n dobeginreadln(x);s:=0：while x<>0 dobeginr:=x nod 2：if r=l then s:=s+l：x:=x div 2;end;<riteln(s);end;end输入：42100100066输出：3、var5.51: string;i,a, b, k: integer;beginreadln(s)：sl:=, you* ：k:=0;n:slength(s);b:=length(sl):for i:=l to a-b” doif copy(st if b)=sl then k:=k”;>riteln(k);end.输

7、入：It's easy. You get off the bus. Then you cross the road. You take the first road on the left. You walk for five minutes.4. var x, ytz: integer;procedure silly(x:integer:var y:integer);beginx:=7：y:=17:z:=18;writelnCx,1 ，y,' ，z)end;beginx:=l;y:=2：z:-3：silly (x» y);writein(x, * ' ,V,

8、' z)；end.，出，5. varn:longint： procedure change(n:longint)：varj：longint：beginif n=0 then exit;i:=n nod 8;j:=n div 8;change(j);write(i);end：beginreadln(n);change(n);end.入，2017*田:批准：绍兴市科福、绍兴市教育局主办：绍兴科技馆、绍兴康收育教学研究院（2017年4月）第十五居绍兴市少儿信息学竟看（PASCAL版试卷）四、完善程序（根据问题要求和已有程序，在程序空格处填入适当的语句或符号, 使程序完整.本题每3分，共30分

9、）1.某数据压缰方法描述如下，1）原始数据中，某数不为0且相铭无重复，压缩数据用速数据表示：2）原始数据中,某数为。且相邻无重发,压缩数据用两个数表示.第1个位0,第2个为0；3）原始数据中，某数据相邻有里复.压缩数据用3个数袅示：第1个位0.第2个为重复数的个数,第3个为该数本身；根据上述压缩方法,对应的演压缩方法示例如图3所示.小明编写了一个解压缩程序.功能如下：窗体加载时.自动读取压缩数据.依次存储在 数组元素Nl、a2. a3中,压缩数据的个数存储在变量n中.解压缩后的数据依 次存储在数组元素blh b2、b3中 编入格式：输入数据两行.第一行一个数n,代表压缩数据个数：第二行n个数字

10、,代表压缩数据. 怆出格式；输出文件仅有一行.为解压缩后的数据输入样例：625 0 0 0 7 78 输出样例,25 0 78 78 78 78 78 78 78实现上述功能程序如下,请在划线处填入合适代码.var a:arrayl. 1000 of integer;b:arrayL . 1000 of integer：pa.pb. n, firstdata, count* i:integer： beginreadln（n）;for >:! to n doread（ai）:pa：sl： ：while pa<=n dobeginfirstdata:=apa：批准：的兴市科的、招兴市教

11、H局主办，绍兴科技馆、的兴市教百教学研究脱（2017年4月）-5-if firstdataOO thenbegin bpb:«Si：pa:=pa*l： pbrpbl end else begin count:=a（pa>l; if count=0 then beginbpb:=O; pa:«： pb:=pb>l end else begin for i:=l to count do begin bpb:=apa*2; pb :=:end;pa:=pa*3：end：end;end;for i:=l to © do write（bi/ *）;end.2.小明同学编写如下功能的程序：从键盘检入任一个字符串和一个字符，要求从该字符 事中制除所有该字符.入格式， 两行.第一行是字符串（字符事至少有一个字符,不多于100个）.第二行是一个字符. 始出格式，两行.第一行为删除了所有应删除字符后的字符串,第二行是删除的字符个数.样例入：ASD Dfg fhdD样例愉出：AS fg fhd2为实现上述功能请在划线处境上合适代码.var ch9 s9 sl9 s2: string;len« i9 g:integer;beginreadln(s);readln(ch);；i:=l