绍兴市少儿信息学竞赛初赛试题

1、第十五届绍兴市少儿信息学竞赛初赛试题(小学组PASCAL语言二小时完成全部试题答案都要求写在答卷纸上，写在试卷上一律无效一、选择一个正确答案代码A/B/C/D)，填入每题的括号内每题2分，每题只有一个正确答案，多项选择无分。共20分1、以下不是微软公司开发的软件是 。A.Access B.Frontpage C.Excel D.Acrobat Reader2、有一种利用打孔透光原理设计的简易身份识别卡：每张卡在规定位置上有一排预打孔位， 读卡器根据透光检测判断哪些孔位已打孔，哪些未打孔，从而识别出卡的编码。如果要设计一种供300人使用的身份卡，那么卡上的预定孔位至少需要 。A. 5 个 B.

2、7 个 C. 9 个 D. 10 个3、 字母 "c" 的ASCII码值为99,那么字母 "f" 的十六进制ASCII码是 。A. 66H B. 9CH C. 67H D. 9DH4、 在IE浏览器中，要査看最近访问过的网址，应单击以下按钮中的 。5、以下不属于无线通信技术的是 。A.蓝牙 B.WiFi C.GPRS D.以太网6、一棵二叉树如图1所示，假设采用顺序存储结构，即用 一维数组元素存储该二叉树中的结点(根结点的下标为1， 假设某结点的下标为i,那么其左孩子位于下标2i处、右孩子 位于下标2i+1处，那么图中所有结点的最大下标为 ( ).A.2

3、7B.6 C.24 D.267、以下做法符合信息平安的是 。用智能 随意扫描商家发来的二维码以便获取优惠网上下载共享软件后先査杀病毒再安装使用不随意翻开陌生邮件中的exe格式的附件为方便记忆用自己的出生年月作为网上银行登录密码定期安装操作系统补丁并升级杀毒软件8、某算法流程图如图2所示：执行该算法，输出S的结果是( )。A.4/3 B.1/2 C.-2 D.39、今有一空栈S,对以下待进栈的数据元素序列a,b,c,d,e,f,g依次进行进栈，进栈，出栈，进 栈，进找，出栈的操作，那么此操作完成后，栈S的栈顶元素为( )。A. f B. c C. a D. b10、在有2021个结点的连通图中，

4、其边数最少需要 。A. 2021 条 B. 2021 条 C. 2021 条 D. 2021 条二、根据要求答复以下问题：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、、阅读程序并写出运行结果8+8+8+8+8=40分:1.var a,b:integer; begin a:=3; b:=7; a:=ab; b:=b+a; a:=ba; writeln(a= ,a); writeln(b= ,b);end.输出： 2、var i, n,r, s,x: integer; begin readln(n); for i:=1 to n do begin readln(x); s:=0; while x<>0 do begin r:=x mod 2; if r=1 then s:=s+1; x:=x div 2; end; writeln(s); end;

6、 end.输入：42100100066输出： 3、var s,si:string; i, a, b, k: integer; begin readln (s); s1:= you; k:=0; a:=length(s); b:=length(s1); for i:=1 to a-b+1 do if copy (s, i, b)=s1 then k:=k+1; writeln(k); end.输入：Iteasy. You get off the bus. Then you cross the road. You take the first road on the left. You walk

7、for five minutes.输出：4.var x, y, z:integer;procedure silly(x:integer;var y:integer); begin x:=7; y:=17; z:=18; writeln(x, , y, ,z); end; begin x:=1; y:=2; z:=3; silly (x, y); writeln(x, ,y, ,z); end.输出：5.var n:longint;procedure change(n:longint); var i,j:longint; begin if n=0 then exit; i:=n mod 8; j

8、:=n div 8; change(j); write (i); end; begin readln(n); change(n); end.输入：2021 输出：四、完善程序根据问题要求和已有程序，在程序空格处填入适当的语句或符号， 使程序完整。此题每3分，共30分 1.某数据压缩方法描述如下：1)原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；2)原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个位0,第2个为0;3)原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个位0,第2个为重复 数的个数，第3个为该数本身；根据上述压缩方法，对应的解压缩方法例如如图3所示

9、。小明编写了一个解压缩程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在 数组元素al、a2、a3中，压缩数据的个数存储在变量n中，解压缩后的数据依次存储在数组元素bl、b2、b3中。输入格式： 输入数据两行，第一行一个数n，代表压缩数据个数；第二行n个数字，代表压缩数据。 输出格式： 输出文件仅有一行，为解压缩后的数据。输入样例：625 0 0 0 7 78 输出样例：25 0 78 78 78 78 78 78 78实现上述功能程序如下,请在划线处填入适宜代码。 var a:array1. 1000 of integer; b:array1.1000 of integer; pa,

10、pb, n, firstdata, count, i:integer; beginreadln(n); for i:=1 to n do read(ai); pa:=1; ； while pa<=n do begin firstdata:=apa; if firstdata<>0 then begin bpb := ； pa:=pa+1; pb:=pb+1 end else begin count:=apa+1; if count=0 then begin bpb:=0; pa:= ; pb:=pb+1 end else begin for i:=1 to count do

11、begin bpb:=apa+2; pb:= : end; pa:=pa+3; end; end; end; for i:=1 to do write(bi, ； end.2.小明同学编写如下功能的程序：从键盘输入任意一个字符串和一个字符，要求从该字符串中删除所有该字符。输入格式： 两行，第一行是字符串字符串至少有一个字符，不多于100个)，第二行是一个字符。 输出格式： 两行，第一行为删除了所有应删除字符后的字符串，第二行是删除的字符个数。样例输入：ASD Dfg fhd D样例输出：AS fg fhd 2 为实现上述功能请在划线处填上适宜代码。var m, ch, s, si, s2:st

12、ring; len, i, g:integer;begin readln(s); readln(ch); ; i:=1; g:=0； while i<=len do begin m:=copy(s, i, 1); if then begin s1:=copy(s, 1, i-1); s2:=copy(s, i+1, ); s:=s1+s2; ； i:=i-1; len:=len-1; end; i:=i+1; end; ； writeln(g);end.第十五届绍兴市少儿信息学竞赛答题卷 座位号： 姓名： 一、选择一个正确答案代码A/B/C/D)，填入每题的括号内每题2分，每题只有一个正确答案