第一篇：第十四屆全國青少年信息學(計算機)奧林匹克分區聯賽初賽匯總

第十四屆全國青少年信息學奧林匹克聯賽初賽試題（提高組 Pascal 語言 二小時完成）

●● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●●

一、單項選擇題（共10題，每題1.5分，共計15分。每題有且僅有一個正確答案）。

1.在以下各項中，（）不是操作系統軟件。

Symbian 2．微型計算機中，控制器的基本功能是（）。

A.控制機器各個部件協調工作 B.實現算術運算和邏輯運算 C.存儲各種控制信息 D.獲取外部信息

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依次入棧S，出棧的序列為b，d，c，f，e，a，則棧S的容量至少應該是（）。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.棧

E.存放程序和數據 A.Solaris B.Linux C.Sybase D.Windows Vista E.9.TCP/IP是一組構成互聯網基礎的網絡協議，字面上包括兩組協議：傳輸控制協議（TCP）和網際協議（IP）。TCP/IP 協議把Internet網絡系統描述成具有四個層次功能的網絡模型,其中提供源節點和目的節點之間的信息傳輸服務，包括尋址和路由器選擇等功能的是（）。

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)∨(C∧D∨?A)B.((?A∧B)∨C)∧?D C.(B∨C∨D)∨D∧A D.A∧(D∨?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(100001100011)2 16.二叉樹T，已知其先根遍歷是1 2 4 3 5 7 6（數字為結點的編號，以下同），后根遍歷是4 2 7 5 6 3 1，則該二叉樹的可能的中根遍歷是（）。）D.）A.4 2 1 7 5 3 6 B.2 4 1 7 5 3 6 C.4 2 1 7 5 6 3 D.2 4 1 5 7 3 6 17.面向對象程序設計（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的最短距離為_____________。

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];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.輸入：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

s:string;i,j,len,k:integer;begin read(s);len:=length(s);for i:=1 to len do if(ord(s[i])>= ord('A'))and(ord(s[i])<= ord('Z'))then s[i] := chr(ord(s[i])-ord('A')+ ord('a'));for i:=1 to len do if(ord(s[i]) 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 i

if in then begin dec(i);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<=i < n,1<=j<=n, a[i,j] < a[i + 1,j] a[j,i] < a[j,i+1]。即矩陣中左右相鄰的兩個元素，右邊的元素一定比左邊的大。上下相鄰的兩個元素，下面的元素一定比上面的大。給定矩陣a中的一個數字k，找出k所在的行列（注意：輸入數據保證矩陣中的數各不相同）。

var 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 then break;dec(j);end;①

while a[i,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.

第二篇：全國青少年信息學奧林匹克聯賽

全國青少年信息學奧林匹克聯賽

目錄

高考加分和保送 聯賽命題宗旨 普及的內容

競賽形式和成績評定 試題的知識范圍

全國青少年信息學奧林匹克聯賽(National Olympiad in Informatics in Provinces簡稱NOIP)自1995年至今已舉辦16次。每年由中國計算機學會統一組織。NOIP在同一時間、不同地點以各省市為單位由特派員組織。全國統一大綱、統一試卷。初、高中或其他中等專業學校的學生可報名參加聯賽。聯賽分初賽和復賽兩個階段。初賽考察通用和實用的計算機科學知識，以筆試為主。復賽為程序設計，須在計算機上調試完成。參加初賽者須達到一定分數線后才有資格參加復賽。聯賽分普及組和提高組兩個組別，難度不同，分別面向初中和高中階段的學生。獲得提高組復賽一等獎的選手即可免高考，而通過大學的保送生考試直接被錄取。

高考加分和保送

NOIP的部分一等獎具有保送名校或者高考加分(分數的多少視該校自主招生考試結果而定)的資格。NOIP的部分一等獎有參加省隊選拔賽的資格，省隊的選手可以參加NOI，NOI獲獎選手有保送資格。

聯賽命題宗旨

全國青少年信息學奧林匹克聯賽（NOIP）是一項面向全國青少年的信息學競賽和普及活動，旨在向那些在中學階段學習的青少年普及計算機科學知識；給學校的信息技術教育課程提供動力和新的思路；給那些有才華的學生提供相互交流和學習的機會；通過競賽和相關的活動培養和選拔優秀的計算機人才。

競賽的目的是為了在更高層次上推動普及。本競賽及其相關活動遵循開放性原則，任何有條件和有興趣的學校和個人，都可以在業余時間自愿參加。本活動不和現行的學校教學相沖突，也不列入教學計劃，是課外性質的因材施教活動。參加者可為初高中學生或其他中等專業學校的青少年。

普及的內容

．計算機的基本組成；

．計算機操作系統使用（windows等）； ．計算機工作的基本原理；

．計算機程序設計的基本方法； ．至少一門高級程序設計語言； ．程序設計中常用的數據結構。

普及的重點是根據中學生的特點，培養學生學習計算機的興趣，使得他們對信息技術的一些本質和核心的東西有更多的了解，提高他們創造性地運用程序設計知識解決實際問題的能力。

對學生的能力培養注重

．想象力與創造力；

．對問題的理解和分析能力；

．數學能力和邏輯思維能力；

．對客觀問題和主觀思維的口頭和書面表達能力；

．人文精神。包括與人的溝通和理解能力，團隊精神與合作能力，恒心和毅力，審美能力等。

競賽形式和成績評定

聯賽分兩個年齡組：初中組和高中組(普及組和提高組)。每組競賽分兩輪：初試和復試。

．初試形式為筆試，側重考察學生的計算機基礎知識和編程的基本能力，并對知識面的廣度進行測試。程序設計的描述語言采用Basic（2005年被取消）、C/C++或Pascal。各省市初試成績在本賽區前百分之十五的學生進入復賽，其分數不計入復賽的成績。初賽時間為10月的第二個星期六下午 2:30-4:30舉行。

．復試形式為上機，側重考察學生對問題的分析理解能力，數學抽象能力，駕馭編程語言的能力和編程技巧、想象力和創造性等。程序設計語言可采用Basic（2005年后被取消）、Pascal、C或C++。各省市競賽的等第獎在復試的優勝者中產生。時間為 3小時。只進行一試，約在當年的11 月的第三個周六進行。

試題形式

每次聯賽的試題分四組：初中組初試賽題；初中組復試賽題；高中組初試賽題；高中組復試賽題。其中，初中組初試賽題和高中組初試賽題類型相同，初中組復試賽題和高中組復試賽題類型相同，但初中組和高中組的題目不完全相同，高中組難度略高；以體現年齡特點和層次要求。

* 初試：初試全部為筆試，滿分100分。試題由四部分組成：

1、選擇題：共20題，每題1．5分，共30分。每題有4個備選方案。試題內容包括計算機基本組成與原理、計算機基本操作、信息科技與人類社會發展的關系等等。

2、問題求解題：共2題，每題5分，共10分。試題給出一個敘述較為簡單的問題，要求學生對問題進行分析，找到一個合適的算法，并推算出問題的解。答案以字符串方式給出，考生給出的答案與標準答案的字符串相同，則得分；否則不得分。

3、程序閱讀理解題：共4題，每題8分，共32分。題目給出一段程序（沒有關于程序功能的說明），有時也會給出程序的輸入，要求考生通過閱讀理解該段程序給出程序的輸出。輸出以字符串的形式給出，如果與標準答案一致，則得分；否則不得分。

4、程序完善題：共 2題，第一題10分，共4空，每空2.5分；第二題18分，共6空，每空3分。兩題共28分。題目給出一段關于程序功能的文字說明，然后給出一段程序代碼，在代碼中略去了若干個語句并在這些位置給出空格，要求考生根據程序的功能說明和代碼的上下文，填出被略去的語句。填對的，則得分；否則不得分。

（2009年普及組試題為第一題5空，每空3分，第二題前三空每空3分，后兩空每空2分）

*復試：復試的題型和形式向全國信息學奧賽（NOI）靠攏，全部為上機編程題，但難度略低。復試為決出競賽成績的最后一個環節。題目包括 4道題，每題100分，共計400分。難度有易有難，既考慮普及面，又考慮選拔的梯度要求。每一道試題包括：題目、問題描述、樣例說明（輸入、輸出及必要的說明）、數據范圍（數據限制條件）。測試時，測試程序為每道題提供了5~10組測試數據，考生程序每答對一組得10~20 分；累計分即為該道題的得分。

試題的知識范圍

考試內容主要包括：計算機發展史、計算機組成、計算機基本原理、計算機程序設計、計算機日常應用等。要求考生掌握至少一門高級程序設計語言（詳見競賽大綱）。為了保持競賽內容的相對連續性，試題涵蓋的知識點和題型至少60％應出現在普及類的參考書目中，其余內容可能超出該范圍。

為了考核學生的基礎知識、綜合應用能力，激發學生的求知欲和創新思維，體現“與時俱進”的特點，競賽題型在保持大綱相對穩定、優秀學生可能接受和理解的基礎上，按照下述趨勢適當變化

1、增大與課內知識結合的緊密度；

2、增大解題方法的多樣性和靈活程度；

3、增大開放性試題的比例。

試題的知識范圍具體如下：

一．初賽內容與要求：

A．計算機的基本常識：

1．計算機和信息社會（信息社會的主要特征、計算機的主要特征、數字通信網絡的主要特征、數字化）

2．信息輸入輸出基本原理（信息交換環境、文字圖形多媒體信息的輸入輸出方式）

3．信息的表示與處理（信息編碼、微處理部件MPU、內存儲結構、指令，程序，和存儲程序原理、程序的三種基本控制結構）

4．信息的存儲、組織與管理（存儲介質、存儲器結構、文件管理、數據庫管理）

5．信息系統組成及互連網的基本知識（計算機構成原理、槽和端口的部件間可擴展互連方式、層次式的互連結構、互聯網絡、TCP/IP協議、HTTP協議、WEB應用的主要方式和特點）

6．人機交互界面的基本概念（窗口系統、人和計算機交流信息的途徑（文本及交互操作））

7．信息技術的新發展、新特點、新應用等。

B．計算機的基本操作：

1.Windows和LINUX的基本操作知識

2.互聯網的基本使用常識（網上瀏覽、搜索和查詢等）

3.常用的工具軟件使用（文字編輯、電子郵件收發等）

C．數據結構：

1．程序語言中基本數據類型(字符、整數、長整數、浮點)

2.浮點運算中的精度和數值比較

3．一維數組（串）與線性表

4．記錄類型（PASCAL）/ 結構類型（C）

D．程序設計：

1．結構化程序設計的基本概念

2．閱讀理解程序的基本能力

3．具有將簡單問題抽象成適合計算機解決的模型的基本能力

4．具有針對模型設計簡單算法的基本能力

5．程序流程描述（自然語言/偽碼/NS圖/其他）

6．程序設計語言（PASCAL/C/C++，2003仍允許BASIC）

E．基本算法處理：

1．初等算法（計數、統計、數學運算等）

2．排序算法（冒泡法、插入排序、合并排序、快速排序）

3．查找（順序查找、二分法）

4．回溯算法

二、復賽內容與要求：

在初賽的內容上增加以下內容：

A．數據結構：

1．指針類型

2．多維數組

3．單鏈表及循環鏈表

4．二叉樹

5．文件操作（從文本文件中讀入數據，并輸出到文本文件中）

B．程序設計

1．算法的實現能力

2．程序調試基本能力

3．設計測試數據的基本能力

4．程序的時間復雜度和空間復雜度的估計

C．算法處理

1．離散數學知識的應用（如排列組合、簡單圖論、數理邏輯）

2．分治思想

3．模擬法

4．貪心法

5．簡單搜索算法（深度優先 廣度優先）搜索中的剪枝

6．動態規劃的思想及基本算法

評測環境

NOIP2010比賽環境規范依照使用Linux平臺、統一編譯器、提供多種集成開發環境選擇的原則制定。

NOIP2010的比賽環境中，操作系統平臺選擇Linux；在固定的操作系統平臺下，對應不同的語言，使用統一的編譯器，消除編譯器不同給選手帶來的不利影響；對應每種語言，提供了多種集成開發環境，選手可以根據自己的習慣選擇集成開發環境。

在全國評測時，評測環境保持與比賽環境的操作系統及編譯器一致。也就是說全國評測時，使用與選手比賽時一致的平臺對選手的程序進行評測，以消除平臺不一致帶來的不利影響。

以下是NOIP2010比賽環境要求的詳細描述：

使用Linux操作系統平臺：

（1）Linux操作系統必須使用NOI linux,基于ubuntu開發；

（2）Pascal語言，必須使用Free Pascal 2.0.4版本作為編譯器；

（3）C語言，必須使用gcc 3.2.2作為編譯器；

（4）C++語言，必須使用g++ 3.2.2作為編譯器。

第三篇：第十三屆全國青少年信息學奧林匹克聯賽初賽試題

第十三屆全國青少年信息學奧林匹克聯賽初賽試題（普及組 Pascal 語言 二小時完成）

●

● 全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效 ●●

一、單項選擇題（共20題，每題1.5分，共計30分。每題有且僅有一個正確答案。）

1．在以下各項中，（）不是CPU的組成部分。A．控制器

B．運算器

C．寄存器

D．主板

2．在關系數據庫中，存放在數據庫中的數據的邏輯結構以（）為主。A．二叉樹

B．多叉樹

C．哈希表

D．二維表

3．在下列各項中，只有（）不是計算機存儲容量的常用單位。A．Byte

B．KB

C．UB

D．TB

4．ASCII碼的含義是（）。

A．二→十進制轉換碼

B．美國信息交換標準代碼

C．數字的二進制編碼

D．計算機可處理字符的唯一編碼

5．一個完整的計算機系統應包括（）。

A．系統硬件和系統軟件

B．硬件系統和軟件系統

C．主機和外部設備

D．主機、鍵盤、顯示器和輔助存儲器

6．IT的含義是（）。

A．通信技術

B．信息技術

C．網絡技術

D．信息學

7．LAN的含義是（）。

A．因特網

B．局域網

C．廣域網

D．城域網 8．冗余數據是指可以由其它數據導出的數據。例如，數據庫中已存放了學生的數學、語文和英語的三科成績，如果還存放三科成績的總分，則總分就可以看作冗余數據。冗余數據往往會造成數據的不一致。例如，上面4個數據如果都是輸入的，由于操作錯誤使總分不等于三科成績之和，就會產生矛盾。下面關于冗余數據的說法中，正確的是（）。A．應該在數據庫中消除一切冗余數據

B．用高級語言編寫的數據處理系統，通常比用關系數據庫編寫的系統更容易消除冗余數據 C．為了提高查詢效率，在數據庫中可以保留一些冗余數據，但更新時要做相容性檢驗 D．做相容性檢驗會降低效率，可以不理睬數據庫中的冗余數據

9．在下列各軟件，不屬于NOIP競賽（復賽）推薦使用的語言環境有（）。A．gcc

B．g++

C．Turbo C

D．Free Pascal

10．以下斷電后仍能保存數據的有（）。

A．硬盤

B．高速緩存

C．顯存

D．RAM 11．在下列關于計算機語言的說法中，正確的有（）。A．高級語言比匯編語言更高級，是因為它的程序的運行效率更高

B．隨著Pascal、C等高級語言的出現，機器語言和匯編語言已經退出了歷史舞臺 C．高級語言比匯編語言程序更容易從一種計算機上移植到另一種計算機上 D．C是一種面向對象的高級計算機語言

12．近20年來，許多計算機專家都大力推崇遞歸算法，認為它是解決較復雜問題的強有力的工具。在下列關于遞歸算法的說法中，正確的是（）。

A．在1977年前后形成標準的計算機高級語言“FORTRAN77”禁止在程序使用遞歸，原因之一是該方法可能會占用更多的內存空間

B．和非遞歸算法相比，解決同一個問題，遞歸算法一般運行得更快一些 C．對于較復雜的問題，用遞歸方式編程一般比非遞歸方式更難一些

D．對于已經定義好的標準數學函數 sin(x)，應用程序中的語句“y=sin(sin(x));”就是一種遞歸調用

13．一個無法靠自身的控制終止的循環成為“死循環”，例如，在C語言程序中，語句“while(1)printf(“*”);”就是一個死循環，運行時它將無休止地打印*號。下面關于死循環的說法中，只有（）是正確的。A．不存在一種算法，對任何一個程序及相應的輸入數據，都可以判斷是否會出現死循環，因而，任何編譯系統都不做死循環檢查

B．有些編譯系統可以檢測出死循環

C．死循環屬于語法錯誤，既然編譯系統能檢查各種語法錯誤，當然也應該能檢查出死循環 D．死循環與多進程中出現的“死鎖”差不多，而死鎖是可以檢測的，因而，死循環也可以檢測的

14．在Pascal語言中，表達式（23 or 2 xor 5）的值是（）。A．18

B．1

C．23

D．32

15．在Pascal語言中，判斷整數a等于0或b等于0或c等于0的正確的條件表達式是（）。A．not((a<>0)or(b<>0)or(c<>0))B．not((a<>0)and(b<>0)and(c<>0))C．not((a=0)and(b=0))or(c<>0)D．(a=0)and(b=0)and(c=0)

16．地面上有標號為A、B、C的三根柱，在A柱上放有10個直徑相同中間有孔的圓盤，從上到下依次編號為1，2，3……，將A柱上的部分盤子經過B柱移入C柱，也可以在B柱上暫存。如果B柱上的操作記錄為“進、進、出、進、進、出、出、進、進、出、進、出、出”。那么，在C柱上，從下到上的編號為（）。

A．2 4 3 6 5 7

B．2 4 1 2 5 7

C．2 4 3 1 7 6

D．2 4 3 6 7 5

17．與十進制數1770對應的八進制數是（）。

A．3350

B．3351

C．3352

D．3540

18．設A=B=True，C=D=False，一下邏輯運算表達式值為假的有（）。A．(﹁A∧B)∨(C∧D∨A)

B．﹁(((A∧B)∨C)∧D)C．A∧(B∨C∨D)∨D

D．(A∧(D∨C))∧B

19．(2070)16 +(34)8 的結果是（）。A．（8332）10

B．（208A）16

C．（100000000110）2 D．(20212)8

20．已知7個節點的二叉樹的先根遍歷是1 2 4 5 6 3 7（數字為節點的編號，以下同），中根遍歷是4 2 6 5 1 7 3，則該二叉樹的后根遍歷是（）。

A．4 6 5 2 7 3 1

B．4 6 5 2 1 3 7 C．4 2 3 1 5 4 7

D．4 6 5 3 1 7 2

二、問題求解（共2題，每題5分，共計10分）。

1、（子集劃分）將n個數（1，2，…，n）劃分成r個子集。每個數都恰好屬于一個子集，任何兩個不同的子集沒有共同的數，也沒有空集。將不同劃分方法的總數記為S(n,r)。例如，S(4,2)=7，這7種不同的劃分方法依次為{(1),(234)}，{(2),(134)}，{(3),(124)}，{(4),(123)}，{(12),(34)}，{(13),(24)}，{(14),(23)}。當n=6，r=3時，S(6,3)=______________。（提示：先固定一個數，對于其余的5個數考慮S(5,3)與S(5,2)，再分這兩種情況對原固定的數進行分析。）

2、（最短路線）某城市的街道是一個很規整的矩形網絡（見下圖），有7條南北向的縱街，5條東西向的橫街?，F要從西南角的A走到東北角的B，最短的走法共有多少種？___________

B

A

三、閱讀程序寫結果（共4題，每題8分，共計32分。）

1、program j301;var i,a,b,c,x,y:integer;

p:array[0..4] of integer;begin

y:=20;

for i:=0 to 4 do read(p);

readln;

a:=(p[0]+p[1])+(p[2]+p[3]+p[4])div 7;

b:=p[0]+p[1] div((p[2]+p[3])div p[4]);

c:=p[0]*p[1] div p[2];

x:=a+b-p[(p[3]+3)mod 4];

if(x>10)

then y:=y+(b*100-a)div(p[p[4] mod 3]*5)

else

y:=y+20+(b*100-c)div(p[p[4] mod 3]*5);

writeln(x,',',y);end.{注：本例中，給定的輸入數據可以避免分母為0或數組元素下表越界。} 輸入：6 6 5 5 3 輸出：______________________

2、program j302;var a,b:integer;var x,y:^integer;procedure fun(a,b:integer);var k:integer;begin k:=a;a:=b;b:=k;end;begin

a:=3;b:=6;

x:=@a;y:=@b;

fun(x^,y^);

writeln(a,',',b);end.輸出：_______________________________

3、program j303;var a1:array[1..50] of integer;var i,j,t,t2,n,n2:integer;begin

n:=50;

for i:=1 to n do a1:=0;

n2:=round(sqrt(n));

for i:=2 to n2 do

if(a1=0)then

begin

t2:=n div i;

for j:=2 to t2 do a1[i*j]:=1;

end;

t:=0;

for i:=2 to n do

if(a1=0)then

begin

write(i:4);inc(t);

if(t mod 10=0)then writeln;

end;

writeln;end.輸出：_____________________________________________

_____________________________________________

4、Program j304;Type str1=string[100];

Str2=string[200];Var

S1:str1;s2:str2;Function isalpha(c:char):Boolean;Var i:integer;Begin

i:=ord(c);

if((i>=65)and(i<=90))or((i>=97)and(i<=122))then

isalpha:=true

else isalpha:=false;end;function isdigit(c:char):Boolean;var i:integer;begin

i:=ord(c);if(i>=48)and(i<=57)then isdigit:=true

else isdigit:=false;end;procedure expand(s1:str1;var s2:str2);var i,j:integer;a,b,c:char;begin

j:=1;c:=char(1);i:=0;

while(i<=ord(s1[0]))do

begin inc(i);c:=s1;

if c='-' then begin {1}

a:=s1[i-1];b:=s1[i+1];

if(isalpha(a)and isalpha(b))or(isdigit(a)and isdigit(b))then begin

dec(j);

while(ord(upcase(a))

begin

s2[j]:=a;inc(j);inc(a);end;

end

else begin s2[j]:=c;inc(j);end;end{1} else begin s2[j]:=c;inc(j);end;end;s2[0]:=char(j-2);end;begin readln(s1);expand(s1,s2);writeln(s2);end.輸入：wer2345d-h454-82qqq

輸出：__________________________

四、完善程序（前4空，每空2.5分，后6空，每空3分，共28分）。

1、（求字符的逆序）下面的程序的功能是輸入若干行字符串，每輸入一行，就按逆序輸出該行，最后鍵入-1終止程序。

請將程序補充完整。Program j401;type str1=string[100];var line:str1;kz:integer;procedure reverse(var s:str1);var I,j:integer;t:char;begin

i:=1;j:=length(s);

while(i

t:=s;s:=s[j];s[j]:=t;

;;

end;end;begin

writeln(?continue?-1 for end.?);

readln(kz);

while()do

begin

readln(line);

;

writeln(line);

writeln(?continue?-1 for end.?);

readln(kz);

end;end.2 3 3 2-1 1 3 4 1 1 5 4 4 5 5

2、（棋盤覆蓋問題）在一個2k×2 k個方格組成的棋盤中恰有一個方格與其它方格不同（圖中標記為-1的方格），稱之為特殊方格?，F用L型（占3個小方格）紙片覆蓋棋盤上除特殊方格的所有部分，各紙片不得重疊，于是，用到的紙片數恰好是（4 k-1）/3。在下表給出的一個覆蓋方案中，k=2，相同的3各數字構成一個紙片。

下面給出的程序使用分治法設計的，將棋盤一分為四，依次處理左上角、右上角、左下角、右下角，遞歸進行。請將程序補充完整。

Program j402;type arr1=array[1..65] of integer;

arr2=array[1..65] of arr1;var board:arr2;tile:integer;size,dr,dc:integer;procedure chessboard(tr,tc:integer;dr,dc:integer;var size:integer);var t,s:integer;begin

if(size=1)then;

t:=tile;inc(tile);

s:=size div 2;

if then chessboard(tr,tc,dr,dc,s)else begin

board[tr+s-1]:=t;;end;if(dr=tc+s)then chessboard(tr,tc+s,dr,dc,s)

else begin board[tr+s-1][tc+s]:=t;

;end;if(dr>=tr+s)and(dc

board[tr+s][tc+s]:=t;

;end;if(dr>=tr+s)and(dc>=tc+s)then chessboard(tr+s,tc+s,dr,dc,s)else begin board[tr+s][tc+s]:=t;;end;end;procedure prt1(n:integer);var I,j:integer;begin

for I:=1 to n do begin

for j:=1 to n do write(board[j]:3);

writeln;end;end;begin

writeln(?input size(4/8/16/64):?);

readln(size);writeln(?input the position of special block(x,y):?);

readln(dr,dc);board[dr][dc]:=-1;

tile:=1;chessboard(1,1,dr,dc,size);prt1(size);end.NOIP2007年普及組（Pascal語言）參考答案與評分標準

一、單項選擇題：（每題1.5分）

題號 2 3 4 5 6 7 8 9 10 答案

D D C B B B B C C A 題號 12 13 14 15 16 17 18 19 20 答案

C A A A B D C D A A

二、問題求解：（每題 5分）

1．90 2．210

三、閱讀程序寫結果

1.15, 46（對1個數給4分，無逗號扣1分）2.3, 6

3.2 3 5 7 11 13 17 19 23 29

47

4.wer2345defgh45456782qqq

四、完善程序(前4空（①--④），每空2.5分，后6空（⑤--⑩），每空3分)

（說明：以下各程序填空可能還有一些等價的寫法，各省可請本省專家審定和上機驗證，不一定上報科學委員會審查）

1．① inc(i)或i:=i+1 ② dec(j)或 j:=j-1 ③ kz<>-1 ④ reverse(line)2.⑤ exit ⑥(dr

第四篇：第十九屆(2013年)全國青少年信息學奧林匹克聯賽初賽 答案

第十九屆（2013年）全國青少年信息學奧林匹克聯賽初賽 答案

普及組Pascal語言試題

AABCD

BBCAC

AADAC

CADAB

二、1.14

2.01 1

1三、1.3+5=8

2.6

3.7

4.4四、1.(1)n-p+i

(2)a[i]

(3)n

(4)i-p+1

(5)a[i-p]

2.(1)cur

(2)a[root].right_child

(3)cur

(4)upper_bound

(5)1

第五篇：(NOIP2005)第11屆全國青少年信息學奧林匹克聯賽初賽試題普及組pascal

第十一屆全國青少年信息學奧林匹克聯賽初賽試題

（普及組 pascal 語言 二小時完成）

●●全部試題答案要求寫在答題紙上，寫在試卷紙上一律無效●●

一.選擇一個正確的答案代碼（A/B/C/D/E），填入括號內（每題1.5分，共30分）1.在字符串“ababacbabcbdecced”中出現次數最多的字母出現了（）次。A.6 B.5 C.4 D.3 E.2 2.設全集I={a,b,c,d,e,f,g,h}，集合A={a,b,c,d,e,f}，B={c,d,e}，C={a,d}，那么集合A∩B∩~C為（）。A.{c,e} B.{d,e} C.{e} D.{c,d,e} E.{d,f} 3.和十進制數23的值相等的二進制數是（）。A.10110 B.11011 C.11011 D.10111 E.10011 4.完全二叉樹的交點個數為11，則它的葉結點個數為（）。A.4 B.3 C.5 D.2 E.6 5.平面上有五個點A（5,3),B(3,5),C(2,1),D(3,3),E(5,1)。以這五點作為完全圖G的頂點，每兩點之間的直線距離是圖G中對應邊的權值。以下哪條邊不是圖G的最小生成樹中的邊（）。A.AD B.BD C.CD D.DE E.EA 6.Intel的首顆16位處理器是（）。A.8088 B.80386 C.80486 D.8086 E.Pentium 7.處理器A每秒處理的指令時處理器B的2倍。某一特定程序P分別編譯為處理器A和處理器B的指令，編譯結果處理器A的指令數是處理器B的4倍。已知程序P在處理器A上執行需要1個小時，那么在輸入相同的情況下，程序P在處理器B上執行需要（）小時。A.4 B.2 C.1 D.1/2 E.1/4 8.以下哪個不是計算機的輸出設備（）。A.音箱 B.顯示器 C.打印機 D.掃描儀 E.繪圖儀 9.下列活動中不屬于信息學奧賽的系列活動的是（）。A.NOIP B.NOI C.IOI D.冬令營 E.程序員等級考試 10.以下斷電之后仍能保存數據的是（）。A.硬盤 B.寄存器 C.顯存 D.內存 E.高速緩存 11.以下哪個軟件不是及時通信軟件（）。

A.網易泡泡 B.MSN Messenger C.Google Talk D.3DS Max E.QQ 12.下列關于高級語言的說法錯誤的是（）。A.Fortan是歷史上的第一個面向科學計算的高級語言 B.Pascal和C都是編譯執行的高級語言 C.C++是歷史上的第一個支持面向對象的語言 D.編譯器將高級語言程序轉變為目標代碼

E.高級語言程序比匯編語言程序更容易從一種計算機移植到另一種計算機上 13.下列設備不具有計算功能的是（）。

A.筆記本電腦 B.掌上電腦 C.智能手機 D.電子計算機 E.液晶顯示器 14.常見的郵件傳輸服務器使用（）協議接收郵件。A.HTTP B.SMTP C.TCP D.FTP E.POP3 15.下列瀏覽器中，由微軟公司開發的瀏覽器是（）A.Internet Explore B.Netcape C.Opera D.Firefox E.Mozilla 16.一位藝術史學家有2000幅真彩色圖像，每幅圖像約占3M空間。如果將這些圖像以位圖形式保存在CD光盤上（一張CD光盤的容量按600M計算），大約需要（）張CD光盤。A.1 B.10 C.100 D.1000 E.10000 17.設A=true，B=false，C=false，D=true，以下邏輯運算表達式值為真的是（）。A.(A∧B)∨(C∧D)B.((A∧B)∨C)∧D C.A∧((B∨C)∧D)D.(A∧(B∨C))∨D E.(A∨B)∧(C∧D)18.(3725)8+(B)16的運算結果是（）。

A.(3736)8 B.(2016)10 C.(1111110000)2 D.(3006)10 E.(7B0)16 19.二叉樹T的寬度優先遍歷序列為A B C D E F G H I，已知A是C的父交點，D是G的父交點，F是I的父交點，數中所有結點的最大深度為3，（根結點深度設為0），可知F的父結點是（）。A.無法確定 B.B C.C D.D E.E 20.設棧S的初始狀態為空，元素a,b,c,d,e,f,g依次入棧，以下出棧序列不可能出現的是（）。A.a,b,c,e,d,f,g B.b,c,a,f,e,g,d C.a,e,d,c,b,f,g D.d,c,f,e,b,a,g E.g,e,f,d,c,b,a

二.問題求解（請在空格處填上答案，每空5分，共10分）

1.將數組{32,74,25,53,28,43,86,47}中的元素按從小到大的順序排列，每次可以交換任意兩個元素，最少需要交換___次。

2.有3個課外小組：物理組，化學組和生物組。今有張、王、李、趙、陳、5名同學，已知張、王為物理組成員，張、李、趙為化學組成員，李、趙、陳為生物組成員。如果要在3個小組分別選出3位組長，一位同學最多只能擔任一個小組的組長，共有___種選擇方案。

三.閱讀程序（共4題，每題8分，共計32分）1.var a,b : integer;begin read(a);b:=(a*(a*a))+1;if b mod 3 = 0 then b := b div 3;if b mod 5 = 0 then b := b div 5;if b mod 7 = 0 then b := b div 7;if b mod 9 = 0 then b := b div 9;if b mod 11 = 0 then b := b div 11;if b mod 13 = 0 then b := b div 13;if b mod 15 = 0 then b := b div 15;writeln((100*a-b)div 2);end.輸入：10 輸出：_____ 2.var str : string;i : integer;begin str := 'Today-is-terrible!';for i := 7 to 11 do if str[i] = '-' then str[i-1] := 'x';for i := 13 downto 1 do if str[i] = 't' then str[i+1] := 'e';writeln(str);end.輸出：_____ 3.var a,b,c,p,q : integer;r : array[0..2] of integer;begin read(a,b,c);p := a div b div c;q := b300);if(3 * qr[1]);end.輸入：100 7 3 輸出：_____ 4.var str : string;len,i,j : integer;nchr : array[0..25] of integer;mmin : char;begin mmin := 'z';readln(str);len := length(str);i := len;while i>= 2 do begin if str[i2 do write(str[j] < mmin)then fillchar(nchr,sizeof(nchr),0);for j := i to len do begin if(str[j] > str[iord('a')]);end;dec(nchr[ord(mmin)1])-ord('a')]);write(mmin);for i := 0 to 25 do for j := 1 to nchr[i] do write(chr(i + ord('a')));writeln;end.輸入：zzyzcccbbbaaa 輸出：_____

四.完善程序(前4空，每空2分，后5空，每空4分，共28分）1.判斷質數 題目描述：

給出一個正整數，判斷這個數是否是質數。輸入：

一個正整數n(1 ≤ n ≤ 10000)。輸出：

如果n是質數，輸出“YES”；否則，輸出“NO”。輸入樣例： 10 輸出樣例： NO 程序： var ① : integer;begin read(n);if n = 2 then writeln(②)else if(③)or(n mod 2 = 0)then writeln('NO')else begin i := 3;while i * i <= n do begin if ④ then begin writeln('NO');exit;end;i := i + 2;end;writeln('YES');end;end.2.木材加工 題目描述：

木材廠有一些原木，現在想把這些木頭切割成一些長度相同的小段木頭（木頭有可能有剩余），需要得到的小段的數目是給定的。當然，我們希望得到的小段越長越好，你的任務是計算能夠得到的小段木頭的最大長度。木頭長度的單位是cm。原木的長度都是正整數，我們要求得到的小段木頭的長度也是正整數。輸入：

第一行是兩個正整數N和K（1 ≤ N ≤ 100000，1 ≤ K ≤ 10000），N是原木的數目，K是需要得到的小段的數目。

接下來的N行，每行有一個1到10000之間的正整數，表示一根原木的長度。輸出：

輸出能夠切割得到的小段的最大長度。如果連1cm長的小段都切不出來，輸出“0”。輸入樣例： 3 7 232 124 456 輸出樣例： 114 程序： var n,k :integer;len : array[1..10000] of integer;i,left,right,mid : integer;function isok(t : integer): boolean;var num,i : integer;begin num := 0;for i := 1 to n do begin if num >= k then break;num := ①;end;if ② then isok := true else isok :=false;end;begin readln(n,k);right := 0;for i := 1 to n do begin readln(len[i]);if right < len[i] then right := len[i];end;inc(right);③;while ④ < right do begin mid :=(left + right)div 2;if ⑤ then right := mid else left := mid;end;writeln(left);end.