2007年長沙市小學(xué)生計(jì)算機(jī)奧林匹克競賽初賽試題

2007年長沙市小學(xué)生計(jì)算機(jī)奧林匹克競賽初賽試題（語言：TURBOPASCAL時(shí)間：120分鐘）參賽證號姓名學(xué)?？偡忠?、單項(xiàng)選擇題（每小題2分，共40分）1、世界上第一臺電子計(jì)算機(jī)于1946年誕生于美國，它是出于（A）的需要。A、軍事B、工業(yè)C、農(nóng)業(yè)D、教學(xué)2、下列屬于計(jì)算機(jī)存儲器的是（D）A、資源管理器B、CPU C、打印機(jī)D、硬盤3、國標(biāo)碼的一個(gè)漢字在計(jì)算機(jī)中占用（B）個(gè)字節(jié)。A、1B、2C、4D、84、在windows窗口操作時(shí)，能使窗口大小恢復(fù)原狀的操作是（C）A、單擊“最小化”按鈕B、單擊“關(guān)閉”按鈕C、雙擊窗口標(biāo)題欄D、單擊“最大化”按鈕5、下列有關(guān)電腦病毒的描述中，錯(cuò)誤的是（D）A、電腦病毒實(shí)質(zhì)是人設(shè)計(jì)的計(jì)算機(jī)程序B、上網(wǎng)下載信息可能會感染電腦病毒C、電腦病毒發(fā)作時(shí)會影響電腦的正常工作D、電腦病毒是宇宙射線對電腦輻射產(chǎn)生的結(jié)果6、下列internet的各功能中，錯(cuò)誤的是（A）A、程序編譯B、郵件傳送C、遠(yuǎn)程教學(xué) D、信息查詢7、我們將pascal程序存盤時(shí)，不可能保存到計(jì)算機(jī)的（A）中。 A、內(nèi)存 B、硬盤 C、軟盤 D、光盤8、(2004)10+(11)2的結(jié)果是（D）。 A、(2727)8 B、(FA7)16 C、(2015)10 D、(11111010111)29、在Pascal語言環(huán)境下，用快捷鍵組合ALT+F5可以（C） A、放大窗口 B、編譯執(zhí)行 C、查看輸出D、保存程序10、字符類型的標(biāo)準(zhǔn)定義符是（C） A、string B、chr C、char D、str11、下列變量名當(dāng)中不正確的是（D） A、boy B、student C、w123 D、6A12、在var下，用A:array[10..15]ofreal定義的A數(shù)組包含（C）個(gè)元素。 A、10 B、15 C、6 D、513、表達(dá)式round(7.8)*5div3–ord(odd(trunk(25.6)))的值是（B） A、13 B、12C、11D、1014、判斷a和b都不等于0的條件表達(dá)式正確的是（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、產(chǎn)生一個(gè)隨機(jī)整數(shù)賦給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’中出現(xiàn)最多的字母出現(xiàn)了（C）次。 A、2 B、4 C、5 D、6

17、把編號為1到13的紙牌唱針擺成一圈，然后從1號紙牌開始順時(shí)針數(shù)1,2,3,……，一圈又一圈，當(dāng)數(shù)到某個(gè)數(shù)n時(shí)，對應(yīng)的紙牌編號為（B）nmod13B、(n-1)mod13+1C、nmod13+1D、(n+1)mod1318、整數(shù)A的值為12345，則Adiv10mod1000的結(jié)果是（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、數(shù)據(jù)3.14、’A’、’abc’、0、maxint當(dāng)中有（B）個(gè)不能作為for循環(huán)的初、終值。 A、1 B、2 C、3 D、4二、問題解答（每小題5分，共10分）1、把4封信投入到3個(gè)郵筒中，共有多少種不同的投法？答：共有81種不同的投法。2、豬八戒有一大堆西瓜，每天吃掉一半，還多吃兩個(gè)，8天就全部吃完。問：當(dāng)初豬八戒共有多少個(gè)西瓜？答：當(dāng)初豬八戒共有1020個(gè)西瓜。三、閱讀程序，寫出程序的結(jié)果（每小題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、孿生質(zhì)數(shù)：如果兩個(gè)質(zhì)數(shù)的差值為2，則稱之為“孿生質(zhì)數(shù)”。例如：3和5、5和7、11和13等等。請找出15對孿生質(zhì)數(shù)，每行輸出一對，兩個(gè)質(zhì)數(shù)之間空一格。【程序清單】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、字串接龍：輸入整數(shù)n和m（1≤n，m≤10）,再輸入n個(gè)字符串（每個(gè)串長度≤20），規(guī)定：如果串X的后m位與串Y的前m位相同，就可將串Y接在串X的后面，并使連接處相同的部分重疊。對于每個(gè)串X，能接在它后面的串Y只有一個(gè)。現(xiàn)請你將n個(gè)串連接成一串。例如：輸入：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);