2007年长沙市小学生计算机奥林匹克竞赛初赛试题

2007年长沙市小学生计算机奥林匹克竞赛初赛试题（语言：TURBOPASCAL时间：120分钟）参赛证号姓名学校总分一、单项选择题（每小题2分，共40分）1、世界上第一台电子计算机于1946年诞生于美国，它是出于（A）的需要。A、军事B、工业C、农业D、教学2、下列属于计算机存储器的是（D）A、资源管理器B、CPU C、打印机D、硬盘3、国标码的一个汉字在计算机中占用（B）个字节。A、1B、2C、4D、84、在windows窗口操作时，能使窗口大小恢复原状的操作是（C）A、单击“最小化”按钮B、单击“关闭”按钮C、双击窗口标题栏D、单击“最大化”按钮5、下列有关电脑病毒的描述中，错误的是（D）A、电脑病毒实质是人设计的计算机程序B、上网下载信息可能会感染电脑病毒C、电脑病毒发作时会影响电脑的正常工作D、电脑病毒是宇宙射线对电脑辐射产生的结果6、下列internet的各功能中，错误的是（A）A、程序编译B、邮件传送C、远程教学 D、信息查询7、我们将pascal程序存盘时，不可能保存到计算机的（A）中。 A、内存 B、硬盘 C、软盘 D、光盘8、(2004)10+(11)2的结果是（D）。 A、(2727)8 B、(FA7)16 C、(2015)10 D、(11111010111)29、在Pascal语言环境下，用快捷键组合ALT+F5可以（C） A、放大窗口 B、编译执行 C、查看输出D、保存程序10、字符类型的标准定义符是（C） A、string B、chr C、char D、str11、下列变量名当中不正确的是（D） A、boy B、student C、w123 D、6A12、在var下，用A:array[10..15]ofreal定义的A数组包含（C）个元素。 A、10 B、15 C、6 D、513、表达式round(7.8)*5div3–ord(odd(trunk(25.6)))的值是（B） A、13 B、12C、11D、1014、判断a和b都不等于0的条件表达式正确的是（A） A、not((a=0)or(b=0)) B、a<>0andb<>0 C、not((a=0)and(b=0)) D、(a<>0)or(b<>0)15、产生一个随机整数赋给R，要求100≤R≤200，正确的语句是（B） A、R:=random(200)+100 B、R:=random(101)+100C、R:=random(99)+100 D、R:=random(100)+10016、在字符串’ababcdefacbefdabccbad’中出现最多的字母出现了（C）次。 A、2 B、4 C、5 D、6

17、把编号为1到13的纸牌唱针摆成一圈，然后从1号纸牌开始顺时针数1,2,3,……，一圈又一圈，当数到某个数n时，对应的纸牌编号为（B）nmod13B、(n-1)mod13+1C、nmod13+1D、(n+1)mod1318、整数A的值为12345，则Adiv10mod1000的结果是（D） A、5 B、345 C、34 D、23419、若s=’#ABCDABCD#’，则pos(‘AB’,insert(‘AC’,copy(s,4,6),3))的值是（A） A、5 B、3 C、2D、620、数据3.14、’A’、’abc’、0、maxint当中有（B）个不能作为for循环的初、终值。 A、1 B、2 C、3 D、4二、问题解答（每小题5分，共10分）1、把4封信投入到3个邮筒中，共有多少种不同的投法？答：共有81种不同的投法。2、猪八戒有一大堆西瓜，每天吃掉一半，还多吃两个，8天就全部吃完。问：当初猪八戒共有多少个西瓜？答：当初猪八戒共有1020个西瓜。三、阅读程序，写出程序的结果（每小题5分，共20分）①、vara,b,c,d,e:integer; begin a:=79;b:=46;c:=57;d:=10;e:=1;if(a>c)and(b>c)thend:=d+eelseifd+10<ethend:=e+10elsed:=e+a;writeln(‘d=’,d);end.输出：___d=80___________②、vari,k:integer;begink:=1;i:=1;whilei<2008dobegink:=-k;i:=i+1;end;writeln(k*i);end.输出：____-2008__________

③、vari,j,t:integer;a:array[0..10]ofinteger;beginfori:=1to10dobeginread(a[i]);a[i]:=a[i]-a[i-1];end;fori:=1to9doforj:=i+1to10doifa[i]>a[j]thenbegint:=a[i];a[i]:=a[j];a[j]:=tend;fori:=1to10dowrite(a[i]:3);writeln;end.输入：89103246751输出：__-7-6-4-31888910__④vari:integer;s:string;begins:=’you-are-boys-and-girls’;fori:=5to12doifs[i]=’-’thens[i-1]:=’e’;fori:=10downto1doifs[i]=’y’thenbegins[i]:=’Y’;s:=copy(s,1,8)+’teachers’;end;writeln(s);end.输出：__You-are-teachers_____

四、完善程序1、孪生质数：如果两个质数的差值为2，则称之为“孪生质数”。例如：3和5、5和7、11和13等等。请找出15对孪生质数，每行输出一对，两个质数之间空一格。【程序清单】programex1;vark,n:integer;functionpan(a:integer):boolean;vark:integer;beginpan:=false;fork:=3totrunk(sqrt(a))doifamodk=0thenexit;pan:=true;end;beginn:=0;k:=3;repeatifpan(k)andpan(k+2)thenbeginn:=n+1;writeln(k,’‘,k+2);end;k:=k+2;untiln=15;end.2、字串接龙：输入整数n和m（1≤n，m≤10）,再输入n个字符串（每个串长度≤20），规定：如果串X的后m位与串Y的前m位相同，就可将串Y接在串X的后面，并使连接处相同的部分重叠。对于每个串X，能接在它后面的串Y只有一个。现请你将n个串连接成一串。例如：输入：n,m=32输出：xyzabcdefabcdxyzabcdef【程序清单】programex2;vara:array[1..10]ofstring[20];b:array[1..10]of0..1;m,n,i,j:integer;ans,s1,s2:string;beginwrite(‘n,m=’);readln(n,m);fori:=2tondoifb[i]=0thenbegins1:=copy(a[i],1,m);s2:=copy(ans,length(ans)-m+1,m);ifs1=s2thenbeginj:=j+1;delete(a[i],1,m);b[i]:=1;ans:=ans+a[i];end;s1:=copy(a[i],length(a[i])-m+1,m);