NOIP2013初賽提高組Pascal試題及答案

1、第十九屆全國青少年信息學(xué)奧林匹克聯(lián)賽初賽提高組 Pascal 語言試題競賽時間：2013 年 10 月 13 日 14:3016:30選手注意：l試題紙共有 12 頁，答題紙共有 2 頁，滿分 100 分。請?jiān)诖痤}紙上作答，寫在試題紙上 的一律無效。l不得使用任何電子設(shè)備（如計(jì)算器、手機(jī)、電子詞典等）或查閱任何書籍資料。一、單項(xiàng)選擇題（共 15 題，每題 1.5 分，共計(jì) 22.5 分；每題有且僅有一個正確 選項(xiàng)）1.一個 32 位整型變量占用（）個字節(jié)。A.4B.8C.32D.1282.二進(jìn)制數(shù) 11.01 在十進(jìn)制下是（）。A.3.25B.4.125C.6.25D.11.1253.下面的故

2、事與（）算法有著異曲同工之妙。從前有座山，山里有座廟，廟里有個老和尚在給小和尚講故事：從前有座山，山 里有座廟，廟里有個老和尚在給小和尚講故事：從前有座山，山里有座廟，廟里有個 老和尚給小和尚講故事.A.枚舉B.遞歸C.貪心D.分治4.1948 年，（）將熱力學(xué)中的熵引入信息通信領(lǐng)域，標(biāo)志著信息論研究的開端。A.馮·諾伊曼（John von Neumann）B.圖靈（Alan Turing）C.歐拉（Leonhard Euler）D.克勞德·香農(nóng)（Claude Shannon）5.已知一棵二叉樹有 2013 個節(jié)點(diǎn)，則其中至多有（）個節(jié)點(diǎn)有 2 個子節(jié)點(diǎn)。A.1006B.1

3、007C.1023D.10246. 在一個無向圖中，如果任意兩點(diǎn)之間都存在路徑相連，則稱其為連通 圖。右圖是一個有 5 個頂點(diǎn)、8 條邊的連通圖。若要使它不再是連通 圖，至少要刪去其中的（ ）條邊。CCF NOIP2013 初賽提高組 Pascal 語言試題第 12 頁，共 12 頁A.2B.3C.4D.57.斐波那契數(shù)列的定義如下：F1 = 1, F2 = 1, Fn = Fn 1 + Fn 2 (n 3)。如果用下面的函數(shù)計(jì) 算斐波那契數(shù)列的第 n 項(xiàng)，則其時間復(fù)雜度為（）。funtion F(n : longint) : longint;beginif n <= 2 thenF :

4、= 1 elseF := F(n - 1) + F(n - 2);end;A.O(1)B.O(n)C.O(n2)D.O(Fn)8.二叉查找樹具有如下性質(zhì)：每個節(jié)點(diǎn)的值都大于其左子樹上所有節(jié)點(diǎn)的值、小于其右子 樹上所有節(jié)點(diǎn)的值。那么，二叉查找樹的（）是一個有序序列。A.先序遍歷B.中序遍歷C.后序遍歷D.寬度優(yōu)先遍歷9.將（2, 6, 10, 17）分別存儲到某個地址區(qū)間為 010 的哈希表中，如果哈希函數(shù) h(x) =（），將不會產(chǎn)生沖突，其中 a mod b 表示 a 除以 b 的余數(shù)。A.x mod 11B.x2 mod 11C.2x mod 11D. mod 11，其中 表示 下取整10

5、. IPv4 協(xié)議使用 32 位地址，隨著其不斷被分配，地址資源日趨枯竭。因此，它正逐漸被使用（）位地址的 IPv6 協(xié)議所取代。A.40B.48C.64D.12811. 二分圖是指能將頂點(diǎn)劃分成兩個部分，每一部分內(nèi)的頂點(diǎn)間沒有邊相連的簡單無向圖。 那么，12 個頂點(diǎn)的二分圖至多有（）條邊。A.18B.24C.36D.6612. （）是一種通用的字符編碼，它為世界上絕大部分語言設(shè)定了統(tǒng)一并且唯一的二進(jìn) 制編碼，以滿足跨語言、跨平臺的文本交換。目前它已經(jīng)收錄了超過十萬個不同字符。A.ASCIIB.UnicodeC.GBK 2312D.BIG513. 把 64 位非零浮點(diǎn)數(shù)強(qiáng)制轉(zhuǎn)換成 32 位浮點(diǎn)

6、數(shù)后，不可能（）。A.大于原數(shù)B.小于原數(shù)C.等于原數(shù)D.與原數(shù)符號相反14. 對一個 n 個頂點(diǎn)、m 條邊的帶權(quán)有向簡單圖用 Dijkstra 算法計(jì)算單源最短路時，如果不使用堆或其它優(yōu)先隊(duì)列進(jìn)行優(yōu)化，則其時間復(fù)雜度為（）。A.O(mn + n3)B.O(n2)C.O(m + n) log n)D.O(m + n2) log n)15. T(n)表示某個算法輸入規(guī)模為 n 時的運(yùn)算次數(shù)。如果 T(1)為常數(shù)，且有遞歸式 T(n) =2*T(n / 2) + 2n，那么 T(n) = （）。A.(n)B.(n log n)C.(n2)D.(n2 log n)二、不定項(xiàng)選擇題（共 5 題，每題

7、1.5 分，共計(jì) 7.5 分；每題有一個或多個正確 選項(xiàng)，多選或少選均不得分）1.下列程序中，正確計(jì)算 1, 2, , 100 這 100 個自然數(shù)之和 sum（初始值為 0）的是（）。A.for i := 1 to 100 do sum := sum + i;B.i := 1;while i > 100 do beginsum := sum + i;inc(i);end;C.i := 1;repeatsum := sum + i;inc(i);until i > 100;D.i := 1;repeatsum := sum + i;inc(i);until i <= 100;

8、2.（）的平均時間復(fù)雜度為 O(n log n)，其中 n 是待排序的元素個數(shù)。A.快速排序B.插入排序C.冒泡排序D.歸并排序3.以 A0 作為起點(diǎn)，對下面的無向圖進(jìn)行深度優(yōu)先遍歷時（遍歷的順序與頂點(diǎn)字母的下標(biāo) 無關(guān)），最后一個遍歷到的頂點(diǎn)可能是（）。A.A1B.A2C.A3D.A44.（）屬于 NP 類問題。A.存在一個 P 類問題B.任何一個 P 類問題C.任何一個不屬于 P 類的問題D.任何一個在（輸入規(guī)模的）指數(shù)時間內(nèi)能夠解決的問題5.CCF NOIP 復(fù)賽考試結(jié)束后，因（）提出的申訴將不會被受理。A.源程序文件名大小寫錯誤B.源程序保存在指定文件夾以外的位置C.輸出文件的文件名錯誤

9、D.只提交了可執(zhí)行文件，未提交源程序三、問題求解（共 2 題，每題 5 分，共計(jì) 10 分；每題全部答對得 5 分，沒有部 分分）1.某系統(tǒng)自稱使用了一種防竊聽的方式驗(yàn)證用戶密碼。密碼是 n 個數(shù) s1, s2, , sn，均為 0或 1。該系統(tǒng)每次隨機(jī)生成 n 個數(shù) a1, a2, , an，均為 0 或 1，請用戶回答(s1a1 + s2a2 + + snan)除以 2 的余數(shù)。如果多次的回答總是正確，即認(rèn)為掌握密碼。該系統(tǒng)認(rèn)為，即使 問答的過程被泄露，也無助于破解密碼因?yàn)橛脩舨]有直接發(fā)送密碼。然而，事與愿違。例如，當(dāng) n = 4 時，有人竊聽了以下 5 次問答：問答編號系統(tǒng)生成的 n

10、個數(shù)掌握密碼的用戶的回答a1a2a3a4111001200110301100411100510000就破解出了密碼 s1 = ，s2 = ，s3 = ，s4 = 。2. 現(xiàn)有一只青蛙，初始時在 n 號荷葉上。當(dāng)它某一時刻在 k 號荷葉上時，下一時刻將等概 率地隨機(jī)跳到 1, 2, , k 號荷葉之一上，直至跳到 1 號荷葉為止。當(dāng) n = 2 時，平均一共 跳 2 次；當(dāng) n = 3 時，平均一共跳 2.5 次。則當(dāng) n = 5 時，平均一共跳 次。12345四、閱讀程序?qū)懡Y(jié)果（共 4 題，每題 8 分，共計(jì) 32 分）1.varn, i : integer; str : string; is

11、Plalindrome : boolean;begin readln(str);n := Length(str);isPlalindrome := true;for i := 1 to (n div 2) do beginif (stri <> strn-i+1) thenisPlalindrome := false;end;if (isPlalindrome) then writeln('Yes')elsewriteln('No');end.輸入：abceecba輸出： 2.vara, b, u, v, i, num : integer;begin

12、readln(a, b, u, v);num := 0;for i := a to b do beginif (i mod u = 0) or (i mod v = 0) then inc(num);end;writeln(num);end.輸入：1 1000 10 15輸出： 3.const SIZE = 100;varn, ans, i, j : integer;height, num : array1.SIZE of integer;begin read(n);for i := 1 to n do beginread(heighti);numi := 1;for j := 1 to i-

13、1 do beginif (heightj < heighti) and (numj >= numi) thennumi := numj+1;end;end;ans := 0;for i := 1 to n do beginif (numi > ans) thenans := numi;end;writeln(ans);end.輸入：83 2 5 11 12 7 4 10輸出： 4.const SIZE = 100;varn, m, p, count, ans, x, y, i, j : integer;a : array1.SIZE, 1.SIZE of integer;p

14、rocedure colour(x, y : integer);begin inc(count); axy := 1;if (x > 1) and (ax-1y = 0) then colour(x-1, y);if (y > 1) and (axy-1 = 0) thencolour(x, y-1);if (x < n) and (ax+1y = 0) then colour(x+1, y);if (y < m) and (axy+1 = 0) thencolour(x, y+1);end;beginfillchar(a, sizeof(a), 0);readln(n

15、, m, p); for i := 1 to p do beginread(x, y);axy := 1;end;ans := 0;for i := 1 to n dofor j := 1 to m doif aij = 0 then begincount := 0;colour(i, j);if (ans < count) then ans := count;end;writeln(ans);end.輸入：65 9142324324143455464輸出： 五、完善程序（第 1 題 15 分，第 2 題 13 分，共計(jì) 28 分）1.（序列重排）全局?jǐn)?shù)組變量 a 定義如下：const

16、int SIZE = 100;int aSIZE, n;它記錄著一個長度為 n 的序列 a1, a2, , an?，F(xiàn)在需要一個函數(shù)，以整數(shù) p (1 p n)為參數(shù)，實(shí)現(xiàn)如下功能：將序列 a 的前 p 個數(shù)與后 n p 個數(shù)對調(diào)，且不改變這 p 個數(shù)（或 n p 個數(shù)）之間的相對位置。例如， 長度為 5 的序列 1, 2, 3, 4, 5，當(dāng) p = 2 時重排結(jié)果為 3, 4, 5, 1, 2。有一種樸素的算法可以實(shí)現(xiàn)這一需求，其時間復(fù)雜度為 O(n)、空間復(fù)雜度為 O(n)：procedure swap1(p : longint);vari, j : longint;b : array1.

17、SIZE of longint;beginfor i := 1 to p dob(1) := ai;/（2 分）for i := p + 1 to n do bi - p := ai;for i := 1 to n doai := bi;end;我們也可以用時間換空間，使用時間復(fù)雜度為 O(n2)、空間復(fù)雜度為 O(1)的算法：procedure swap2(p : longint);vari, j, temp : longint;beginfor i := p + 1 to n do begintemp := ai;for j := i downto(4)do/（2 分）aj := aj -

18、 1;(5):= temp;/（2 分）end;end;事實(shí)上，還有一種更好的算法，時間復(fù)雜度為 O(n)、空間復(fù)雜度為 O(1)：procedure swap3(p : longint);varstart1, end1, start2, end2, i, j, temp : longint;beginstart1 := 1;end1 := p;start2 := p + 1;end2 := n; while true do begini := start1;j := start2;while (i <= end1) and (j <= end2) do begintemp :=

19、ai;ai := aj;aj := temp; inc(i); inc(j);end;if i <= end1 then start1 := ielse if(4)then/（3 分）beginstart1 := (5) ; /（3 分） end1 := (6) ; /（3 分） start2 := j;end elsebreak;end;end;2. （兩元序列）試求一個整數(shù)序列中，最長的僅包含兩個不同整數(shù)的連續(xù)子序列。如有多 個子序列并列最長，輸出任意一個即可。例如，序列“1 1 2 3 2 3 2 3 3 1 1 1 3 1”中， 有兩段滿足條件的最長子序列，長度均為 7，分別用下

20、劃線和上劃線標(biāo)出。program two;const SIZE = 100;varn, i, j, cur1, cur2, count1, count2, ans_length, ans_start, ans_end : longint;/cur1, cur2 分別表示當(dāng)前子序列中的兩個不同整數(shù)/count1, count2 分別表示 cur1, cur2 在當(dāng)前子序列中出現(xiàn)的次數(shù)a : array1.SIZE of longint;begin readln(n);for i := 1 to n do read(ai);i := 1;j := 1;/i, j 分別表示當(dāng)前子序列的首尾，并保證其

21、中至多有兩個不同整數(shù)while (j <= n) and (aj = ai) do inc(j);cur1 := ai;cur2 := aj;count1 :=j-1;/（3 分）count2 := 1;ans_length := j - i + 1;while j < n do begininc(j);if aj = cur1 then inc(count1)else if aj = cur2 then inc(count2)else beginif aj - 1 =cur1then/（3 分）beginwhile count2 > 0 do beginif ai = cu

22、r1 then dec(count1)elsedec(count2);inc(i);end;cur2 := aj;count2 := 1;endelse beginwhile count1 > 0 do beginif ai = cur1 thenDec(count1)/（2 分）elseInc(coun;/（2 分）inc(i);end;Cur1:=aj;/（3 分）count1 := 1;end;end;if (ans_length < j - i + 1) then beginans_length := j - i + 1;ans_start := i;ans_end := j;end;end;for i := ans_start to ans_end do write(ai, ' ');end.NOIP2013 初賽提高組（Pascal語言）試題參考解答一、單項(xiàng)選擇123456