小学生信息学奥赛决赛题01-06年决赛题答案.doc

《小学生信息学奥赛决赛题01-06年决赛题答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、２００１年长沙市计算机奥林匹克竞赛决赛试题（时间：120分钟）一、（40分）键入一个字符串（串长不超过20），输出相应字符组成的等边三角形。如：输入：“CHINA”输出：程序：programCS200101;vars:string;n,i,j:integer;beginwrite('Inputastring:');readln(s);n:=length(s);fori:=1tondobeginwrite('':40-i);forj:=1toidowrite(s[j],'');writelnend;readlnend.二、（50分）一光滑墙壁高X尺，有一个小虫

2、从墙底部向上爬，每分钟爬Y尺。但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。编程：输入X和Y，计算该小虫最少几分钟可爬到顶端。如：输入：X，Y＝4,2输出：5程序：programCS200102;varx,y,s,n:integer;beginwrite('X,Y=');readln(x,y);ify>1thenbegins:=0;n:=0;repeats:=s+y;n:=n+1;ifs<>xthenbegins:=s-1;n:=n+1;end;untils>=x;writeln(n);endelsewriteln('Never');readlnend

3、.三、（50分）科学家在热带森林中发现了一种特殊的小动物，取名为“吱吱”。“吱吱”的生长繁殖过程很有规律，每对小“吱吱”经过X个月就长成一对大“吱吱”，每对大“吱吱”每个月都产下Y对小“吱吱”。假设开始时有一对小“吱吱”，并且每对“吱吱”都不死，问：过Z个月后，共有多少对“吱吱”？（X≥1，Y≥1,1≤Z≤24）（注：若当前是1月，则“过”2个月，是表示到3月的时候）输入：X，Y，Z的值输出：“吱吱”的总对数如：输入：X，Y，Z＝2，2，4　　输出：11程序：programCS200103;varx,y,z,s,s1,n:longint;{s1为大“吱吱”的

4、个数}s2:array[1..24]oflongint;{s2为小“吱吱”的个数，s2[1]代表第一天小“吱吱”的个数，依次类推}begins:=0;s1:=0;s2[1]:=1;write('X,Y,Z=');readln(x,y,z);forn:=xtoz+1dobegins2[n]:=s1*y;{计算当天出生的小“吱吱”}s1:=s1+s2[n-x+1];s2[n-x+1]:=0;{计算当天长大的“吱吱”，s2[n-x+1]为X个月前出生的小“吱吱”个数}end;s:=s+s1;{将大“吱吱”数计入总数}forn:=1toz+1dos:=s+s2[n]

5、;{将小“吱吱”数计入总数}writeln(s);readlnend.四、（60分）如下图所示，键入A，B，C，D，E的值，然后从A出发，顺次经过每个数字分岔路口，选择＋、－、＊、/　四种运算符之一进行运算，达到目的地E时，运算结果恰好等于E，请你将所有符合上述条件的道路全部找出来。输入：A、B、C、D和E的值（其中A、B、C、D都是1～9的数字，E是正整数）输出：从A能到达E的所有道路代表的运算式（注意：前两步运算要加括号）　　　最后打印出道路的总数。　　　如：输入：A，B，C，D，E＝1,2,3,4,10　　　　　输出：（（1＋2）＋3）＋4＝10（（1

6、＊2）＊3）＋4＝10TOTAL＝2程序：programCS200104;varA,B,C,D,E,sum,f1,f2,f3,total:integer;functions(n1,n2,f:integer):integer;begincasefof1:s:=n1+n2;2:s:=n1-n2;3:s:=n1*n2;4:if(n2<>0)and(trunc(n1/n2)=n1divn2)thens:=n1divn2elses:=-1000;end;end;procedurewf(x:integer);begincasexof1:write('+');2:writ

7、e('-');3:write('*');4:write('/');end;end;begintotal:=0;write('A,B,C,D,E=');readln(a,b,c,d,e);forf1:=1to4doforf2:=1to4doforf3:=1to4doife=s(s(s(a,b,f1),c,f2),d,f3)thenbegintotal:=total+1;write('(','(',a);wf(f1);write(b,')');wf(f2);write(c,')');wf(f3);writeln(d,'=',e)end;writeln('TOTA

8、L=',total);readln;end.２００２