第一届绍兴市小学生信息学奥林匹克试题(PASCAL)

（小学组PASCAL语言二小时完成）●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●一．选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。共30分）1）世界上第一台电子计算机ENIAC于（A)1988A)RAMA)RAMA)256A)安装病毒防火墙D)不使用非法盗版软件6）下列不是计算机病毒特征的是（A)破坏性A)是一个局域网C)因特网唯一的功能就是网页浏览B)传染性）B)是一个城域网D)是一个广域网7）下列对于因特网的描述正确的是（）C)可见性D)隐蔽性B)1981B)鼠标B)CPU）C)1024D)）B)1282）下列计算机设备中，是输出设备的是（）年诞生于美国。C)1946）C)键盘）D)硬盘C)ROMD)打印机D)19793）下列计算机设备中，断电后其中的信息全部消失的是（4）ASCII码最多能表示的符号数目是（5）为了有效地预防计算机感染计算机病毒，下列措施中，错误的是（C)定期用酒精或消毒药水对计算机各个部件进行擦拭消毒处理B)定期用杀毒软件对计算机进行查、杀毒处理8）为了方便我们在因特网上查找信息，人们推出了“搜索引擎”（网站），下列网站中，是“搜索引擎”的是（A)WWW.CCTV.COMC)WWW.SXSEDU.NETA)自由软件A)LINUXB)免费软件B)WINDOWS98）B)WWW.GOOGLE.COMD)WWW.ZJEDU.ORG）C)共享软件）D)WINDOWSXP-1-9）从法律的角度出发，下列软件中允许用户对其进行修改的是（10）下列操作系统中，不是微软公司产品的是（D)商业软件C)WINDOWS2000批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）11）WINDOWS98是一个多任务操作系统，当我们需要关闭一个正在运行的程序时，我们可以通过按（A)Ctrl+Alt+DeleteA)PHOTOSHOP）键来打开“关闭程序”窗口，然后选择一个相应的程序进行关闭。B)End）C)WORDD)EXCELB)金山画王C)HomeD)Shift+End12）下列软件中，是我国国产软件的是（13）小明正在用WORD软件写作文，突然他发现最后输入的一个汉字错掉了，如图1所示。为了删除这个错字，请你在下列操作中帮助小明选择一个最恰当的操作。A)按一下Delete键C)按一下BackSpace键B)按一下Enter键D)关闭WORD软件，然后重新启动14）下列关于计算机程序的描述，正确的是（）A)程序指的是我们人通过鼠标点击，使用计算机的操作流程B)程序不是人编的，是计算机自身在运行过程中不断产生的C)程序就是计算机命令的有序集合D)到目前为止，人们还没有完全搞清计算机程序的执行原理15）已知一个堆栈中包含了4个元素，而且知道他们在堆栈中的位置依次是a,b,c,d(从栈底开始往上数），现在让这个堆栈进行连续出栈操作，直到堆栈空，则这些元素的出栈顺序是（A)dcba）B)abcdC)abdcD)cdab二．问题求解：（5＋7＝12分）1．如下图2所示，小明从家里（图中用①表示）出发到学校（图中用⑤表示）中间可能经过的路口有3个（图中分别用②、③、④表示），图中带箭头的线条表示从某个地点到达另外一个地点的可行线路，线条旁边的数字表示该路线的长度。由于可以选择走的路线不止一条，所以请你帮助小明选择一条从家里到学校长度最短的行走线路，并计算这个最短长度是多少？（只须写出最短长度即可，不必写出行走路线。）批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-2-审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）2．我们可以将一个正整数N拆分成K个正整数的和，并且任意二种拆分方法产生的正整数不能全部相同。例如，当N=5,K=2时，“1＋4”和“4＋1”我们认为是同一种方法。现在，N=7,K=3，请你计算一共有多少种拆分方法？这些拆分方法分别是什么？（某个拆分方法拆分出的K个正整数按从小到大的顺序进行书写）【示例解答】N=5,K=2。此时有：拆分方法数：2各种拆分方法分别是：1＋42＋3三．阅读程序并写出运行结果（7＋8＋9＋9＝33分。）：1．programtest1;var

x,y,t:byte;begin

readln(x,y);

ifx输入：3452输出：2．programtest2;var

i:integer;

a:array[1..10]ofbyte;begin

批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-3-审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）fori:=1to10doa[i]:=i;fori:=1to10dobegin

a[i]:=a[i]+1;write(a[i]:3);end;end.

输出：3.programtest3;var

s,i:integer;

functionf1(n:integer):integer;var

j,t:integer;begint:=1;

forj:=ndownto1dot:=t*j;f1:=t;

end;{endfunction}begin{main}s:=0;

fori:=1to5dos:=s+f1(i);writeln('s=',s);end.

输出：4．programtest4;

批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-4-审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）var

t,x,i,j:integer;f:boolean;

a:array[1..10]ofinteger;beginreadln(x);

fori:=1to10doread(a[i]);fori:=1to9doforj:=i+1to10doifa[i]t:=a[i];a[i]:=a[j];a[j]:=t;end;

i:=0;f:=false;repeati:=i+1;

ifx=a[i]thenf:=true;until(i=10)or(f=true);

iff=truethenwriteln(i)elsewriteln('notfound!');end.

输入：12122345612341021输出：四．完善程序（根据问题要求和已有程序，在空格处填入适当的语句或符号，使程序完整。本题共25分。）1．【元旦摆花】（3＋3＋3＋3＝12分）元旦快到了，红旗小学为了在校门口用红花和黄花排成一个29×29的鲜花方阵，需要计算红花和黄花各需要多少盆。摆花时规定最外层是红花，而且从外到内分别是一圈红批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-5-审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）花，一圈黄花，这样每层都是红花和黄花间隔。下面的图3展示的是5×5方阵摆花的样子。红红红红红红黄黄黄红红黄红黄红红黄黄黄红红红红红红图3

下列程序用来统计红花和黄花的数量，并输出红花和黄花的数量。请完善程序。programtest7;constn=29;var

red_s,yellow_s,i,j:integer;red:boolean;begini:=n;red_s:=red:=true;repeat

ifred=truethenbegin

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

yellow_s:=yellow_s+(i-1)*4;red:=not(red);end;i:=i-2;

批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-6-①;yellow_s:=0;②;

审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）untili=1;

ifred=truethenred_s:=③elseyellow_s:=yellow_s+1;yellowflower=',④);writeln('redflower=',red_s,'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”的形式输入），并且以“.”作为输入结束标志。请完善程序。programtest8;var

str_a,str_b,str_c:string;x,a,b,c,i,j,k,code:integer;op,ch:char;

exp:array[1..20]ofchar;begin

write('inputexpression:');read(ch);i:=0;repeat

i:=i+1;exp[i]:=ch;read(ch);untilj:=1;

whileexp[j]<>'x'dobegin

批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-7-①;

审定：绍兴市青少年信息学奥林匹克竞赛科学委员会（PASCAL版试卷）str_a:=end;j:=j+1;op:=exp[j];j:=j+1;

②;j:=j+1;

whileexp[j]<>'='dobegin

str_b:=str_b+exp[j];j:=j+1;end;j:=j+1;fork:=jto

③dostr_c:=str_c+exp[k];

val(str_a,a,code);val(str_b,b,code);val(str_c,c,code);ifop='-'thenb:=-b;x:=④;writeln('x=',x);end.

批准：绍兴市科协、绍兴市教育局主办：绍兴科技馆、绍兴市电教馆-8-