1、2015第二十一屆全國青少年信息學奧林匹克聯賽初賽普及組pascal語言試題競賽時間:2015年10月11日14:30-16:30一、單項選擇題(共20題，每題1.5分,共計30分;每題有且僅有一個正確選項)1. 1mb等于（ ）。a1000字節 b. 1024字節 c. 1000×1000字節 d. 1024×1024字節2. 在pc機中，pentium（奔騰）、酷睿、賽揚等是指（ ）。 a. 生產廠家的名稱 b. 硬盤的型號 c.cpu的型號 d. 顯示器的型號3. 操作系統的作用是（ ）。 a. 把源程序譯成目標程序 b. 便于數據管理 c. 控制和管理系統資源 d.

2、 實現硬件之間的連接4. 在計算機內部原來傳遞、存儲、加工處理的數據或指令都是以（ ）形式進行的。 a. 二進制碼 b.八進制碼 c.十進制碼 d.智能拼音碼5. 下列說法正確的是( )。 acpu的主要任務是執行數據運算和程序控制 b.存儲器具有記憶能力，其中信息任何時候都不會丟失 c.兩個顯示器屏幕尺寸相同，則它們的分辨率必定相同 d.個人用戶只能使用wifi的方式連接到internet6. 二進制數00100100和00010100的和是( )。 a.00101000 b.01011101 c.01000100 d.001110007. 與二級制小數0.1相等的十六進制的數是（ ）。 a

3、. 0.8 b. 0.4 c. 0.2 d. 0.18. 所謂的“中斷”是指( ). a.操作系統隨意停止一個程序的運行 b.當出現需要時，cpu暫時停止當前程序的執行轉而執行處理新情況的過程。 c. 因停機而停止一個程序的運行 d. 電腦死機9. 計算機病毒是( )。a. 通過計算機病毒傳播的危害人體健康的以一種病毒b. 人為制造的能夠侵入計算機系統并給計算機帶來故障的程序或者指令集合c. 一種由于計算機元器件老化而產生的對生態環境有害的物質d. 利用計算機的海量高速運算能力而言之出來的用于疾病預防的新型病毒10. ftp可以作為( )。 a. 遠程運輸文件 b. 發送電子郵件 c. 瀏覽網

4、頁 d. 網上聊天11. 下面哪種軟件不屬于即時通信軟件( )。 a. qq b. msn c. 微信 d. p2p12. 6個頂點的連通圖的最小生成樹，其邊數為( )。 a. 6 b. 5 c. 7 d. 413. 鏈表不具備的特點是( )。a. 可隨機訪問任何一個元素; b. 插入、刪除操作不需要移動元素c. 無需事先估算存儲空間大小 d. 所需存儲空間與存儲元素個數成正比14. 線性表若采用鏈表存儲結構，要求內存中可用存儲單元地址( ). a. 必須連續; b. 部分地址必須連續; c. 一定不連續 d. 連續不連續都可以15. 今有一空棧s，對下列待進棧的數據元素序列a,b,c,d,e

5、,f依次進行進棧、進棧、出棧、進棧、進棧、出棧的操作，則此操作完成后，棧s的棧頂元素為（ ）。a. f b. c c. a d. b16. 前序遍歷序列和中序遍歷序列相同的二叉樹為（ ）。a. 根結點無左子樹的二叉樹b. 根結點無右子樹的二叉樹c. 只有根結點的二叉樹或非葉子結點只有左子樹的二叉樹d. 只有根結點的二叉樹或非葉子結點只有右子樹的二叉樹17. 如果根的高度為1，具有61個結點的完全二叉樹的高度為( )。a. 5 b. 6 c. 7 d. 818. 下列選項中不屬于視頻文件格式的是a. txt b. avi c. mov d. rmvb19. 設某算法的計算時間表示為遞推關系式t（

6、n）=t（n-1）+n (n為正整數)及t（0）=1，則該算法的時間復雜度為（ ）。a. o（logn） b. o（nlogn） c. o（n） d. o（n2）20. 在noi系列賽事中選手必須使用由承辦單位統一提供的設備，下列物品中不允許選手自帶的是( )。a.鼠標 b.筆 c.身份證 d.準考證二、問題求解(共2題，每題5分，共計10分；每題全部答對得5分，沒有部分分)1.重新排列1234使得每一個數字都不在原來的位置上，一共有 種排法。2.一顆結點數為2015的二叉樹最多有 個葉子結點。三、閱讀程序寫結果(共4題，每題8分，共計32分)1. var a,b,c:longint; /長整

7、形數據begin a:=1; b:=2; c:=3; /給a b c 賦值為1 2 3 if a>b then /若a>b 才執行begin end 間的內容 beginif a>c then write(a, ) else write(b, ); /若a>c 輸出a 否則輸出b end; writeln(c); /輸出c 并換行end.輸出:_ 2. type point=record /定義一個記錄類型point 包含x,y兩個元素 x:longint; y:longint; end;ex=record /定義一個記錄類型ex 包含a,b,c三個元素a:longin

8、t; b:longint; c:point; /c元素是上面定義的point類型 end;var e:ex; /申請一個ex類型的記錄為ebegin e.a:=1;e.b:=2;e.c.x:=e.a+e.b;e.c.y:=e.a*e.b; /給元素賦值 注意c元素還包含兩個元素writeln(e.c.x,e.c.y); /輸出e的c元素下的x和e的c元素下的y 中間 ','隔開end.輸出: 3. varstr:string; /字符串i:=longint;count:longint; /長整數begincount:=0;readln(str); /把輸入賦給strfor i:

9、=1 to length(str) do /從1到str的長度循環 begin if (stri>=a )and(stri<=z) then int(count);/如果在az之間的計數+1 end;writeln(it has ,count, lowercases); /輸出中count是小寫字母個數end.輸入：noi2016 will be held in mian yang.輸出: 4. type p_char=char;var c1,c2:char; p1,p2:p_char;procedure fun(a,b:p_char);begin a:=b; inc(a);end

10、;begin c1:=a; c2:=a;p1:=c1;p2:=c2;fun(p1,p2);writeln(c1,c2);end.輸出： 四、完善程序(共2題，每題14分，共計28分)1. （打印月歷）輸入月份m（1<=m<=12），按一定格式打印2015年第m月的月歷。（第三、四空2.5分，其余3分）例如：2015年1月的月歷打印效果如下（第一列為周日）：smtwtfs1 2345678910111213141516171819202122232425262728293031const daynum:array1.12 of longint= (31,28,31,30,31,30,

11、31,31,30,31,30,31);varm,offset,i: longint;begin read(m); writeln(s,#9, m,#9, t,#9, w,#9, t,#9, f,#9, s);/#9為tab制表符 (1) ; for i:=1 to m-1 do offset:= (2) ; for i:=1 to offset do write(#9);for i:=1 to (3) do begin write( (4) ); if (i=daynumm) or ( (5) =0) then writelnelse write(#9);end;end.2. (中位數)給定n（n為奇數且小于1000）個整數，整數的范圍在0m（0<m<231）之間，請使用二分法求這n個整數的中位數。所謂中位數，是指將這n個數排列之后，排在正中間的數。（第五空2分，其余3分）const maxn=1000;varn, i, lbound,mid,m,count:longint;x: array 1.maxn of longint;begin read(n,m);for i := 1 to n do read(xi); lbound:=0; r