第十二屆全國青少年信息學奧林匹克聯(lián)賽初賽試題及答案(提高組P

1、第十二屆全國青少年信息學奧林匹克聯(lián)賽初賽試題（ 提高組 Pascal 語言 二小時完成 ）全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效一、 單項選擇題（共 10 題，每題 1.5 分，共計 15 分。每題有且僅有一個正確答案.）。1. 在以下各項中。（ ）不是 CPU 的組成部分。A. 控制器 B. 運算器 C. 寄存器 D. ALU E. RAM2. BIOS（基本輸入輸出系統(tǒng)）是一組固化在計算機內(nèi)（ ）上一個 ROM 芯片上的程序。A. 控制器 B. CPU C. 主板 D. 內(nèi)存條 E. 硬盤3.在下面各世界頂級的獎項中，為計算機科學與技術(shù)領(lǐng)域作出杰出貢獻的科學家設(shè)立的獎項是（

2、）。A. 沃爾夫獎 B. 諾貝爾獎 C. 菲爾茲獎 D. 圖靈獎 E. 南丁格爾獎4在編程時（使用任一種高級語言，不一定是Pascal）,如果需要從磁盤文件中輸入一個很大的二維數(shù)組（例如1000*1000 的 double 型數(shù)組），按行讀（即外層循環(huán)是關(guān)于行的）與按列讀（即外層循環(huán)是關(guān)于列的）相比，在輸入效率上（ ）。A. 沒有區(qū)別 B. 有一些區(qū)別，但機器處 理速度很快，可忽略不計C. 按行讀的方式要高一些 D. 按列讀的方式要高一些 E.取決于數(shù)組的存儲方式。5在 Pascal 語言中，表達式(21 xor 2)的值是（ ）A. 441 B. 42 C.23 D.24 E.256在 Pa

3、scal 語言中，判斷a不等于0且b不等于0的正確的條件表達式是（ ）A. not a=0 or not b=0 B. not(a=0)and(b=0) C. not(a=0 and b=0)D. (a0)or(b0) E. (a0)and (b0)7某個車站呈狹長形，寬度只能容下一臺車，并且只有一個出入口。已知某時刻該車站狀態(tài)為空，從這一時刻開始的出入記錄為：“進，出，進，進，進，出，出，進，進，進，出,出”。假設(shè)車輛入站的順序為 1，2，3，則車輛出站的順序為（ ）。A.1,2,3,4,5 B.1,2,4,5,7 C.1,4,3,7,6 D.1,4,3,7,2 E.1,4,3,7,58高度

4、為 n 的均衡的二叉樹是指：如果去掉葉結(jié)點及相應的樹枝，它應該是高度為 n-1 的滿二叉樹。在這里，樹高等于葉結(jié)點的最大深度，根結(jié)點的深度為 0，如果某個均衡的二叉樹共有 2381 個結(jié)點， 則該樹的樹高為（ ）。10A. 10 B. 11 C. 12 D. 13 E. 219. 與十進制數(shù) 1770.625 對應的八進制數(shù)是（ ）。A. 3352.5 B. 3350.5 C. 3352.1161D. 3350.1151 E. 前 4 個答案都不對10將 5 個數(shù)的序列排序，不論原先的順序如何，最少都可以通過（ ）次比較，完成從小到大的排序。A. 6 B. 7 C. 8 D. 9 E. 10二

5、、不定項選擇題（共10 題，每題1.5 分，共計15 分。每題正確答案的個數(shù)大于或等于1。多選或少選均不得分）。11. 設(shè)A=B=D=true，C=E=false，以下邏輯運算表達式值為真的有（ ）。A. (AB)(CD)E B.(AB)C)DE)C. A(BCDE) D. (A(BC)DE12. (2010)16 + (32)8的結(jié)果是（ ）。A. (8234)10 B. (202A)16 C. (100000000110)2 D. (2042)1613. 設(shè)棧S的初始狀態(tài)為空，元素a,b,c,d,e 依次入棧，以下出棧序列不可能出現(xiàn)的有（ ）。A.a,b,c,e,d B.b,c,a,e,d

6、 C.a,e,c,b,d D.d,c,e,b,a14. 已知 6 個結(jié)點的二叉樹的先根遍歷是 1 2 3 4 5 6（數(shù)字為結(jié)點的編號，以下同），后根遍歷是3 2 5 6 4 1，則該二叉樹的可能的中根遍歷是（ ）A. 3 2 1 4 6 5 B. 3 2 1 5 4 6 C. 2 3 1 5 4 6 D. 2 3 1 4 6 515. 在下列各數(shù)據(jù)庫系統(tǒng)軟件中，以關(guān)系型數(shù)據(jù)庫為主體結(jié)構(gòu)的是（ ）。A. ACCESS B. SQL Server C. Oracle D. Foxpro16.在下列各軟件中，屬于 NOIP 競賽（復賽）推薦使用的語言環(huán)境有（ ）。A. gcc/g+ B. Turb

7、o Pascal C. Turbo C D. free pascal17. 以下斷電之后將不能保存數(shù)據(jù)的有（ ）。A. 硬盤 B. ROM C. 顯存 D. RAM18. 在下列關(guān)于計算機語言的說法中，正確的有（ ）。A. Pascal和C都是編譯執(zhí)行的高級語言B. 高級語言程序比匯編語言程序更容易從一種計算機移植到另一種計算機上C. C+是歷史上的第一個支持面向?qū)ο蟮挠嬎銠C語言D. 高級語言比匯編語言更高級，是因為它的程序的運行效率更高19. 在下列關(guān)于計算機算法的說法中，正確的有（ ）。A. 一個正確的算法至少要有一個輸入B. 算法的改進，在很大程度上推動了計算機科學與技術(shù)的進步C. 判斷

8、一個算法的好壞，主要依據(jù)它在某臺計算機上具體實現(xiàn)時的運行時間D. 目前仍然存在許多涉及到國計民生的重大課題，還沒有找到能夠在計算機上實施的有效算法20. 在下列關(guān)于青少年信息學競賽的說法中，你贊成的是（ ）（本題不回答為0分，答題一律滿分）。A.舉行信息學競賽的目的，是為了帶動廣大青少年學科學、愛科學，為造就一大批優(yōu)秀的計算機科學與技術(shù)人才奠定良好的基礎(chǔ)B. 如果競賽優(yōu)勝者不能直接保送上大學，我今后就不再參與這項活動了C. 準備競賽無非要靠題海戰(zhàn)術(shù)，為了取得好成績，就得拼時間、拼體力D. 為了取得好成績，不光要看智力因素，還要看非智力因素。優(yōu)秀選手應該有堅韌不拔的意志，有嚴謹求實的作風，既要努

9、力奮進，又要勝不驕敗不餒三問題求解（共 2 題，每題 5 分，共計 10 分）1將 2006 個人分成若干不相交的子集，每個子集至少有 3 個人，并且：（1）在每個子集中，沒有人認識該子集的所有人。（2）同一子集的任何 3 個人中，至少有 2 個人互不認識。（3）對同一子集中任何 2 個不相識的人，在該子集中恰好只有 1 個人認識這兩個人。 則滿足上述條件的子集最多能有 個？2將邊長為 n 的正三角形每邊 n 等分，過每個分點分別做另外兩邊的平行線，得到若干個正三角形，我們稱為小三角形。正三角形的一條通路是一條連續(xù)的折線，起點是最上面的一個小三角形，終點是最 下面一行位于中間的小三角形。在通路

10、中，只允許由一個小三角形走到另一個與其有公共邊的且位于同一行或下一行的小三角形，并且每個小三角形不能經(jīng)過兩次或兩次以上（圖中是 n=5 時一條通路的例 子）。設(shè) n=10，則該正三角形的不同的通路的總數(shù)為_ _。四閱讀程序?qū)懡Y(jié)果（共 4 題，每題 8 分，共計 32 分）1. Program ex401;varu,v:array0.3 of integer;i,x,y:integer;beginx:=10; y:=10;for i:=0 to 3 doread(ui);v0:=(u0+u1+u2+u3) div 7;v1:=u0 div (u1-u2) div u3);v2:=u0*u1 di

11、v u2*u3;v3:=v0*v1;x:=(v0+v1+2)-u(v3+3) mod 4;if (x10) theny:=y+(v2*100-v3) div (uu0 mod 3*5)elsey:=y+20+(v2*100-v3) div (uv0 mod 3*5);writeln (x,y);end. *注：本例中，給定的輸入數(shù)據(jù)可以避免分母為 0 或下標越界。 輸入：9 3 9 4輸出：2.Program ex402;constm:array0.4 of integer=(2,3,5,7,13);vari,j:integer;t: longint;beginfor i:=0 to 4 do

12、begint:=1;for j:=1 to mi-1 do t:=t*2;t:=(t*2-1)*t;write (t, );end;writeln;end.輸出:_3. Program ex403;Const NN=7;TypeArr1=array0.30 of char;Vars:arr1;k,p:integer;function fun1(s:arr1; a:char;n:integer):integer; varj:integer;beginj:=n;while (a0) do dec(j);fun1:=j;end;Function fun2(s:arr1; a:char; n:inte

13、ger):integer; varj:integer;beginj:=1;while (asj)and(j0) thenbeginn2:=n mod 10;write(n2:2);if(m1) then digit(n div 10,m div 10);n2:=n mod 10;write(n2:2);end;end;beginwriteln(Input a number:);readln(x);x2:=1;while(x2x) do x2:=x2*10;x2:=x2 div 10;digit(x,x2);writeln;end.輸入：9734526輸出：五完善程序 (前 5 空，每空 2 分

14、，后 6 空，每空 3 分，共 28 分)1（選排列）下面程序的功能是利用遞歸方法生成從 1 到 n(n10)的 n 個數(shù)中取 k(1=k=n)個數(shù)的 全部可能的排列（不一定按升序輸出）。例如，當 n=3，k=2 時，應該輸出（每行輸出 5 個排列）：12 13 21 23 3231程序：Program ex501;Var i,n,k:integer;a:array1.10 of integer;count:longint;Procedure perm2(j:integer);var i,p,t:integer;thenbeginfor i:=k to n dobegininc(count);

15、do write(ap:1);write( );t:=ak;ak:=ai;ai:=t;if (count mod 5=0) then writeln;end;exit;end;for i:=j to n do beginendend;beginwriteln(Entry n,k (k4-2-1-5-3。遺傳算法的核心是通過兩個個體的交叉操作，產(chǎn)生兩 個新的個體。下面的程序給出了最簡單的一種交叉算法。具體過程如下：(1)選定中間一段作為互換段，該段的起止下標為 t1，t2，隨機生成 t1，t2 后，互換兩段。(2)互換后，在每個新的排列中可能有重復數(shù)字，因而不能作為新個體的編碼，一般再做兩步處理

16、：(2.1) 將兩個互換段中，共同的數(shù)字標記為 0，表示已處理完。(2.2) 將兩個互換段中其余數(shù)字標記為 1，按順序?qū)⒒Q段外重復的數(shù)字進行替換。例如：n=12，兩個個體分別是：a1: 1 3 5 4 * 2 6 7 9 * 10 12 8 11a2: 3 2 1 12 * 6 7 10 11 * 8 5 4 9t1=5，t2=8。上述每一行中，兩個星號間的部分為互換段。假定數(shù)組的下標從 1 開始，互換后有：a1: 1 3 5 4 * 6 7 10 11 * 10 12 8 11a2: 3 2 1 12 * 2 6 7 9 * 8 5 4 9然后，將數(shù)字 6,7 對應的項標記為 0，星號內(nèi)數(shù)

17、字 2,9,10,11 對應的項標記為 1，并且按順序?qū)?應關(guān)系為:102，119。于是，將 a19=10 替換為 a19=2，將 a22=2 替換為 a22=10， 類似再做第 2 組替換。這樣處理后，就得到了兩個新個體：a1: 1 3 5 4 6 7 10 11 2 12 8 9a2: 3 10 1 12 2 6 7 9 8 5 4 11（3）輸出兩個新個體的編碼。程序：program ex502;type arr1=array1.20 of integer;vara1,a2,kz1,kz2:arr1;n,k,t1,t2:integer;function rand1(k:integer):

18、integer;var t:integer;begint:=0;while (tk) dot:=random(k+1)-2;rand1:=t;end;procedure read1(var a:arr1;m:integer);讀入數(shù)組元素 a1至 am，a0=0，略。procedure wrt1(var a:arr1;m:integer);輸出數(shù)組元素 a1至 am，略。procedure cross(var a1,a2:arr1;t1, t2,n:integer);vari,j,t,kj:integer;beginfor i:=t1 to t2 dobeginend;for i:=1 to

19、n doif (it2) thenbeginkz1i:=-1;kz2i:=-1;endelseend;for i:=t1 to t2 dofor j:=t1 to t2 doif(a1i=a2j) thenbreak; end; for i:=t1 to t2 doif(kz1i=1) thenbeginfor j:=t1 to t2 doif(kz2j=1) thenbegin kj:=j; break; end;for j:=1 to n dothenbegin a1j:=a2kj;break; end;thenbegin a2j:=a1i; break; end; kz1i:=0;kz2kj:=0;end;end;beginwriteln(input (n5):);readln(n);writeln(input array 1:); read1(a1,n); writeln(input arr