01第一届绍兴市少儿信息学奥林匹克竞赛试题

第一届绍兴市少儿信息学奥林匹克竞赛试题

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

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

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

1）世界上第一台电子计算机ENIAC于（）年诞生于美国。

A) 1988 B) 1981 C) 1946 D) 1979

2）下列计算机设备中，是输出设备的是（）

A) RAM B) 鼠标C) 键盘D) 打印机

3）下列计算机设备中，断电后其中的信息全部消失的是（）

A) RAM B) CPU C) ROM D) 硬盘

4）ASCII码最多能表示的符号数目是（）

A) 256 B) 128 C) 1024 D) 64

5）为了有效地预防计算机感染计算机病毒，下列措施中，错误的是（）

A) 安装病毒防火墙B) 定期用杀毒软件对计算机进行查、杀毒处理

C) 定期用酒精或消毒药水对计算机各个部件进行擦拭消毒处理

D) 不使用非法盗版软件

6）下列不是计算机病毒特征的是（）

A) 破坏性B) 传染性C) 可见性D) 隐蔽性

7）下列对于因特网的描述正确的是（）

A) 是一个局域网B) 是一个城域网

C) 因特网唯一的功能就是网页浏览D) 是一个广域网

8）为了方便我们在因特网上查找信息，人们推出了“搜索引擎”（网站），下列网站中，是“搜索引擎”的是（）

A) https://www.360docs.net/doc/8717629532.html, B) https://www.360docs.net/doc/8717629532.html,

C) https://www.360docs.net/doc/8717629532.html, D) https://www.360docs.net/doc/8717629532.html,

9）从法律的角度出发，下列软件中允许用户对其进行修改的是（）

A) 自由软件B) 免费软件C) 共享软件D) 商业软件

10）下列操作系统中，不是微软公司产品的是（）

A) LINUX B) WINDOWS 98 C) WINDOWS 2000 D) WINDOWS XP

11）WINDOWS 98是一个多任务操作系统，当我们需要关闭一个正在运行的程序时，我们可以通过按（）键来打开“关闭程序”窗口，然后选择一个相应的程序进行关闭。

12）下列软件中，是我国国产软件的是（）

A) PHOTOSHOP B) 金山画王C) WORD D) EXCEL

13）小明正在用WORD软件写作文，突然他发现最后输入的一个汉字错掉了，如图1所示。为了删除这

个错字，请你在下列操作中帮助小明选择一个最恰当的操作。

A) 按一下B) 按一下

C) D) 关闭WORD软件，然后重新启动

14）下列关于计算机程序的描述，正确的是（）

A) 程序指的是我们人通过鼠标点击，使用计算机的操作流程

B) 程序不是人编的，是计算机自身在运行过程中不断产生的

C) 程序就是计算机命令的有序集合

D) 到目前为止，人们还没有完全搞清计算机程序的执行原理

15）已知一个堆栈中包含了4个元素，而且知道他们在堆栈中的位置依次是a,b,c,d(从栈底开始往上数），现在让这个堆栈进行连续出栈操作，直到堆栈空，则这些元素的出栈顺序是（）

A) dcba B) abcd C) abdc D) cdab

二．问题求解：（5＋7＝12分）

1．如下图2所示，小明从家里（图中用①表示）出发到学校（图中用⑤表示）中间可能经过的路口有3个（图中分别用②、③、④表示），图中带箭头的线条表示从某个地点到达另外一个地点的可行线路，线条旁边的数字表示该路线的长度。由于可以选择走的路线不止一条，所以请你帮助小明选择一条从家里到学校长度最短的行走线路，并计算这个最短长度是多少？（只须写出最短长度即可，不必写出行走路线。）

2．我们可以将一个正整数N拆分成K个正整数的和，并且任意二种拆分方法产生的正整数不能全部相同。例如，当N=5,K=2时，“1＋4”和“4＋1”我们认为是同一种方法。

现在，N=7,K=3，请你计算一共有多少种拆分方法？这些拆分方法分别是什么？（某个拆分方法拆分出的K个正整数按从小到大的顺序进行书写）

【示例解答】N=5,K=2。此时有：

拆分方法数：2

各种拆分方法分别是：1＋4 2＋3

三．阅读程序并写出运行结果（7＋8＋9＋9＝33分。）：

1．

program test1;

var

x,y,t:byte;

begin

readln(x,y);

if x

end.

输入：34 52

输出：

2．

program test2;

var

i:integer;

a:array[1..10] of byte;

begin

for i:=1 to 10 do a[i]:=i;

for i:=1 to 10 do

begin

a[i]:=a[i]+1;

write(a[i]:3);

end;

end.

输出：

3.

program test3;

var

s,i:integer;

function f1(n:integer):integer;

var

j,t:integer;

begin

t:=1;

for j:=n downto 1 do t:=t*j;

f1:=t;

end;{end function}

begin {main}

s:=0;

for i:=1 to 5 do s:=s+f1(i);

writeln('s=',s);

end.

输出：

4．

program test4;

var

t,x,i,j:integer;

f:boolean;

a:array[1..10] of integer;

begin

readln(x);

for i:=1 to 10 do read(a[i]);

for i:=1 to 9 do

for j:=i+1 to 10 do

if a[i]

begin

t:=a[i];a[i]:=a[j];a[j]:=t;

end;

i:=0;f:=false;

repeat

i:=i+1;

if x=a[i] then f:=true;

until (i=10) or (f=true);

if f=true then writeln(i) else writeln('not found!');

end.

输入：

12

12 23 45 6 1 2 3 4 10 21

输出：

四．完善程序（根据问题要求和已有程序，在空格处填入适当的语句或符号，使程序完整。本题共25分。）1．【元旦摆花】（3＋3＋3＋3＝12分）

元旦快到了，红旗小学为了在校门口用红花和黄花排成一个29×29的鲜花方阵，需要计算红花和黄花各需要多少盆。摆花时规定最外层是红花，而且从外到内分别是一圈红花，一圈黄花，这样每层都是红花和黄花间隔。下面的图3展示的是5×5方阵摆花的样子。

红红红红红

红黄黄黄红

红黄红黄红

红黄黄黄红

红红红红红

图 3

下列程序用来统计红花和黄花的数量，并输出红花和黄花的数量。请完善程序。program test7;

const n=29;

var

red_s,yellow_s,i,j:integer;

red:boolean;

begin

i:=n;

red:=true;

repeat

if red=true then

begin

red_s:=red_s+(i-1)*4;

end

else

begin

yellow_s:=yellow_s+(i-1)*4;

red:=not(red);

end;

i:=i-2;

until i=1;

end.

2．【一元一次方程求解】（3＋3＋3＋4＝13分）

数学中在求解形如ax+b=c的一元一次方程时，首先会移项（把b移到等号右边），然后利用算式x=(c-b)/a来计算出未知数x的值。

下列程序就是用来对形如ax+b=c的一元一次方程进行求解，其中，b、c可以是任意整数，而a则为不等于零的整数。而且规定，从键盘输入的一元一次方程的形式都为ax+b=c这样的格式（也可为ax-b=c 的形式），方程输入时以字符形式保存到字符数组exp[ ]中（输入时，无论a，b为何值，它们的值都必须原样写在对应的位置上。如，a=1，b=0时，则方程应以“1x＋0=c”的形式输入，而不能以“x=c”的形式输入），并且以“.”作为输入结束标志。请完善程序。

program test8;

var

str_a,str_b,str_c:string;

x,a,b,c,i,j,k,code:integer;

op,ch:char;

exp:array[1..20] of char;

begin

write('input expression:');

read(ch);i:=0;

repeat

i:=i+1;exp[i]:=ch;

read(ch);

j:=1;

while exp[j]<>'x' do

begin

end;

j:=j+1;

op:=exp[j];

j:=j+1;

while exp[j]<>'=' do

begin

str_b:=str_b+exp[j];j:=j+1;

end;

j:=j+1;

val(str_a,a,code);val(str_b,b,code);val(str_c,c,code); if op='-' then b:=-b;

writeln('x=',x);

end.