第十一届绍兴市少儿信息学竞赛初赛试题

第十一届绍兴市少儿信息学竞赛 第28届宁波少儿信息学竞赛 （小学 PASCAL）第一届绍兴、宁波少儿信息学竞赛卷一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，共20分）1.网上阅卷，是通过网络对考生的电子图像进行评阅的阅卷方式。下列设备中，最适合采集答卷图案的是( )。 A) 显示器 B)扫描仪 C)打印机 D)键盘2十进制数71转换成二进制数是（ ）。 A）（）2 B) （）2 C) （）2 D) （）23下列做法中，能增强计算机系统安全性的有( )。 安装正版杀毒软件，并定期对系统进行病毒扫描 将复杂的管理员密码修改为相对简单的“” 安装防火墙软件，防御外部攻击 及时进行软件更新，修复系统高位漏洞 A) B) C) D) 4对一个字符串，每次删除一个数字，按原来顺序变成一个新数，使新数最小，共删了5次，所的最小新数218，问第4次是删那一个数字（ ）。A) 6 B) 5 C)4 D）75地面上有标号为A、B、C的三根细柱，一开始A柱上穿有5个直径相同中间有孔的圆盘，从上到下依次编号为1、2、3、4、5，将A柱子上的盘子经过B柱移入C柱，也可以在B柱上暂存，但最终都要移入C柱。每次只能移动一个盘（不能多个叠在一起移）。那么C柱上的盘子从下到上编号不可能出现的是（ ）。A）1 2 3 4 5 B）5 4 3 2 1 C）1 4 5 3 2 D) 1 5 4 2 36满二叉树一种特殊的二叉树，他除了最底下一层的结点没有任何子结点外其他所有结点都有两个子结点，如右图是一颗三层的满二叉树，那么一颗有10层满二叉树，一共有（ ）结点。A)1023 B) 1024 C) 2047 D) 20487右边图形中，不能用“一笔画”（经过每条边一次仅一次）画出的图是（ ）。A) 图（一） B) 图（二） C) 图（三） D) 图（四）For i:=1 to 6 do begin K:=i; For j:=i+1 to 7 do if ajak then k:=j; if ik then begin t:=ai;ai:=aj;aj:=t end;end;8三言两语，发发感慨，晒晒心情，以不超过140个字的内容进行信息传播、分享的社交网络平台是（ ）。A) 博客 B) 微博 C) 微信 D) QQ9实现莫排序算法的部分Pascal程序如右：在排序过程中，经过莫一遍排序“加工”后，数组元素a1到a7的数据依次为“10,41,75,12,63,11,85”,则下一次排序“加工”后数组元素a1到a7的数据依次是（ ）。 A) 10 11 41 75 12 63 85 B) 10 11 75 12 63 41 85 C) 10 11 12 75 63 41 85 D) 10 11 12 41 63 75 8510有一幅8*8像素的黑白图像，如右图所示。如果该图像的每一行按照从左到右编码，且第一行编码为，那么第三行的编码是（ ）。 A) B) C) D)二、根据要求回答问题：（4610分）1. 有一个不等于1的整数，他除以300，262,205得到的余数相同，这个整数都多少？答：这个整数是 。2A、B、C、D四位外国朋友住在18层高的饭店里，他们分别来自埃及、法国、朝鲜、墨西哥。答： A是 人，住 层； B是 人，住 层； C是 人，住 层； D是 人，住 层； A住的层次比C层高，但比D住的层次低。 B住的层次比朝鲜住的层数人低。 D住的层数恰好是法国人住的层次的5倍。 如果埃及人住的层次增加两层，他与朝鲜人相隔的层数，恰好与他和墨西哥人相隔的层数一样。 埃及人住的层数是法国人和朝鲜人住的层数的和。根据上述情况，请确定A、B、C、D分别是哪国人，分别住哪一层？三、阅读程序并写出运行结果（8888+840分）：1.Program test_2013_1;Var a,b,c:integer;Begina:=4;b:=5;c:=6;a:=b+c;b:=b-a;a:=a-b;if a0 then c:=b+aelse c:=b-a;if c0 then writeln(Wish you success!)else writeln(Good luck to you!)End.输出：2.Program test_2013_2;Var a,t:string; i,j:integer;begina:=NOIP2013; j:=1;for i:=2 to 8 do if ajai then j:=i;j:=j-2;for i:=1 to j do write(ai);end.输出：3.Program test_2013_3;Var i,s,m:integer; a:array1.10 of integer;begin for i:=1 to 10 do read(ai); m:=0; s:=0; for i:=1 to 10 do begin if aim then m:=s; s:=0 end else s:=s+ai; end; if sm then m:=s; writeln(m=:m);end.输入：-5 13 -1 4 7 8 -1 -18 24 6输出：4.Program test_2013_4;Var n:string; j,i,d:integer; s,t:real; m:char;beginread(n); readln(没); j:=1; s:=0;for i:=length(n) downto 1 do begincase ni of 2:d:=2; 1:d:=1; 0:d:=0; end; s:=s+d*j; j:=j*3;end;t:=ord(m)-65; s:=s-t; s:=sqrt(s);writeln(s:0:0);end.输入： S输出：批准：绍兴市科协、绍兴市教育局、宁波市科协、宁波市教育局 （2013年3月23日） - 5 -5.Program test_2013_5;Var x,s:integer;Function d(x:integer):integer;Begn If x:=1 then d:=1; Else d:=d(x-2)+x;End;Begin x:=9; s:=d(x); writeln(s);End.输出：四、完善程序1.【采摘桃形李】（3+3+3+3+3=15分）嵊州市金庭镇，为书圣王羲之晚年归隐之地，同时也是一种叫“桃形李”水果的著名产区。每年7月底到8月初，桃形李就成熟了。它从外表看似桃形，果皮深红色，并覆有白色果粉，果肉紫红，口感爽甜、脆嫩、可口，兼有桃李之风味，还有淡淡清香，味道极佳，因此被誉为“江南名果”。桃形李成熟的季节，也是嵊州市金庭镇最为热闹的时候，小镇集市上，乡村小路边上，果园边上，都是呦喝着卖李的果农，而通往小镇的各条公路上，车流量大增，都是从全国慕名前来采摘桃形李的“自驾游”旅客。笑笑家果园里也种这种果树，每当成熟的时候，果树上就会结出n个桃形李，笑笑就会帮父母采摘桃形李，然后到集市去卖。笑笑有个30厘米高的板凳，当她不能直接用手摘到桃形李的时候，就会踩到板凳上再试试。现在已知n个桃形李到地面的高度，以及笑笑站在地面上把手伸直的时候能够达到的最高高度，请帮忙算算笑笑能够摘到的桃形李的数目。输入文件：plun.in包括三行的数据。第一行为n(n=100)，表示结有n个桃形李。第二行包含n个100200之间（包括100和200）的整数（以厘米为单位），分别表示n个桃形李到地面的高度，两个相邻的整数之间用一个空格隔开。第三只包括一个100120之间（包含100和120）的数（以厘米为单位），表示笑笑站在地面上把手伸直的时候能够达到的最大高度。输出文件：plum.out只有一行，这一行包括一个整数，表示笑笑能够摘到的桃形李的数目。样例输入：10100 _200_ 150_ 140_129_ 134_ 167_ 198_ 200_ 111110样例输出：5Program test_2013_6;Var n,h,i,j,s:integer; a:array1.100 of integer;beginj:=0;assing(input,plun.in);reset(input);assing(output, plum.out);rewrite(output);readln( );for i:=1 to n do begin read(s); ;end;readln;readln(h)for i:=1 to n do if then ;writeln( );close(input);close(output);end.2.【作弊】（3+3+3+3+3=15分）题目描述：在一个大试场里，有n行m列的考生，笑笑和众多的同学正在考试，这时，有一部分考生作弊，当然，监考老师能发现他们。但是只有一个监考老师，他由于高度近视，只能发现与他同行同列的作弊者，而且由于监考老师年老体弱，在考试过程中无法移动。现在已知n*m个考生谁在作弊，请帮监考老师找一个位置，可以发现最多的作弊者（监考老师可以和某个考生同一位置）。如果监考老师的位置上考生作弊，那么监考老师前后看，发现他在作弊，再左右看，又发现他作弊，算做发现两个作弊考生。数据范围：对于50%的数据，0n、m=10，对于100%的数据，0n、m=100，所有数据都在longint范围内。样例说明：监考老师在最中间，那个位置上的作弊者算作两次。输入格式：cheat.in第一行两个数n,m，表示试场是n*m的，接下来的是n*m的矩阵，1表示作弊，0表示不作弊。输出格式：cheat.out共一行，一个数，表示最多可以发现多少作弊者。样式输入： 5_5 0_0_1_0_0 0_0_1_0_0 1_1_1_1_10_0_1_0_0 0_0_1_0_0样式输入： 10Program test_2013_7;Var n,m,i,j,k,d,max:longint;s:array1.100,1.100 of integer;beginassing(input, cheat.in);reset(input);assing(output, cheat.out);rewrite(output); max:=0; readln(n,m); for i:=1 to n do begin