資源簡介

2003年第九屆NOIP復賽試題（提高組） 發布日期: 2006-01-22 訪問總次數: 4865 題一 神經網絡【問題背景】 人工神經網絡（Artificial Neural Network）是一種新興的具有自我學習能力的計算系統，在模式識別、函數逼近及貸款風險評估等諸多領域有廣泛的應用。對神經網絡的研究一直是當今的熱門方向，蘭蘭同學在自學了一本神經網絡的入門書籍后，提出了一個簡化模型，他希望你能幫助他用程序檢驗這個神經網絡模型的實用性。【問題描述】 在蘭蘭的模型中，神經網絡就是一張有向圖，圖中的節點稱為神經元，而且兩個神經 圖中，X1—X3是信息輸入渠道，Y1－Y2是信息輸出渠道，C1表示神經元目前的狀態，Ui是閾值，可視為神經元的一個內在參數。 神經元按一定的順序排列，構成整個神經網絡。在蘭蘭的模型之中，神經網絡中的神經無分為幾層；稱為輸入層、輸出層，和若干個中間層。每層神經元只向下一層的神經元輸出信息，只從上一層神經元接受信息。下圖是一個簡單的三層神經網絡的例子。蘭蘭規定，Ci服從公式：（其中n是網絡中所有神經元的數目） 公式中的Wji（可能為負值）表示連接j號神經元和 i號神經元的邊的權值。當 Ci大于0時，該神經元處于興奮狀態，否則就處于平靜狀態。當神經元處于興奮狀態時，下一秒它會向其他神經元傳送信號，信號的強度為Ci。 如此．在輸入層神經元被激發之后，整個網絡系統就在信息傳輸的推動下進行運作。現在，給定一個神經網絡，及當前輸入層神經元的狀態（Ci），要求你的程序運算出最后網絡輸出層的狀態。【輸入格式】輸入文件第一行是兩個整數n（1≤n≤20）和p。接下來n行，每行兩個整數，第i＋1行是神經元i最初狀態和其閾值（Ui），非輸入層的神經元開始時狀態必然為0。再下面P行，每行由兩個整數i，j及一個整數Wij，表示連接神經元i、j的邊權值為Wij。【輸出格式】 輸出文件包含若干行，每行有兩個整數，分別對應一個神經元的編號，及其最后的狀態，兩個整數間以空格分隔。僅輸出最后狀態非零的輸出層神經元狀態，并且按照編號由小到大順序輸出！ 若輸出層的神經元最后狀態均為 0，則輸出 NULL。【輸入樣例】5 61 01 00 10 10 11 3 11 4 11 5 12 3 12 4 12 5 1【輸出樣例】3 14 15 1 題二 偵探推理【問題描述】明明同學最近迷上了偵探漫畫《柯南》并沉醉于推理游戲之中，于是他召集了一群同學玩推理游戲。游戲的內容是這樣的，明明的同學們先商量好由其中的一個人充當罪犯（在明明不知情的情況下），明明的任務就是找出這個罪犯。接著，明明逐個詢問每一個同學，被詢問者可能會說：證詞中出現的其他話，都不列入邏輯推理的內容。明明所知道的是，他的同學中有N個人始終說假話，其余的人始終說真。現在，明明需要你幫助他從他同學的話中推斷出誰是真正的兇手，請記住，兇手只有一個！【輸入格式】 輸入由若干行組成，第一行有二個整數，M（1≤M≤20）、N（1≤N≤M）和P（1≤P≤100）；M是參加游戲的明明的同學數，N是其中始終說謊的人數，P是證言的總數。接下來M行，每行是明明的一個同學的名字（英文字母組成，沒有主格，全部大寫）。往后有P行，每行開始是某個同學的名宇，緊跟著一個冒號和一個空格，后面是一句證詞，符合前表中所列格式。證詞每行不會超過250個字符。 輸入中不會出現連續的兩個空格，而且每行開頭和結尾也沒有空格。【輸出格式】 如果你的程序能確定誰是罪犯，則輸出他的名字；如果程序判斷出不止一個人可能是罪犯，則輸出 Cannot Determine；如果程序判斷出沒有人可能成為罪犯，則輸出 Impossible。【輸入樣例】3 1 5MIKECHARLESKATEMIKE:I am guilty.MIKE:Today is Sunday.CHARLES:MIKE is guilty．KATE:I am guilty.KATE:How are you 【輸出樣例】MIKE 題三 加分二叉樹【問題描述】 設一個n個節點的二叉樹tree的中序遍歷為（l,2,3,…,n），其中數字1,2,3,…,n為節點編號。每個節點都有一個分數（均為正整數），記第j個節點的分數為di，tree及它的每個子樹都有一個加分，任一棵子樹subtree（也包含tree本身）的加分計算方法如下： subtree的左子樹的加分× subtree的右子樹的加分＋subtree的根的分數 若某個子樹為主，規定其加分為1，葉子的加分就是葉節點本身的分數。不考慮它的空子樹。 試求一棵符合中序遍歷為（1,2,3,…,n）且加分最高的二叉樹tree。要求輸出； （1）tree的最高加分 （2）tree的前序遍歷【輸入格式】 第1行：一個整數n（n＜30），為節點個數。 第2行：n個用空格隔開的整數，為每個節點的分數（分數＜100）。【輸出格式】 第1行：一個整數，為最高加分（結果不會超過4,000,000,000）。 第2行：n個用空格隔開的整數，為該樹的前序遍歷。【輸入樣例】 5 5 7 1 2 10【輸出樣例】 145 3 1 2 4 5 題四 傳染病控制 【問題背景】 近來，一種新的傳染病肆虐全球。蓬萊國也發現了零星感染者，為防止該病在蓬萊國大范圍流行，該國政府決定不惜一切代價控制傳染病的蔓延。不幸的是，由于人們尚未完全認識這種傳染病，難以準確判別病毒攜帶者，更沒有研制出疫苗以保護易感人群。于是，蓬萊國的疾病控制中心決定采取切斷傳播途徑的方法控制疾病傳播。經過 WHO（世界衛生組織）以及全球各國科研部門的努力，這種新興傳染病的傳播途徑和控制方法已經研究消楚，剩下的任務就是由你協助蓬萊國疾控中心制定一個有效的控制辦法。 【問題描述】 研究表明，這種傳染病的傳播具有兩種很特殊的性質； 第一是它的傳播途徑是樹型的，一個人X只可能被某個特定的人Y感染，只要Y不得病，或者是XY之間的傳播途徑被切斷，則X就不會得病。 第二是，這種疾病的傳播有周期性，在一個疾病傳播周期之內，傳染病將只會感染一代患者，而不會再傳播給下一代。 這些性質大大減輕了蓬萊國疾病防控的壓力，并且他們已經得到了國內部分易感人群的潛在傳播途徑圖（一棵樹）。但是，麻煩還沒有結束。由于蓬萊國疾控中心人手不夠，同時也缺乏強大的技術，以致他們在一個疾病傳播周期內，只能設法切斷一條傳播途徑，而沒有被控制的傳播途徑就會引起更多的易感人群被感染（也就是與當前已經被感染的人有傳播途徑相連，且連接途徑沒有被切斷的人群）。當不可能有健康人被感染時，疾病就中止傳播。所以，蓬萊國疾控中心要制定出一個切斷傳播途徑的順序，以使盡量少的人被感染。你的程序要針對給定的樹，找出合適的切斷順序。【輸入格式】 輸入格式的第一行是兩個整數n（1≤n≤300）和p。接下來p行，每一行有兩個整數i和j，表示節點i和j間有邊相連（意即，第i人和第j人之間有傳播途徑相連）。其中節點1是已經被感染的患者。【輸出格式】 只有一行，輸出總共被感染的人數。【輸入樣例】 7 6 1 2 1 3 2 4 2 5 3 6 3 7【輸出樣例】 3













HYPERLINK "http://www./" \t "_blank"






元
之間至多有一條邊相連，下圖是一個神經元的例子：
2004年第十屆NOIP初賽試題（普及組） 發布日期: 2006-02-09 訪問總次數: 6304 第十屆全國青少年信息學奧林匹克聯賽初賽試題（ 普及組 Pascal 語言 二小時完成 ） ●● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●● 一．選擇一個正確答案代碼（A/B/C/D/E）,填入每題的括號內 (每題1.5分, 共30分) 1. 美籍匈牙利數學家馮·諾依曼對計算機科學發展所做出的貢獻是（C）。A. 提出理想計算機的數學模型，成為計算機科學的理論基礎。B. 是世界上第一個編寫計算機程序的人。C. 提出存儲程序工作原理，并設計出第一臺具有存儲程序功能的計算機EDVAC。D. 采用集成電路作為計算機的主要功能部件。E. 指出計算機性能將以每兩年翻一番的速度向前發展。 2. 下列哪個不是CPU（中央處理單元）（B）。A. Intel Itanium B. DDR SDRAM C. AMD Athlon64D. AMD Opteron E. IBM Power 5 3. 下列網絡上常用的名字縮寫對應的中文解釋錯誤的是（D）。A. WWW（World Wide Web）：萬維網。B. URL（Uniform Resource Locator）：統一資源定位器。C. HTTP（Hypertext Transfer Protocol）：超文本傳輸協議。D. FTP（File Transfer Protocol）：快速傳輸協議。E. TCP（Transfer Control Protocol）：傳輸控制協議。 4. 下面哪個部件對于個人桌面電腦的正常運行不是必需的（C）。A. CPU B. 圖形卡（顯卡） C. 光驅 D. 主板 E. 內存 5. 下列哪個軟件屬于操作系統軟件（D）。A. Microsoft Word B. 金山詞霸 C. Foxmail D. WinRAR E. Red Hat Linux 6. 下列哪個不是計算機的存儲設備（E）。A. 文件管理器 B. 內存 C. 高速緩存 D. 硬盤 E. U盤 7. 下列說法中錯誤的是（E）。A. CPU的基本功能就是執行指令。B. CPU訪問內存的速度快于訪問高速緩存的速度。C. CPU的主頻是指CPU在1秒內完成的指令周期數。D. 在一臺計算機內部，一個內存地址編碼對應唯一的一個內存單元。E. 數據總線的寬度決定了一次傳遞數據量的大小，是影響計算機性能的因素之一。 8. 彩色顯示器所顯示的五彩斑斕的色彩，是由紅色、藍色和（D）色混合而成的。A. 紫 B. 白 C. 黑 D. 綠 E. 橙 9. 用靜電吸附墨粉后轉移到紙張上，是哪種輸出設備的工作方式（E）。A. 針式打印機 B. 噴墨打印機 C. 激光打印機 D. 筆式繪圖儀 E. 噴墨繪圖儀 10. 一臺計算機如果要利用電話線上網，就必須配置能夠對數字信號和模擬信號進行相互轉換的設備，這種設備是（B）。A. 調制解調器 B. 路由器 C. 網卡 D. 網關 E. 網橋 11. 下列哪個不是數據庫軟件的名稱（E）。A. MySQL B. SQL Server C. Oracle D. 金山影霸 E. Foxpro 12. 下列哪個程序設計語言不支持面向對象程序設計方法（D）。A. C++ B. Object Pascal C. C D. Smalltalk E. Java 13. 由3個a，1個b和2個c構成的所有字符串中，包含子串“abc”的共有（E）個。A. 20 B. 8 C. 16 D. 12 E. 24 14. 某個車站呈狹長形，寬度只能容下一臺車，并且只有一個出入口。已知某時刻該車站狀態為空，從這一時刻開始的出入記錄為：“進，出，進，進，出，進，進，進，出，出，進，出”。假設車輛入站的順序為1，2，3，……，則車輛出站的順序為（C）。A. 1, 2, 3, 4, 5 B. 1, 2, 4, 5, 7 C. 1, 3, 5, 4, 6 D. 1, 3, 5, 6, 7 E. 1, 3, 6, 5, 7 15. 二叉樹T，已知其前序遍歷序列為1 2 4 3 5 7 6，中序遍歷序列為4 2 1 5 7 3 6，則其后序遍歷序列為（B）。A. 4 2 5 7 6 3 1 B. 4 2 7 5 6 3 1 C. 4 2 7 5 3 6 1 D. 4 7 2 3 5 6 1 E. 4 5 2 6 3 7 1 16. 滿二叉樹的葉結點個數為N，則它的結點總數為（C）。A. N B. 2 * N C. 2 * N – 1 D. 2 * N + 1 E. 2N – 1 17. 十進制數2004等值于八進制數（B）。A. 3077 B. 3724 C. 2766 D. 4002 E. 3755 18. (2004)10 + (32)16的結果是（D）。A. (2036)10 B. (2054)16 C. (4006)10 D. (100000000110)2 E. (2036)16 19. 在下圖中，從頂點（D）出發存在一條路徑可以遍歷圖中的每條邊一次，而且僅遍歷一次。 A. A點 B. B點 C. C點 D. D點 E. E點 20. 某大學計算機專業的必修課及其先修課程如下表所示： 課程代號C0C1C2C3C4C5C6C7課程名稱高等數學程序設計語言離散數學數據結構編譯技術操作系統普通物理計算機原理先修課程 C0, C1C1, C2C3C3, C7C0C6 請你判斷下列課程安排方案哪個是不合理的（D）。A. C0, C6, C7, C1, C2, C3, C4, C5 B. C0, C1, C2, C3, C4, C6, C7, C5C. C0, C1, C6, C7, C2, C3, C4, C5 D. C0, C1, C6, C7, C5, C2, C3, C4E. C0, C1, C2, C3, C6, C7, C5, C4 二．問題求解 （每題5分，共10分） 1. 一個家具公司生產桌子和椅子。現在有113個單位的木材。每張桌子要使用20個單位的木材，售價是30元；每張椅子要使用16個單位的木材，售價是20元。使用已有的木材生產桌椅（不一定要把木材用光），最多可以賣 元錢。 2. 75名兒童到游樂場去玩。他們可以騎旋轉木馬，坐滑行鐵道，乘宇宙飛船。已知其中20人這三種東西都玩過，55人至少玩過其中的兩種。若每樣乘坐一次的費用是5元，游樂場總共收入700，可知有 名兒童沒有玩過其中任何一種。 三．閱讀程序 （每題8分，共32分） 1．program program1;var a, b, c, d, e: integer;begin a := 79; b := 34; c := 57; d := 0; e := -1; if (a < c) or (b > c) then d := d + e else if (d + 10 < e) then d := e + 10 else d := e - a; writeln(d);end.輸出：80。 2．program program2;var i, j: integer; str1, str2: string;begin str1 := 'pig-is-stupid'; str2 := 'clever'; str1[1] := 'd'; str1[2] := 'o'; i := 8; for j := 1 to 6 do begin str1[i] := str2[j]; inc(i); end; writeln(str1);end.輸出：dog-is-clever。 3．program progam3;var u: array [0..3] of integer; a, b, c, x, y, z: integer;begin read(u[0], u[1], u[2], u[3]); a := u[0] + u[1] + u[2] + u[3] - 5; 18 b := u[0] * (u[1] - u[2] div u[3] + 8); 18 c := u[0] * u[1] div u[2] * u[3]; 4 x := (a + b + 2) * 3 - u[(c + 3) mod 4]; 109 y := (c * 100 - 13) div a div (u[b mod 3] * 5); 10 if((x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2; z := (a + b + c – x - y) * 2; writeln(x + y - z);end輸入：2 5 7 4輸出：263。 4．program program4;var c: array[1..3] of string[200]; s: array[1..10] of integer; m, n, i: integer;procedure numara;var cod: boolean; i, j, nr: integer;begin for j := 1 to n do begin nr := 0; cod := true; for i := 1 to m do if c[i, j] = '1' then begin if not cod then begin cod := true; inc(s[nr]); nr := 0; end end else begin if cod then begin nr := 1; cod := false; end else inc(nr); end; if not cod then inc(s[nr]); end;end;begin readln(m, n); for i := 1 to m do readln(c[i]); numara; for i := 1 to m do if s[i] <> 0 then write(i, ' ', s[i], ' ');end.輸入：3 101110000111 11000011111000000011輸出：1 4 2 1 3 3。 四、完善程序 (前4空，每空2分，后5空，每空4分，共28分) 1．三角形內切圓的面積題目描述:給出三角形三邊的邊長，求此三角形內切圓（如下圖所示，三角形的內切圓是和三角形三邊都相切的圓）的面積。 輸入:三個正實數a、b、c（滿足a+b>c，b+c>a，c+a>b）, 表示三角形三邊的邊長。輸出:三角形內切圓的面積，結果四舍五入到小數點后面2位。輸入樣例:3 4 5輸出樣例:3.14程序：program program1;var a, b, c, r, s, t: real;begin read(a, b, c); s := ( ① ) / 2; t := ② (s * (s - a) * (s - b) * (s - c)); r := t / s; writeln(3.1415927 * r * ③ : 0 : ④ );end. 2．Joseph題目描述:原始的Joseph問題的描述如下：有n個人圍坐在一個圓桌周圍，把這n個人依次編號為1，…，n。從編號是1的人開始報數，數到第m個人出列，然后從出列的下一個人重新開始報數，數到第m個人又出列，…，如此反復直到所有的人全部出列為止。比如當n=6，m=5的時候，出列的順序依次是5，4，6，2，3，1。現在的問題是：假設有k個好人和k個壞人。好人的編號的1到k，壞人的編號是k+1到2k。我們希望求出m的最小值，使得最先出列的k個人都是壞人。輸入:僅有的一個數字是k（0 < k <14）。輸出: 使得最先出列的k個人都是壞人的m的最小值。輸入樣例:4輸出樣例:30程序：program program2;var i, k, m, start: longint; find: boolean;function check(remain: integer): boolean;var result: integer;begin result:=( ① ) mod remain; if( ② )then begin start := result; check := true; end else check := false;end;begin find := false; read(k); m := k; while ( ③ ) do begin find := true; start := 0; for i := 0 to k-1 do if( not check( ④ )) then begin find := false; break; end; inc(m); end; writeln( ⑤ );end. 信息學競賽普及組初賽模擬試題(一)
(本試題全部為筆試，滿分100分)
試題由四部分組成：1、選擇題　2、問題求解題　3、程序閱讀理解題　4、程序完善題
一、選擇題：共20題，每題1.5分，共計30分。每題有5個備選答案，前10個題為單選題（即每題有且只有一個正確答案，選對得分），后10題為不定項選擇題（即每題有1至5個正確答案，只有全部選對才得分）。
1、計算機網絡最大的優點是　 。
A、精度高　　B、資源共享　　C、運行速度快　　D、存儲容量大　E、邏輯判斷能力強
2、計算機病毒是指　 。
A、編制有錯誤的計算機程序　B、設計不完善的計算機程序　C、計算機的程序已被破壞
D、以危害系統為目的的特殊的計算機程序　D、沒有經過編譯的計算機程序
3、在各種查找算法中，平均查找長度(與關鍵字比較次數的期望值)與查找表中元素個數 n 無關的查找方法是____。
A. 順序查找　B. 散列查找　C. 折半查找　D. 動態查找　E、二分查找
4、下列各數中最大的是____。
A、 11010110.0101(二進制)　　B、D6.53(十六進制)　C、 214.32(十進制) 　　　　　　　
D、326.25(八進制)　　E、23.26（三十二進制）
5.已知英文字母a的ASCll代碼值是十六進制數61H,那么字母d的ASCll 代碼值是　
A)34H B)54H C)24H D)64H　　E）74H
6、若一臺計算機的字長為 32 位，則表明該機器___。
A. 能處理的數值最大為 4 位十進制數　B. 能處理的數值最多為 4 個字節
C. 在 CPU 中能夠作為一個整體加以處理的二進制數據為 4 個字節
D. 在 CPU 中運算的結果最大為 232　　　E.表示計算機的時鐘脈沖
7、編譯程序和解釋程序是兩類高級語言翻譯程序，它們的根本區別在于__。
A. 是否進行優化處理　　B. 執行效率不同　C. 對源程序中的錯誤處理不同　　
D. 是否形成目標程序　　E.編寫方式不同
8、在字符串“abcde”中有___個子串 C
A. 14　　B. 15　　C. 16　　D. 17　E.18
9、假設一棵二叉樹的后序遍歷序列為DGJHEBIFCA，中序遍歷序列為DBGEHJACIF，則其前序遍歷序列為 。
A、ABCDEFGHIJ B、ABDEGHJCFI C、ABDEGHJFIC D、ABDEGJHCFI　E、ABEDGHCJFI
10、某硬盤中共有9個盤片，16個記錄面，每個記錄面上有2100個磁道，每個磁道分為64個扇區，每扇區為512字節，則該硬盤的存儲容量為 　 。
A、590.6MB B、9225MB C、1050MB D、1101MB　　E、1200M
11、以下屬于文件管理的是（D）
A. 刪除文件　B. 拷貝文件　C. 移動文件　D. 運行文件　E、剪切文件
12、圖標是Windows操作系統中的一個重要概念，它表示Windows的對象。它可以指B 。
A、文檔或文件夾 　B、應用程序　C、設備或其它的計算機　D、系統文件　　E、以上都不正確
13、發送電子郵件可包含的信息有: A、B
A、文字　B、圖片　C、聲音　D、程序　E、視頻
14、下列哪些是屬于內存儲器：B、C
A、硬盤　B、RAM　　C、ROM　D、CACHE　E、光盤
15、計算機中聲音、圖形圖像信息都是以文件的形式存儲的，它們的文件格式有許多種，可以通過擴展名來識別，常見的文件擴展名有：① BMP ② AIF ③ JPG ④ WAV ⑤ GIF ⑥ VOC 其中，表示聲音文件的有D，
A、 ①②　　B、③⑤　　C、④⑥　　D、 ②④⑥　E、②③④
16、以下數據結構中哪些不是線性結構 A
A、有向圖 B、棧 C、線索二叉樹 D、B樹　　E、隊列
17、如果互連的局域網高層分別采用TCP/IP協議與SPX/IPX協議，那么我們可以選擇的互連設備應該是：A
A、中繼器 B、網橋 C、網卡 D、路由器　E、調制解調器
18、軟件測試中，發現錯誤產生的原因依賴于所使用的調試策略，而主要的調試方法包括了B
A、試探法　B、回溯法、C、演繹法　D、歸納法　E、平均法
19、不能將高級語言源程序轉換成目標程序的是　 　
A、調試程序 B、解釋程序 C、編譯程序 D、編輯程序　E、目標程序
20、　設二維數組F的行下標為1至5，列下標為0至8，F的每個數據元素均占4個字節。在按行存貯的情況下，已知數據元素F[2,2]的第一個字節是1044，則F[3,4]和F[4,3]的第一個字節的地址分別為A　　和　　，
A、1088　 B、1084　　 C、1092 　　D、1120　　E、1124　　　
二、填空題：共2題，第一題5分，第二題5分，共計10分。
1、十位數abcdefghij，其中不同的字母表示不同的數字。a是1的倍數，兩位數ab是2的倍數，三位數abc是3的倍數，四位數abcd是4的倍數，……,十位數abcdefghij是10的倍數，則這個十位數是___ _____。
2、若今天是星期六，從今天起102001天后的那一天是星期______。
三、程序閱讀理解題：共4題，每題8分，共計32分。
1、PROGRAM exarm( output);
VAR x,y,x:integer;
PROEDURE silly(x:integer;VAR y:integer);
BEGIN
x:=5;y:=6;z:=3;
writeln(x,y,z)
END;
BEGIN
x:=1;y:=2;z:=3;
silly(x,y);
writeln(x,y,z)
END.
輸出結果為：
2、有下面程序段
FOR I：=1 TO 3 DO
BEGIN
FOR J：=1 TO 3 DO
BEGIN
IF I=3 THEN A[I，J]：=A[I-1，A[I-1，J]]+1
ELSE A[I，J]=J；
WRITE(A[I，J]：2)
END；
WRITELN
END
該程序的執行結果是：
3、PROGRAM TEST（INPUT，OUTPUT）；
VAR A，B，C：INTEGER；
PROCEDURE P（VAR X：INTEGER；Y：INTEGER）；
VAR M，N：INTEGER；
BEGIN
M：=X*Y；
X：=X+5；
Y：=Y+5；
N：=X*Y；
WRITELN（M：4，N：4）
END；
BEGIN
A：=3；B：=3；
P（A，B）；
P（A，B）
END
運行結果為：
4、PROGRAM EXAM（INPUT，OUTPUT）；
VAR A：ARRAY[1..6] OF INTEGER；
I，J，K：INTEGER；
BEGIN
FOR I：=1 TO 6 DO
READ（A[I]）;
READLN;
FOR I:=1 TO 6 DO
BEGIN
IF I=1 THEN K:=1
ELSE K:=8-I;
FOR J:=1 TO 6 DO
BEGIN
WRITE(A[K]:2);
IF K=6 THEN K:=1
ELSE K:=K+1;
END;
WRITELN
END
END
輸入：8　1　4　2　5　6
輸出結果為：

四、程序完善題：共2題，每題14分，共計28分。
1、對給定的10個國家名，按其字母的順序輸出。
程序如下：
program ex8_3;
var i,j,k:integer;
t:string[20];
cname:array[1..10] of string[20];
begin
for i:=1 to 10 do readln(cname[i]);
for i:=1 to 9 do
begin
(1) ;
for j:=i+1 to 10 do
if cname[k]>cname[j] then (2);
(3); cname[i]:=cname[k];cname[k]:=t;
end;
for i:=1 to 10 do writeln(cname[i]);
end.
2、編制用篩法求1-n(n≤200)以內素數的程序。
分析: 由希臘著名數學家埃拉托色尼提出的所謂“篩法”，步驟如下：
①將所有候選數放入篩中；
②找篩中最小數（必為素數）next，放入集合primes中；
③將next的所有倍數從篩中篩去；
④重復②～④直到篩空。
編程時，用集合變量sieve表示篩子，用集合primes存放所有素數。
源程序如下：
program ex10_3;
const n=200;
var sieve,primes:set of 2..n;
next,j:integer;
begin
sieve:=[2..n];{將所有候選數放入篩中}
primes:=[];{素數集合置空}
next:=2;
repeat
{找篩sieve中最小一個數}
while not(next in sieve) and(next<=n)do
next:=succ(next);
(4) ;{將最小數放入素數集合中}
{將這個素數的倍數從篩中刪去}
j:=next;
while j<=n do
begin
(5) ;
(6) ;
end
until sieve=[];
j:=0;
for next:=2 to n do{打印出所有素數}
if next in primes then
begin
write(next:5);
(7) ;
if j mod 10=0 then writeln;
end;
writeln;
end.
信息學奧林匹克聯賽初賽模擬試題一參考答案(普及組)
一、選擇題：共20題，每題1.5分，共計30分。每題有5個備選答案，前10個題為單選題（即每題有且只有一個正確答案，選對得分），后10題為不定項選擇題（即每題有1至5個正確答案，只有全部選對才得分）。
1、B　　2、D、　3、B　　4、D　　5、D　　6、C 　7、D　8、C　　9、B　10、C
11、ABCE　12、ABCD　13、ABCDE　14、BCD　15、CD　
16、ACD　17、D　18、ABCD　19、ABD　20、AD
二、填空題：共2題，第一題5分，第二題5分，共計10分。
1、3816547290
2、星期五
解法如下：
10︿1 mod 7 =3
10︿2 mod 7 =2
10︿3 mod 7 =6
10︿4 mod 7 =4
10︿5 mod 7 =5
10︿6 mod 7 =1
10︿7 mod 7 =3
10︿8 mod 7 =2
……………………
出現余數循環：3、2、6、4、5、1、3、2……
2001 mod 6 = 3
所以，10的2001次方天后的情況與10的3次方天后的情況相同。
即余數為6。
因此，這天是星期五。
三、程序閱讀理解題：共4題，每題8分，共計32分。
1、輸出結果為：5　6　3
　　　　　　　1　6　3
2、該程序的執行結果是：1　2　3
1　2　3
　　　　　　　　　　　　2　3　4
3、運行結果為：9　64
　　　　　　24　104
4、　輸入：8　1　4　2　5　6
輸出結果為：8　1　4　2　5　6
　　　　　　6　8　1　4　2　5
5　6　8　1　4　2
2　5　6　8　1　4
4　2　5　6　8　1
1　4　2　5　6　8
四、程序完善題：共2題，每題14分，共計28分。
1、 （1）k:=i; 　（2）k:=j; （3） t:=cname[i];
2、（4）primes:=primes+[next];　（5）sieve:=sieve-[j];　（6）j:=j+next;　（7）j:=j+1;
衢州信息學奧賽網——..第九屆分區聯賽提高組初賽試題
（提高組 PASCAL 語言 二小時完成）
●● 全部答案均要寫在答案卷子上，寫在試卷紙上一律無效 ●●一.單項選擇題 （共10題，每題1.5分，共計15分。每題有且僅有一個正確答案.）。
1. 圖靈 (Alan Turing) 是 （ ）。
A） 美國人 B） 英國人 C） 德國人 D） 匈牙利人 E） 法國人2. 第一個給計算機寫程序的人是（ ）。
A） Alan Mathison Turing B） Ada Lovelace C） John von Neumann
D） John Mc-Carthy E） Edsger Wybe Dijkstra3. 十進制數2003等值于二進制數（ ）。
A） 0100000111 B） 10000011 C） 110000111 D） 11111010011 E） 11110100114. 假設A=true,B=false,C=ture,D=ture,邏輯運算表達式A∧B∨C∧D的值是（ ）。
A） ture B） false C） 0 D） 1 E） NULL5. 一個高度為h 的二叉樹最小元素數目是（ ）。
A） 2h+1 B） h C） 2h-1 D） 2h E） 2h-16. 已知隊列（13，2，11，34，41，77，5，7，18，26，15），第一個進入隊列的元素是13，則第五個出隊列的元素是（ ）。
A） 5 B） 41 C） 77 D） 13 E） 187. 下面一段程序是用（ ）語言書寫的。
int func1(int n){
int i,sum=0;
for(i=1;i<=n;i++)
sum+=i*i;
return sum;
}
A) FORTRAN B) PASCAL C) C D) PROLOG E) BASIC8. 設全集E={1，2，3，4，5}，集合A={1，4}，B={1，2，5}，C={2，4}，則集合（A ∩B）∪～C 為（ ）。
A） 空集 B） {1} C） {3，5} D）{1，5} E） {1，3，5}9. 表達式(1+34)*5-56/7 的后綴表達式為（ ）。
A） 1+34*5-56/7 B） -*+1 34 5/56 7 C） 1 34 +5*56 7/-
D） 1 34 5* +56 7/- E） 1 34+5 56 7-*/
10. 下列計算機設備，即是輸入設備，又是輸出設備的是（ ）。
A） 鍵盤 B） 觸摸屏 C） 掃描儀 D）投影儀 E） 數字化儀 二.不定項選擇題（共10題，每題1.5分，共計15分。多選少選均不得分）。
11. 下列分辨率的顯示器顯示出的圖像，最清晰的是（ ）。
A） 800*600 B） 1024*768 C） 640*480 D） 1280*1024 E） 800*100012. 下列說法中，哪個（些）是錯誤的（ ）。
A）程序是指令的序列，它有三種結構：順序、分支和循環。
B）數據總線決定了中央處理器CPU所能訪問的最大內存空間的大小。
C）中央處理器CPU內部有寄存器組，用來儲存數據。
D）不同廠家生產的CPU所能處理的指令集是相同的。
E）數據傳輸過程中可能會出錯，奇偶校驗法可以檢測出數據中那一為在傳輸中出了差錯。13. CPU訪問內存的速度比訪問下列哪個（些）存儲設備要慢（ ）。
A）寄存器 B）硬盤 C）軟盤 D）高速緩存 E）光盤14. 下列電子郵件地址，哪個（些）是正確的（ ）。
A）wang@ ( mailto:wang@ ) B) [email protected] ( mailto:[email protected] ) C) 162.105.111.22
D) ccf. E)http://www.15. 數字圖像文件可以用下列哪個（些）軟件來編輯（ ）。
A）畫筆（Paintbrush） B）記事薄（Notepad） C) Photoshop D) WinRAR E)Midisoft16. 下列哪個（些）軟件不是操作系統軟件的名字（ ）。
A）WindowsXP B) DOS C) Linux D) OS/2 E) Arch/Info17. 下列哪個（些）不是個人計算機的硬件組成部分（ ）。
A）主板 B）虛擬內存 C）電源 D）硬盤 E）總線18. 運算試(2008)10-(3723)8 的結果是（ ）。
A）(-1715)10 B) (5)10 C) (5)16 D) (101)2 E) (3263)819. 已知元素（8，25，14，87，51，90，6，19，20），問這些元素以怎樣的順序進入棧，才能使出棧的順序滿足：8在51前面；90在87的后面；20在14的后面；25在6的前面；19在90的后面。（ ）。
A）20，6，8，51，90，25，14，19，87
B）51，6，19，20，14，8，87，90，25
C）19，20，90，7，6，25，51，14，87
D）6，25，51，8，20，19，90，87，14
E）25，6，8，51，87，90，19，14，2020. 假設我們用d=(a1,a2,...,a5),表示無向圖G的5個頂點的度數，下面給出的哪（些）組d 值合理（ ）。
A）{5，4，4，3，1} B）{4，2，2，1，1} C）{3，3，3，2，2}
D）{5，4，3，2，1} E）{2，2，2，2，2}三、問題求解（共2題，每題5分，共計10分）1. 無向圖G有16條邊，有3個4度頂點、4個3度頂點，其余頂點的度均小于3，則G至少_______個頂點。2. 某年級學生共選修6門課程，期末考試前，必須提前將這6門課程考完，每人每天只在下午至多考一門課程，設6門課程為C1，C2，C3，C4，C5，C6，S(Ci)為學習Ci 的學生集合。已知S(Ci)∩S(C6)≠ф，i=1，2，...，5，S(Ci)∩S(Ci+1)≠ф，i=1，2，3，4，S(C5)∩S(C1)≠ф，問至少安排_____天才能考完這6門課程。四.閱讀程序（共4題，每題8分，共計32分）
1. program Program1;
var a,b,c,d,sum : longint;

begin
read(a,b,c,d);
a := a mod 23; b := b mod 28; c := c mod 33;
sum := a * 5544 + b * 14421 + c * 1228 - d;
sum := sum + 21252; sum := sum mod 21252;
if (sum = 0 ) then sum := 21252;
writeln(sum);
end.輸入：283 102 23 320 輸出____________2. program Program2;
const
u : array[1..4] of integer = (0,5,3,1);
v : array[1..4] of integer = (0,7,6,5);
var a,b,c,d,e,f,x,y,z: integer; begin
read(a,b,c,d,e,f);
z := f+ e + d + (c+3) div 4; y := 5 * d + u[c mod 4];
if (b > y) then
begin
z := z + (b - y + 8) div 9;
x := ((b - y + 8) div 9 * 9 -(b - y)) * 4 + 11 * e + v[c mod 4];
end
else
x := (y - b) * 4 + 11 * e + v[c mod 4];
if (a > x) then
z := z + (a - x + 35) div 36;
writeln(z)
end.輸入： 4 7 9 20 56 47 輸出____________________3. program Program3;
var m,n: integer; mark: Boolean;function test(m,N:integer):integer;
var i,p: integer; flag: boolean;
begin
m := m - 1; i := 0; flag := False;
for p:= 2*N downto (N+1) do
begin
i:= (i+m) mod p;
if (i
begin
test := 0; flag := Ture; Break;
end
end;
if not(flag) then test:=1;
end;begin
read(n); m:=1; Mark := False;
repeat
if (test(m,n)=1) then
begin writeln(m); break; end;
m:= m+1;
until Mrak;
end.輸入：7 輸出_________ 4. program Program4;var m,n,i,j: integer;
p,w,a,b: array[0..19] of integer;
begin
read(n); m:= 0;
for i:= 0 to n-1 do
begin read(p[i]); b[i]:=1; end;
for i:=0 to n-1 do
begin
if (i>0) then
a[m]:=p[i]-p[i-1]
else
a[m]:=p[i];
m:=m+1;
while ((m>1) and (a[m-1]=0)) do
begin
m:=m-1; b[m]:=1;
end;
if (m>0) then
w[i]:=b[m-1];
else
w[i]:=b[0];
a[m-1]:=a[m-1]-1;
for j:=0 to m-1 do b[j]:=b[j]+1;
while ((m>1) and (a[m-1]=0)) do
begin
m:=m-1; b[m]:=1;
end;
end;
for i:= 0 to n-1 do
begin
write(w[i]); write(' ');
end;
writeln(' ');
end.輸入：9
4 6 6 6 6 8 9 9 9 9
輸出：____________________五. 完善程序（共2題，第1題每空3分；第2題每空2分。共計28分）。
1. 翻硬幣題目描述：
一摞硬幣共有m枚，每一枚都是正面朝上。取下最上面的一枚硬幣，將它翻面后放回原處。然后取下最上面的2枚硬幣，將他們一起翻面后放回原處。在取3枚，取4枚……直至m枚。然后在從這摞硬幣最上面的一枚開始，重復剛才的做法。這樣一直做下去，直到這摞硬幣中每一枚又是正面朝上為止。例如，m為1時，翻兩次即可。
輸 入：僅有的一個數字是這摞硬幣的枚數m ，0< m <1000。
輸 出：為了使這摞硬幣中的每一枚都是朝正面朝上所必須翻的次數。
輸入樣例：30
輸出樣例：899程 序：
program Program1;
var m:integer;
function solve(m: integer):integer;
var i,t,d: integer;
flag: Boolean;
begin
if (m = 1) then
solve := (1)
else begin
d := 2*m+1; t := 2; i := 1; flag := False;
repeat
if (t = 1) then
begin
solve := (2) ; flag := True;
end
else if ( (3) ) then
begin
solve := i*m-1; flag := True;
end
else
t := (4) ;
i:=i+1;
until flag;
end
end;
begin
read(m); if (( (5) ) and (m<1000)) then
writeln( (6) );
end.2. OIM地形題目描述：
二維離散世界有一種地形叫OIM(OI Mountain)。這種山的坡度只能上升('/')或下降('\'),而且兩邊的山腳都與地平線等高,山上所有地方都不低于地平線.例如：
/\ /\
/ \/\ 是一座OIM；而 / \ 不是。
\/
這個世界的地理學家們為了方便紀錄，給OIM所有可能的形狀用正整數編好號，而且每個正整數恰好對應一種山形。他們規定，若兩座山的寬度不同，則較寬的編號較大；若寬度相同，則比較從左邊開始第1個坡度不同的地方，坡度上升的編號較大。以下三座OIM的編號有小到大遞增： /\ /\ /\ /\
/ \/\ / \/\/\ / \/ \。顯然/\的編號為1。但是地理學家在整理紀錄是發覺，查找編號與山形的對應關系不是很方便。他們希望能快速地從編號得到山的形狀。你自告奮勇答應他們寫一個程序，輸入編號，能馬上輸出山形。輸 入：一個編號（編號大小不超過600,000,000），
輸 出：輸入編號所對應的山形，1座山所占行數恰為它的高度，即山頂上不能有多余空行。輸入樣例：15輸出樣例： /\ /\
/ \/ \程 序：
program Program2;
const
L:integer =19; SZ: integer =50;
UP: char = '/'; DN: char = '\';
Var
i,nth,x,y,h,e,f:integer;
m: array[0..1,0..38,0..19] of integer;
pic: array[0..49,0..49] of char;

procedure init;
var k,s,a,b,c: integer;
begin
for a:=0 to 1 do
for b:=0 to 2*L do
for c:=0 to L do
m[a,b,c]:=0; m[0,0,0]:=1;
for k:=0 to 2*L-1 do
begin
for s:=1 to L do
begin
m[0,k+1,s] := m[0,k,s+1] + m[1,k,s+1];
m[1,k+1,s]:= (1) ;
end;
m[0,k+1,0] :=m[0,k,1]+m[1,k,1];
end;
end;

procedure draw(k,s,nth:integer);
begin
if (k=0) then exit;
if ((nth-m[1,k,s])>=0) then
begin
nth:=nth-m[1,k,s];
if (y>h) then (2) ;
pic[y,x]:=UP; y:=y+1; x:=x+1; draw( (3) );
end
else begin
y:=y - 1; pic[y,x]:=DN; x:=x+1; draw(k-1,s-1,nth);
end;
end;

begin
init;
read(nth);
for e:=0 to SZ-1 do
for f:=0 to SZ-1 do
pic[e,f]:= ' ';
x:=0;
y:=0
h:=0;
i:=0;

while ((nth-m[0,2*i,0])>=0) do
begin
nth:= nth-m[0,2*i,0];
(4) ;
end; draw( (5) );
for i:=h downto x-1 do
begin
for e:=0 to x-1 do
write(pic[i,e]);
writeln(' ');
end;
end. 第十四屆全國青少年信息學奧林匹克聯賽初賽試題
（ 普及組 Pascal語言 二小時完成 ）
●● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●●
一、單項選擇題（共20題，每題1.5分。每題有且僅有一個正確答案。）
1．微型計算機中，控制器的基本功能是（ ）。
A．控制機器各個部件協調工作 B．實現算術運算和邏輯運算
C．獲取外部信息 D．存放程序和數據
2．設A=True，B=False，C=True，D=False，以下邏輯運算表達式值為真的是（ ）。
A．(A∧B)∨(C∧D∨﹁A) B．((﹁A∧B) ∨C)∧﹁D
C．(B∨C∨D) ∧D∧A D．A∧（D∨﹁C）∧B
3．在下列關于圖靈獎的說法中，不正確的是（ ）。
A．圖靈獎是美國計算機協會于1966年設立的，專門獎勵那些對計算機事業作出重要貢獻的個人
B．圖靈獎有“計算機界諾貝爾獎”之稱
C．迄今為止，還沒有華裔計算機科學家獲此殊榮
D．圖靈獎的名稱取自計算機科學的先驅、英國科學家阿蘭 圖靈
4．計算機在工作過程中，若突然停電，（ ）中的信息不會丟失。
A．ROM 和 RAM B．CPU C．ROM D．RAM
5．完全二叉樹共有2*N-1個結點，則它的葉節點數是（ ）。
A．N-1 B．N C．2*N D．2N-1
6．在以下各項中，( ）不是操作系統軟件。
A．Solaris B．Linux C．Windows Vista D．Sybase
7．設棧S的初始狀態為空，元素a，b，c，d，e，f依次入棧S，出棧的序列為b，d，f，e，c，a，則棧S的容量至少應該是（ ）。
A．6 B．5 C．4 D．3
8．與十進制數28.5625相等的四進制數是（ ）。
A．123.21 B．131.22 C．130.22 D．130.21
9．設字符串S=”Olympic”，S的非字串的數目是（ ）。
A．28 B．29 C．16 D．17
10．Web2.0 是近年來互聯網的熱門概念之一，其核心思想是互動與分享。下列網站中，（ ）是典型的Web 2.0應用。
A．Sina B．Flicker C．Yahoo D．Google
11．遞歸過程或函數調用時，處理參數和返回地址，通常使用一種稱為（ ）的數據結構。
A．隊列 B．多維數組 C．線性表 D．棧
12．(2008)10+(5B)16的結果是（ ）。
A．（833）16 B．（2089）10 C．（4163）8 D．（100001100011）2
13．二叉樹T，已知其先根遍歷是1 2 4 3 5 7 6（數字為節點的編號，下同），中根遍歷2 4 1 5 7 3 6，則該二叉樹的后根遍歷是（ ）。
A．4 2 5 7 6 3 1 B．4 2 7 5 6 3 1 C．7 4 2 5 6 3 1 D．4 2 7 6 5 3 1
14．將數組{8，23，4，16，77，-5，53，100}中的元素按從小到大的順序排列，每次可以交換任意兩個元素，最少需要交換（ ）次。
A．4 B．5 C．6 D．7
15．對有序數組{ 5，13，19，21，37，56，64，75，88，92，100}進行二分查找，成功查找元素19的查找長度（比較次數）是（ ）。
A．1 B．2 C．3 D．4
16 ．面向對象程序設計（Object-Oriented Programming）是一種程序設計的方法論，它將對象作為程序的基本單元，將數據和程序封裝在對象中，以提高軟件的重用性、靈活性和擴展性。下面關于面向對象設計的說法中，不正確的是（ )
A．面向對象程序設計通常采用自頂向下設計方法進行設計。
B．面向對象程序設計方法具有繼承性（inheritance）、封裝性（encapsulation）、多態性 (polymorphism）等幾大特點。
C．支持面向對象特性的語言稱為面向對象的編程語言，目前較為流行的有C++，JAVA，C# 等。
D．面向對象的程序設計的雛形來自于Simula語言，后來在SmallTalk語言的完善和標準化的過程中得到更多的擴展和對以前思想的重新注解。至今，SmallTalk語言仍然被視為面向對象語言的基礎
17．在32*32點陣的“字庫”中，漢字“北”與“京”的字模占用字節數之和是（ ）。
A．512 B．256 C．384 D．128
18．設T是一棵有n個頂點的樹，下列說法不正確的是（ ）。
A．T有n條邊 B．T是連通的 C．T是無環的 D．T有n-1條邊
19．下列不屬于NOIP競賽推薦使用的語言環境的是（ ）。
A．Dev-C++ B．Visual C++ C．Free Pascal D．Lazarus
20．在Pascal程序中，表達式（200 or 10）的值是（ ）。
A．20 B．1 C．220 D．202
二、問題求解（共2題，每題5分，共計10分）
1．書架上有4本不同的書A、B、C、D。其中A和B是紅皮的，C和D是黑皮的。把這4本書擺在書架上，滿足所有黑皮的書都排在一起的擺法有_________種。滿足A必須比C靠左，所有紅皮的書要擺在一起，所有黑皮的書要擺放在一起，共有_________種擺法。
2．有6個城市，任何兩個城市之間都有一條道路連接，6個城市兩兩之間的距離如下表所示，則城市1到城市6的最短距離為__________________。
城市1 城市2 城市3 城市4 城市5 城市6
城市1 0 2 3 1 12 15
城市2 2 0 2 5 3 12
城市3 3 2 0 3 6 5
城市4 1 5 3 0 7 9
城市5 12 3 6 7 0 2
城市6 15 12 5 9 2 0
三、閱讀程序寫結果（共4題，每題8分，共計32分）
1．VAR i,a,b,c,d:integer;
f:array[0..3] of integer;
BEGIN
for i:=0 to 3 do
read(f[i]);
a:=f[0]+f[1]+f[2]+f[3];
a:=a div f[0];
b:=f[0]+f[2]+f[3];
b:=b div a;
c:=(b*f[1]+a) div f[2];
d:=f[(b div c) mod 4];
if (f[(a+b+c+d) mod 4]>f[2]) then
begin
a:=a+b;
writeln(a);
end else
begin
c:=c+d;
writeln(c);
end;
END.
輸入：9 19 29 39
輸出：__________________________
2．procedure foo(a,b,c:integer);
begin
if a>b then foo(c,a,b)
else writeln(a,',',b,',',c);
end;
var
a,b,c:integer;
begin
read(a,b,c);
foo(a,b,c);
end.
輸入：3 1 2
輸出：_________________________
3．type TT=array[0..20]of integer;
prodecure func(var ary:TT;n:integer);
var i,j,x:integer;
begin
i:=0;j:=n-1;
while iwhile (i0) do inc(i);
while (iif iary:=ary[j];
ary[j]:=x;
inc(i);
dec(j);
end;
end;
end;
var
a:TT;
i,m:integer;
begin
m:=10;
for i:=0 to m-1 do
read(a);
func(a,m);
for i:=1 to m-1 do
write(a,' ');
writeln;
end.
輸入：5 4 -6 -11 6 -59 22 -6 1 10
輸出：___________________________________________
4．procedure solve(first:string;spos_f,epos_f:integer;mid:string;spos_m,epos_m:integer);
var i,root_m:integer;
begin
if spos_f > epos_f then exit;
for i:=spos_m to epos_m do
if first[spos_f]=mid[i] then begin
root_m:=i;
break;
end;
solve(first,spos_f+1,spos_f+(root_m-spos_m),mid,spos_m,root_m-1);
solve(first,spos_f+(root_m-spos_m)+1,epos_f,mid,root_m+1,epos_m);
write(first[spos_f]);
end;
var first,mid:string;
len:integer;
begin
readln(len);
readln(first);
readln(mid);
solve(first,1,len,mid,1,len);
writeln;
end.
輸入：7
ABDCEGF
BDAGECF
輸出：_________________________________
四．完善程序（前四空，每空2.5分，后6空，每空3分，共28分）
1．（字符串替換）給定一個字符串S（S僅包含大小寫字母），下面的程序將S中的每個字母用規定的字母替換，并輸出S經過替換后的結果。程序的輸入是兩個字符串，第一個字符串是給定的字符串S，第二個字符串S’由26個字母組成，它是a~z的任一排列，大小寫不定，S’規定了每個字母對應的替換字母：S’中的第一個字母是字母A和a的替換字母，即 S中的A用該字母的大寫替換，S中的a用該字母的小寫替換；S’中的第二個字母是字母B 和b的替換字母，即S中的B用該字母的大寫替換，S中的b用該字母的小寫替換；… …以此類推。
Var change:string;
Str:string;
Procedure CheckChangeRule;
Var i:integer;
Begin
for i:=1 to 26 do begin
if ____①_____ then
change[i]:=chr(ord(change[i])-ord('A')+ord('a'));
end;
end;
Procedure ChangeString;
Var len,i:integer;
begin
len:=length(str);
for i:=1 to len do begin
if ______②______ then
begin
str[i]:=upcase(change[ord(str[i]-ord('A')+1]);
end;
else
begin
_______④_______
end;
end;
end;
begin
readln(str);
readln(change);
CheckChangeRule;
_______⑤_______
writeln(str);
end.
2．（找第k大的數）給定一個長度為1,000,000的無序正整數序列，以及另一個數n（1≤n≤1000000），然后以類似快速排序的方法找到序列中第n大的數（關于第n大的數：例如序列{1，2，3，4，5，6}中第3大的數是4。）
VAR a:array[1..1000000] of integer;
n,m,ans:integer;
Procedure swap(var a,b:integer);
var t:integer;
begin
if (a<>b) then begin
t:=a; a:=b; b:=t;
end;
end;
function FindKth(left,right,n:integer):integer;
var tmp,value,i,j:integer;
begin if left=right then exit(left);
tmp:=random(right-left)+left;
swap(a[tmp],a[left]);
value:=_____①______;
i:=left; j:=right;
while iwhile (iif ia[i]:=a[j]; inc(i);
end else break;
while (iif ia[j]:=a[i]; dec(j);
end else break;
end;
______④_______
if iif i>n then begin dec(i); exit(_____⑥_____); end;
exit(i);
end;
var i:integer;
begin
randomize;
m:=1000000;
for i:=1 to m do read(a[i]));
read(n);
ans:=FindKth(1,m,n);
writeln(a[ans]);
end.NOIP2008年普及組（Pascal語言）參考答案與評分標準
一、單項選擇題：（每題1.5分）
1. A 2. B 3. C 4. C 5. B
6. D 7. C 8. D 9. A 10. B
11. D 12. A 13. B 14. B 15. B
16. A 17. B 18. A 19. B 20. D
二、問題求解：（共2題，每題5分，共計10分）
1．12 4
2．7(1->2->5->6)
三、閱讀程序寫結果（共4題，每題8分，共計32分）
1. 23
2. 2,3,1
3. 5 4 10 1 6 22 -59 -6 -11 -6
4. DBGEFCA （求樹的后序遍歷）
四．完善程序 (前4空，每空2.5分，后6空，每空3分，共28分)
（說明：以下各程序填空可能還有一些等價的寫法，各省可請本省專家審定和上機驗證，不一定上報科學委員會審查）
1. ① (change[i] >= 'A') and (change[i] <= 'Z') (只寫(change[i] <= 'Z')也對)
② (str[i] >= 'A') and (str[i] <= 'Z') （只寫str[i] <= 'Z'也對）
③ str[i] := change[ord(str[i]) - ord('a') +1];
④ ChangeString;
2． ① a[left]
② a[j] < value (或a[j] <= value)
③ a[i] > value （或a[i] >= value）
④ a[i] := value;
⑤ i,right,n
⑥ FindKth(left, i, n)
衢州信息學奧賽網——.. 第十四屆全國青少年信息學奧林匹克聯賽初賽試題（ 提高組 Pascal語言 二小時完成 ）●● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●● 一、單項選擇題（共10題，每題1.5分，共計15分。每題有且僅有一個正確答案）。 1．在以下各項中，（ ）不是操作系統軟件。A．Solaris B．Linux C．Sybase D．Windows Vista E．Symbian 2．微型計算機中，控制器的基本功能是（ ）。A．控制機器的各個部件協調工作 B．實現算數運算與邏輯運算 C．存儲各種控制信息
D．獲取外部信息 E．存放程序和數據 3．設字符串S=“Olympic”，S的非空字串的數目是（ ）。A．29 B．28 C．16 D．17 E．7 4．完全二叉樹有2*N-1的結點，則它的葉子結點數目是（ ）。A．N-1 B．2*N C．N D．2N-1 E．N/2 5．將數組{8，23，4，16，77，-5，53，100}中元素從大到小按順序排序，每次可以交換任意兩個元素，最少要交換（ ）次。A．4 B．5 C．6 D．7 E．8 6．設棧S的初始狀態為空，元素a，b，c，d，e，f依次入棧，出棧順序為b，d，c，f，e，a那么棧容量至少應該是（ ）。A．6 B．5 C．4 D．3 E．2 7．與十進制數28.5625相等的四進制數是（ ）A．123.21 B．131.22 C．130.22 D．130.21 E．130.20 8．遞歸過程和函數調用時，處理參數和返回地址，通常使用一種稱為（ ）的數據結構。A．隊列 B．多維數組 C．線性表 D．鏈表 E．棧 9．TCP/IP 是一組構成互聯網基礎的網絡協議，字面上包括兩組協議：傳輸控制協議（TCP）和網際互聯協議（IP）。TCP/IP協議把Internet網絡系統描述成具有4個層次功能的網絡模型，其中提供源節點和目的節點之間的信息傳輸服務，包括尋址和路由器選擇等功能的是（）。A．鏈路層 B．網絡層 C．傳輸層 D．應用層 E．會話層 10．對有序數組{5,13,19,21,37,56,64,75,88,92,100}進行二分查找，等概率情況下，查找成功的平均查找長度（平均比較次數）是（）。A．35/11 B．34/11 C．33/11 D．32/11 E．34/10 二、不定項選擇題（共10題，每題1.5分，共計15分。每題正確答案的個數大于或等于1。多選或少選均不得分）。 11．下列關于圖靈的說法正確的有（ ）。A．圖靈獎是美國計算機協會與1966年設立的，專門鼓勵那些對計算機做出重要貢獻的個人B．圖靈獎有“計算機界諾貝爾獎”之稱。 C．迄今為止，還沒有華裔計算機科學家獲此殊榮。D．圖靈獎的名稱取自計算機科學先驅、英國科學家阿蘭·圖靈。 12．計算機在工作過程中，若突然停電，（ ）中不會丟失信息不會丟失。A．硬盤 B．CPU C．ROM D．RAM 13．若A=True，B=False，C=True，D=False，以下邏輯運算表達式真的有（ ）。A．（A∧B）V（C∧DV A） B．（（ A∧B）VC）∧ B C．（BVCVD）VD∧A D．A∧（DV C）∧B 14．Web2.0是近年來互聯網熱門概念之一，其核心是互動與分享。下列網站中，（ ）是典型的Web2.0的應用。A．Sina B．Flickr C．Yahoo D．Google 15．(2008)10+ (5B)16 的結果是（）。A．（833）16 B．（2099）10 C．（4063）8 D．（100001100011）2 16．二叉樹T，已知其先序遍歷是1 2 4 3 5 7 6（數字為節點編號，以下同），后序遍歷是4 2 7 5 6 3 1，則該二叉樹的中根遍歷是（ ）A．4 2 1 7 5 3 6 B．2 4 1 7 5 3 6 C．4 2 1 7 5 6 4 D．2 4 1 5 7 3 617．面向對象的程序設計（Object-Oriented Programming）是一種程序設計的方法論，它將對象作為程序設計的基本單元，將數據和程序封裝在對象中，以提高軟件的重用性、靈活性、和擴展性。下面關于面向對象的程序設計說法中正確的是（ ）。A．面向對象的程序設計方法通常采用自頂向下的設計方法進行設計。B．面向對象的程序設計方法具有繼承性（inheritance）、封裝性（encapsulation）、多態性（polymorphism）等幾大特點。C．支持面向對象特性稱為面向對象的編程語言，目前較為流行的有C++，JAVA，C#等。D．面向對象的程序設計的雛形來自于Simula語言，后來在SmallTalk語言的完善和標準化的過程中得到更多的擴展和對以前的思想的重新注解。至今，SmallTalk語言仍然被視為面向對象的基礎。 18．設T是一棵有n個定點的樹，以下說法正確的是（ ）。A．T是聯通的，無環的 B．T是聯通的，有n-1條邊C．T是無環的，有n-1條邊 D．以上都不對 19．NOIP競賽推薦使用的語言環境有（ ）。A．Dev-C++ B．Visual C++ C．Free Pascal D．Lazarus 20．在下列防火墻（Firewall）的說法中，正確的有（ ）。A．防火墻是一項協助確保信息安全的設備，其會依照特定的規則，允許或是限制數據通過B．防火墻可能是一臺專屬硬件或是安裝在一般硬件上的一套軟件C．網絡層防火墻可以視為一種IP數據包過濾器，只允許符合特定規定的數據包通過，其余的一概禁止穿越防火墻D．應用層防火墻是在TCP/IP的“應用層”上工作，可以攔截進出某應用程序的所有數據包 三、問題求解（共2題，每題5分，共計10分）1．有6個城市，任何兩個城市之間有一條道路連接，6個城市之間兩兩之間的距離如下表表示，則城市1到城市6的最短距離為____________。 城市1城市2城市3城市4城市5城市6城市102311215城市22025312城市3320365城市4153079城市51236702城市615125920 2．書架上有21本書，編號從1 到 21 從中選4 本，其中每兩本的編號都不相鄰的選法一共有___________________種。 四、閱讀程序寫結果（共4題，每題8分，共計32分）。1．var i,a,b,c,d:integer; f:array[0..3] of integer;begin for i:=0 to 3 do read(f[i]); a:=f[0]+f[1]+f[2]+f[3]; a:=a div f[0]; b:=f[0]+f[2]+f[3]; c:=(b*f[1]+a) div f[2]; d:=f[(b div c) mod 4]; if (f[(a+b+c+d) mod 4]>f[2]) then begin a:=a+b; writeln(a) endelsebegin c:=c+d; writeln(c);end;end. 輸入： 9 19 29 39輸出：_______________________________ 2．procedure foo(a,b,c:integer); begin if a>b then foo(c,a,b)else writeln(a,',',b,',',c)end;var a,b,c:integer;begin readln(a,b,c); foo(a,b,c);end. 輸入：2 1 3輸出：_________________ 3．procedure f(a,b,c:integer);begin write(a,b,c,'/'); if (a=3)and(b=2)and(c=1) then exit; if (b=ord('A')) and (ord(s[i])<=ord('Z')) then s:=chr(ord(s[i])-ord('A')+ord('a'));for i:=1 to len doif (ord(s[i])b) then begint:=a; a:=b; b:=t;end;end;Function FindKth(left,right,n:integer):integer;Var tmp,value,i,j:integer;begin if left=right then exit(left); tmp:=random(right-left)+left; swap(a[tmp],a[left]); value:=____①_____ i:=left; j:=right;while in then begin dec(j); exit(______⑥________);end; exit(i);end; var i:integer;begin randomize; ans:=-1;m:=5;for i:=1 to m do read(a[i]);read(n);ans:=FindKth(1,m,n);writeln(a[ans]);end. 2．（矩陣中的數字）有一個n*n（1≤n≤5000)的矩陣a，對于1≤ivar n,k,answerx,answery:integer; a:array[1..5000,1..5000] of integer;Procedure FindKPosition;Var I,j:integer;Begin i:=n; j:=n; while j>0 do begin if a[n,j]k do begin while (___②_____) and (i>1) do dec(i); while (___③_____) and (j<=n) do inc(j); end; _______④________ _______⑤________end; var i,j:integer;begin read(n); for i:=1 to n do for j:=1 to n do read(a[i,j]); read(k); FindKPosition; writeln(answerx,' ',answery);end. NOIP2008年提高組（Pascal語言）參考答案與評分標準
一、單項選擇題：（每題1.5分）
1. C 2. A 3. B 4. C 5. B
6. D 7. D 8. E 9. B 10. C
二、 不定項選擇題 （共10題，每題1.5分，共計15分。每題正確答案的個數大于或等于1。多選或少選均不得分）。
11. ABD 12. AC 13. BC 14. B 15. ABC
16. ABD 17. BCD 18. ABC 19. ACD 20. ABCD
三、問題求解：（共2題，每題5分，共計10分）
1．7
2．3060
四、閱讀程序寫結果（共4題，每題8分，共計32分）
1. 23 （信心題）
2. 1,3,2 (簡單遞歸)
3. 132/213/231/312/321/ （全排列）
4. defghijxyzabc/hfizxjaybcccc （字符串替換）
五．完善程序 (前6空，每空3分，后5空，每空2分，共28分)
（說明：以下各程序填空可能還有一些等價的寫法，各省可請本省專家審定和上機驗證，不一定上報科學委員會審查）
1. ① a[left]
② a[j] < value (或a[j] <= value)
③ a[i] > value （或a[i] >= value）
④ a[i] := value;
⑤ i,right,n
⑥ FindKth(left, i, n)
2. ① inc(j); (或者j := j+1;)
② a[i,j] > k
③ a[i,j] < k
④ answerx := i;
⑤ answery := j; 信息學競賽普及組初賽模擬試題(二)

（pascal語言）限時2小時完成，滿分100分
一、選擇題：（共20小題，1-15小題為單選題，每題1分；16-20小題為多選題，每題2分。共25分）
1.對存儲器按字節進行編址，若某存儲器芯片共有10根地址線的引腳，則該存儲器芯片的存儲容量為( 。
(A) 512B (B) 1KB (C) 2KB (D)4KB (E)8KB
2.在待排序的數據表已經為有序時，下列排序算法中花費時間反而多的是( 。
(A)堆排序 (B)希爾排序 (C)冒泡排序 (D)快速排序 (E)二分排序
3.某數列有1000個各不相同的單元，由低至高按序排列，現要對該數列進行二分法檢索，在最壞的情況下，需要檢索( 單元。
(A)1000 (B)10 (C)100 (D)500 (E) 300
4.已知數組a中，每個元素a[i,j]在存儲時要占3個字節，設i從1變化到8，j從1變化到10，分配內存實是從地址sa開始連續按行存儲分配的。試問：a[5，8]的起始地址為( 。
(A)sa+141 (B)sa+180 (C)sa+222 (D)sa+225 (E)sa+155
5.在pascal語言過程調用時，數值形參得到的是實際參數的( 。
(A) 數值 (B) 地址 (C)值 (D)變量 (E)以上都不是
6.一個24*24點陣的漢字字形信息所占的字節數為( 。
(A) 2 (B) 8 (C) 24 (D) 32 (E) 72
7. 在微機系統中，最基本的輸入輸出模塊BIOS存放在( 中。
(A) RAM (B) ROM (C) 硬盤 (D)寄存器 (E)控制器
8. 十進制算術表達式:3*512+5*64+2*8+1的運算中,用二進制表示為( 。
(A)1011010001 (B) 10110100011 (C) 11101010001 (D) 11110100011 (E)111000
9.設棧S的初始狀態為空,現對序列{1,2,3,4,5}在棧S上,依次進行如下操作(從元素1開始,出棧后不再進棧):進棧,出棧,進棧,進棧,出棧,出棧。試問出棧的元素序列是( 。
(A){1,2,3} B) {1,3,2} C) {3,2,1} D) {2,3,1} (E)以上都不對
10.E-mail郵件本質上是一個(
　(A)文件 　(B)電報 　(C)電話 　(D)傳真 (E)電訊
11.一棵二叉樹的高度為h，所有結點的度為0，或為2，則此樹最少有( 個結點
　(A)2h-1 　(B)2h-1 　(C)2h+1 　(D)h+1 (E)h*h+1
12.無向圖G=(V，E)，其中V={a,b,c,d,e,f}
E={(a,b),(a,e),(a,c),(b,e),(c,f),(f,d),(e,d)}對該圖進行深度優先遍歷,得到的頂點序列正確的是(
(A)a,b,e,c,d,f　(B)a,c,f,e,b,d　(C)a,e,b,c,f,d　(D)a,b,e,d,f,c (E)以上都不對
13.pascal 編譯程序是(
（A）. 把pascal 源程序轉換成可運行的EXE文件的程序
（B）. 把pascal 源程序轉換成等價的目標碼的程序
（C）. 生成和修改一個pascal語言源程序的等程序
（D）. 把pascal的目標碼程序轉換成可運行的EXE文件的程序
（E）. 生成一個等價的匯編程序
14. 將三封信投到4個郵筒，最多的投法有（ ）
（A）． 種 （B）． 種 （C）． 種 （D）．34種 E.
15. 電子信函(電子郵件)的特點之一是（ ）。
（A）.比郵政信函，電報，電話，傳真都更快
（B）.在通信雙方的計算機之間建立其直接的通信線路后即可快速傳遞數字信息
（C）.采用存儲-轉發方式在網絡上逐步傳遞信息,不象電話那樣直接、及時,但費用低廉
（D）.在通信雙方的計算機都開機工作的情況下即可快速傳遞數字信息
16. 以下屬于多媒體硬件的是（ ）
（A）．主機 （B）.光驅 （C）.聲卡 （D）. 音箱 （E）. 超級解霸
17. 正確的二維數組類型說明是( 　)
(A) type ar2=array[1..5,5..1] of integer;
(B) type ar2=array[1..5] of array[5.1] of integer;
(C) type ar2=array[1..5,1..5] of integer;
　　　 (D)type ar2=array[1..5] of array[1..5] of integer
(E)type ar2=array[1..5,1..5] of 0..1
18.下列屬于信息處理的是（ ）
（A）信息加工 （B）信息分類 （C）信息技術 （D）信息采集 （E）信息存儲
19.在windows中,最小化一個應用程序窗口后，該程序將（ ）。
(A)被終止執行 (B) 被暫停執行 (C)被轉入后臺 (D)繼續執行 （E）以上答案都不對
20. 下面的常量說明中，正確的是（ ）
（A）CONST （B）、CONST （C）、CONST （D）、CONST （E）CONST
t = true b, C = 45 M = 100，15 N = 1 OR 2 a= ’A’
二、問題求解：（第1小題5分，第2-3小題各4分,共13分）
[問題1]: 在所有三位數中，各位數字從高位到低位順次減小的數共有 個。
[問題2]："銀條"
一位銀礦勘探員無力預付3月份的房租。他有一根長31英寸的純銀條，因此他和女房東達成如下協議。他說，他將把銀條切成小段。3月份的第一天，他給女房東1英寸長的一段，然后每天給她增加1英寸，以此作為抵押。勘探員預期到3月份的最后一天，他能全數付清租金，而屆時女房東將把銀條小段全部還給他。3月份有31天，一種辦法是把銀條切成31段，每段長1英寸。可是這處花很多功夫。勘探員希望既履行協議，又能使銀條的分段數目盡量減少。例如，他可以第一天給女房東1英寸的一段，第二天再給1英寸的一段，第三開他取回這兩段1英寸的而給她3英寸的一段。假設銀條的各段是按照這種方式來回倒換的話，勘探員至少需要把他的銀條切成______段？
[問題3]:"換不開的鈔票"
錢柜里有1.15美分，一位顧客提出：把1美元的鈔票換成硬幣，但出納小姐說換不開，后來這位顧客提出：把50美分的鈔票換成硬幣，但出納小姐又說換不開，而實際上，出納小姐也無法把25美分、10美分、5美分的鈔票換成硬幣。請問錢柜里到底有哪些硬幣？他們分別有多少枚？
答：_________________。
三、寫出程序的運行結果：（每小題6分，共30分）1. program text1;
const n=6;m=3;
var i,j,k:integer;
begin
for i:=-n to n do
begin
k:=n-abs(i);
write(' ': 39-k);
for j:=-k to k do
if abs(j)>k-m
then write(n-(i+n)div 2)
else write(' ');
writeln;
end;
end.
輸出的結果為：
2. PROGAM text2；
VAR a:ARRAY[1..10] OF Char；
k:Integer； ch:Char；
BEGIN
FOR k:=1 TO 10 DO a[k]:=Chr(Ord('A')+k)；
FOR k:=1 TO 10 DO
BEGIN
ch:=a[k]；
a[k]:=a[11-k]；
a[11-k]:=ch；
END；
FOR k:=1 TO 10 DO Write(a[k])；
Writeln
END.
輸出的結果為：
3. program text3(input,output);
Var m,n,p:integer;
x:real;
procedure mm(var m:integer;x:real);
var n:integer;
begin
m:=m+1;
n:=m+1;
x:=n*3;
p:=n;
end;
begin
m:=8;n:=5;p:=3;x:=1.0;
mm(n,x);
writeln (m:5,n:5,p:5,x:6:1);
end.
輸出的結果為：
4. program text4;
const n=5;
type ary=array[0..n-1,0..n-1]of integer;
var a:ary;i,j,k:integer;
begin
　for i:=0 to n-1 do
for j:=0 to n-1 do a[i,j]:=0;
k:=1;
　　for i:=1 to n do
　 for j:=n-1 downto i do
　　 　begin
　　　　　a[j,j-i]:=k;
　　　　　k:=k+1;
　　　end;
　　　for i:=0 to n-1 do
begin　
　 for j:=0 to n-1 do
write(a[I,j]:4);
writeln;
end;
　　end.
　　輸出的結果為：
5.program text5(input,output);
var ch:char;
i,n,sum:integer;
begin sum:=0;
read(ch);
case ch of
　'A':for i:=4 to 6 do
　　　begin
　　　　　read(n):
　　　　　sum:=sum＋n
　　 end;
　'B'：begin read(n);
　　　　　for i:=1 to n do
　　 　　　begin read(n);sum:=sum＋n end;
　　　　 end;
　'C':repeat
　 read(n);sum:=sum＋n
　 until sum>10;
　'D':begin read(n);
　 　　　while n<=3 do
　 　 　　　begin sum:=sum＋n;read(n) end
　 　　 end
　end;　writeln(sum:4)
end.
當程序運行
(1) 輸入 A　4　1　2　3　4　5　6　7　8　9時，其輸出為_____________。
(2) 輸入 B　4　1　2　3　4　5　6　7　8　9時，其輸出為_____________。
(3) 輸入 C　4　1　2　3　4　5　6　7　8　9時，其輸出為_____________。
(4) 輸入 D　4　1　2　3　4　5　6　7　8　9時，其輸出為_____________。
四、完善程序（第1題每空2分第2、3題每空3分，共32分）
第1題
孿生素數是指兩個相差為2的素數，例如：3和5，5和7，11和13等。
下面程序可輸出15對孿生素數，其中函數q判斷整數a是否為素數。
program p(output);
var k,n:integer
function q (a:integer):booklean;
var k:integer;
flag:boolean;
begin
flag:___(1)____
k:=2
___(2)____ (k<=a div 2) and flag do
if a mod k=0 then ______(3)_______
else
k:=k+1
q:=flag
end;
begin
n:=0;
k:=2;
repeat
if q(k) and ___(4)___ then
begin
n:=n+1;
writeln(k,k+2)
end;
k:=K+1
until n=5
end.
第二題
已知有類型arr=array[1..16] of string; arr型數組a中存放著從第1屆到第16屆足球世界杯冠軍國家的名字，下面的函數可求出歷界世界杯比賽共有幾個國家曾獲得過世界杯冠軍，請填空完成。
Function text2(a:arr):integer;
var k,j,s:integer;
mult:boolean;
begin
___(5)___;
for j:=2 to 16 do
begin
k:=1;
mult:=false;
while not mult and ___(6)___ do
if ___(7)__ then mult:=ture
else k:=k+1;
if not mult then s:=___(8)___
end;
text2:=s
end;
第三題
Fibonacci（裴波那契）數列的規律是：前2個數均為1，從第3個數開始每個數等于它前面兩個數之和，即：1，1，2，3，5，8，13，21，34，55，89，144，233，377，...。已知任意一個大于0的整數可以表示為若干個互不相同的fibonacci之數和。
例如：121=89+21+8+3
下面的程序是由鍵盤輸入一個正整數n，輸出組成n的互不相同的fibonacci數。
例如：若輸入121
則輸入121=+89+21+8+3
本程序的算法如下：（n=121為例）
1）尋找小于或等于n的最大的fibonacci數a（例如89），并以a作為組成n的一個數輸出。
2）若n≠a則以n-a作為新的任意正整數（例如32），重復步驟1.若n=a，則結束。程序中的函數find返回小于或等于n的最大的fibonacci數。
program text3(input,output);
var n:integer;
function find(n:integer):integer;
var a,b,c:integer;
begin
a:=1; b:=1;
repeat
c:=___(9)___;
a:=b;b:=c;
until b>=n;
if b=n then find:=___(10)___
else find:=___(11)___
end;
procedure p(n:integer);
var a:integer;
begin
a:=find(n);
write('+',a:4);
if a p ___(12)___
end;
begin
readln(n);
write(n:5,'=');
p(n);
writeln
end.
南海信息學競賽初中組初賽模擬試題參考答案
一、選擇題：（本題共20小題，1-15小題為單選題，每題1分；16-20小題為多選題，每題2分。共25分）
題號 1 2 3 4 5 6 7 8 9 10
答案 B D B A B E B C B A

題號 11 12 13 14 15
答案 B D B C C

題號 16 17 18 19 20
答案 ABCD CE ABDE CD AE
二、問題求解：（第1小題3分，第2-3小題各5分,共13分）
[問題1]： 120
[問題2]： 5
[問題3]： 50美分1枚，25美分1枚，10美分4枚，5美分1枚，1美分4枚
三、寫出程序的運行結果：（每小題6分，共30分）1、輸出結果為： 2、輸出結果為：
BCDEFGHIJK
6
6 6 6
5 5 5 5 5
5 5 5 5 5 5
4 4 4 4 4 4
4 4 4 4 4 4
3 3 3 3 3 3
3 3 3 3 3 3
2 2 2 2 2 2
2 2 2 2 2 2
1 1 1 1 1
1 1 1
0

3、輸出結果為： 4、輸出結果為：
8 6 7 1.0 0 0 0 0 0
4 0 0 0 0
7 3 0 0 0
9 6 2 0 0
10 8 5 1 0
5、當程序運行
(1) 輸入 A　4　1　2　3　4　5　6　7　8　9時，其輸出為______7_____。
(2) 輸入 B　4　1　2　3　4　5　6　7　8　9時，其輸出為______10____。
(3) 輸入 C　4　1　2　3　4　5　6　7　8　9時，其輸出為_______14___。
(4) 輸入 D　4　1　2　3　4　5　6　7　8　9時，其輸出為________0___。
四、完善程序（第1題每空2分第2、3題每空3分，共32分）
第1題 （1） true
（2） while
（3） flag:=false
（4） F(K+2)=true或F(K+2)
第2題 （5） s:=1
（6） (k （7） a[j]=a[k]
（8） s+1或s+1;或succ(s)
第3題 （9） a+b或b+a
（10） b或c或n
（11） a或a;
（12） n-a

展開更多......

收起↑