长沙市小学生计算机奥林匹克竞赛决赛题答案.docVIP

２００１年长沙市计算机奥林匹克竞赛决赛试题 （时间：120分钟） 一、（40分）键入一个字符串（串长不超过20），输出相应字符组成的等边三角形。 如：输入：“CHINA” 输出： 程序： program CS200101; var s:string; n,i,j:integer; begin write(Input a string:); readln(s); n:=length(s); for i:=1 to n do begin write(:40-i); for j:=1 to i do write(s[j], ); writeln end; readln end. 二、（50分）一光滑墙壁高X尺，有一个小虫从墙底部向上爬，每分钟爬Y尺。但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。编程：输入X和Y，计算该小虫最少几分钟可爬到顶端。 如：输入：X，Y＝4,2 输出：5 程序： program CS200102; var x,y,s,n:integer; begin write(X,Y=); readln(x,y); if y1 then begin s:=0;n:=0; repeat s:=s+y;n:=n+1; if sx then begin s:=s-1;n:=n+1; end; until s=x; writeln(n); end else writeln(Never); readln end. 三、（50分）科学家在热带森林中发现了一种特殊的小动物，取名为“吱吱”。“吱吱”的生长繁殖过程很有规律，每对小“吱吱”经过X个月就长成一对大“吱吱”，每对大“吱吱”每个月都产下Y对小“吱吱”。假设开始时有一对小“吱吱”，并且每对“吱吱”都不死，问：过Z个月后，共有多少对“吱吱”？（X≥1，Y≥1,1≤Z≤24） （注：若当前是1月，则“过”2个月，是表示到3月的时候） 输入：X，Y，Z的值 输出：“吱吱”的总对数 如：输入：X，Y，Z＝2，2，4 　　输出：11 程序： program CS200103; var x,y,z,s,s1,n:longint;{s1为 s2:array[1..24] of longint;{s2为小“吱吱”的个数，s2[1]代表第一天小“吱吱”的个数，依次类推} begin s:=0;s1:=0;s2[1]:=1; write(X,Y,Z=); readln(x,y,z); for n:=x to z+1 do begin s2[n]:=s1*y;{计算当天出生的小“吱吱”} s1:=s1+s2[n-x+1];s2[n-x+1]:=0;{计算当天长大的“吱吱”，s2[n-x+1]为X个月前出生的小“吱吱”个数} end; s:=s+s1;{将大“吱吱”数计入总数} for n:=1 to z+1 do s:=s+s2[n];{将小“吱吱”数计入总数} writeln(s); readln end. 四、（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＊2）＊3）＋4＝10 TOTAL＝2 程序： program CS200104; var A,B,C,D,E,sum,f1,f2,f3,total:integer; function s(n1,n2,f:integer):integer; begin case f of 1:s:=n1+n2; 2:s:=n1-n2; 3:s:=n1*n2; 4:if (n20) and (trunc(n1/n2)=n1 div n2) then s:=n1 div n2 else s:=-1000; end; end; procedure wf(x:integer); begin case x of 1:write(+); 2:write(-); 3:wr