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

第十五届绍兴市少儿信息学竞赛

初赛试题

(小学组PASCAL语言二小时完成）

●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●

一、选择一个正确答案代码（A/B/C/D)，填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。共20分）

1、以下不是微软公司开发的软件是（）。

A.Access

B.Frontpage

C.Excel

D.Acrobat Reader

2、有一种利用打孔透光原理设计的简易身份识别卡：每张卡在规定位置上有一排预打孔位，读卡器根据透光检测判断哪些孔位已打孔，哪些未打孔，从而识别出卡的编码。如果要设计一种供300人使用的身份卡，则卡上的预定孔位至少需要（）。

A. 5 个

B. 7 个

C. 9 个

D. 10 个

3、字母"c" 的ASCII码值为99,则字母"f" 的十六进制ASCII码是（）。

A. 66H

B. 9CH

C. 67H

D. 9DH

4、在IE浏览器中，要査看最近访问过的网址，应单击下列按钮中的（）。

5、以下不属于无线通信技术的是（）。

A.蓝牙

B.WiFi

C.GPRS

D.以太网

6、一棵二叉树如图1所示，若采用顺序存储结构，即用一维数

组元素存储该二叉树中的结点(根结点的下标为1，若某结点的

下标为i,则其左孩子位于下标2i处、右孩子位于下标（2i+1）处，

则图中所有结点的最大下标为( ).

A.27

B.6

C.24

D.26

7、下列做法符合信息安全的是（）。

①用智能手机随意扫描商家发来的二维码以便

获取优惠

②网上下载共享软件后先査杀病毒再安装使用

③不随意打开陌生邮件中的exe格式的附件

④为方便记忆用自己的出生年月作为网上银行

登录密码

⑤定期安装操作系统补丁并升级杀毒软件

8、某算法流程图如图2所示：执行该算法，输出

S的结果是( )。

A.4/3

B.1/2

C.-2

D.3

9、今有一空栈S,对下列待进栈的数据元素序列

a,b,c,d,e,f,g依次进行进栈，进栈，出栈，进栈，

进找，出栈的操作，则此操作完成后，栈S的栈

顶元素为( )。

A. f

B. c

C. a

D. b

10、在有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、甲、乙、丙、丁四人同时参加一次信息学竞赛，赛后，他们四人预测名次淡话如下：

甲：丙得第一名，我第三名。

乙：我第一，丁第四。

丙：丁第二，我第三。

丁没有说话。

当最后公布结果时，发现甲、乙、丙都只说对了一半，请你说出这次竞赛四人的名次。

三、阅读程序并写出运行结果（8+8+8+8+8=40分）:

1.var a,b:integer;

begin

a:=3;

b:=7;

a:=a－b;

b:=b+a;

a:=b－a;

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;

end.

输入：

4

2

100

1000

66

输出：

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.

输入：It’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, 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:=n div 8;

change(j);

write (i);

end;

begin

readln(n);

change(n);

end.

输入：2017

输出：

四、完善程序（根据问题要求和已有程序，在程序空格处填入适当的语句或符号，使程序完整。本题每3分，共30分

1.某数据压缩方法描述如下：

1)原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；

2)原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个位0,第2个为0;

3)原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个位0,第2个为重复数的个数，第3个为该数本身；

根据上述压缩方法，对应的解压缩方法示例如图3所示。