1、桐高信息學奧林匹克競賽初賽模擬訓練題計算機奧賽模擬訓練試卷（四）說明：本卷總分100分 時間為2小時一、 選擇1個正確答案代碼，填入每題括號內（每題1.5分，多題無分，共30分）。1、下列4個不同數制表示的數中，最大的一個數是（ ）A. 十進制數220.1 B. 二進制數11011011.1 C. 八進制數334.1 D. 十六進制數DC.12、Office2000中的“剪貼板”是（ ）。 A. 硬盤中的一塊區域 B. 內存中的一塊區域 C. Cache中的一塊區域 D. CPU中的一塊區域3、產生100至300之間的隨機整數（Random），且包含100、300兩個整數的表達式是（ ）。 A

2、. Random（100）+200 B. Random（200）+100 C. Random（201）+100 D. Random（300）4、調制解調器又稱為Modem，可用于連結計算機和電話線撥號上網。調制是指（ ）。 A. 把電信號轉換成光信號 B. 把光信號轉換成電信號 C. 把模擬信號轉換成數字信號 D. 把數字信號轉換成模擬信號5、若采用32*32點陣的漢字字模，存放1600個漢字信息需要的存儲容量是（ ）KB。 A. 25 B. 200 C. 800 D. 16006、為了刪除當前盤目錄下第3個字符為C的所有文件，下列DOS命令中正確的是（ ） A. DEL ?*.* B. DE

3、L ?C.* C. DEL *c*.* D. DEL ?c*.*7、OSI的七層協議中，最底層是( )。 A. 會話層 B. 數據鏈路層 C. 物理層 D. 網絡層8、設x為值大于零的實型變量，計算機Pascal中X8的表達式為（ ）。 A. ln(8*exp(x) B. exp(8*ln(x) C. x8 D. sqr(sqr(sqr(x)*x9、十進制數-103的補碼是（ ）。 A. 10011001 B. 11100111 C. 10110011 D. 0001100110、為了區分漢字與ASCII碼，計算機中漢字編碼的最高位為（ ）。 A. 0 B. 1 C. 2 D. 411、“網絡

4、通信協議”，如Internet采用的TCP/IP等協議是一組（ ）。 A. 軟件 B. 存儲器 C. 外部設備 D. 約定的規則12、下列軟件依次對應于圖像瀏覽、屏幕擷取、文件壓縮、殺毒軟件的排列順序是（ ）。 HyperCam Winrar Norton Antivirus ACDsee A. B. C. D. 13、在微型計算機系統中，I/O接口的位于（ ）之間。 A. CPU和內存儲器 B. 外部設備與內存儲器 C. 總線與輸出輸入設備 D. 主機和輸出輸入設備14、在微型計算機中，常用（ ）碼實現十進制與二進制數之間的自動轉換。 A. BCD碼 B. ASCII碼 C. 海明碼 D.

5、機內碼15、微機中使用的鼠標是直接連接在主機（ ）上的。 A. 顯示器接口 B. 打印機接口 C. 并行接口 D. 串行接口16、使用WORD菜單時，若選中的菜單項尾部有（ ）標記，說明此菜單還有下一級子菜單。 A. 組合鍵 B. 向右小三角形箭頭 C. 省略號 D. 帶括號的字母17、一個棧的輸入順序為1、2、3、4、5，下列序列中可能是棧的輸出序列是（ ）。 A. 54312 B. 24135 C. 21543 D. 1253418、函數f(x)=3x2-2x-1在（-2，2）中的最小值為（ ）。 A. 1 B. -1 C. 4/3 D. 8/319、已知A=11001010B，B=000

6、001111B，C=01011100B，ABC=（ ）B。 A. 11001110 B. 01110110 C. 1110110 D. 0100110020、一棵二叉樹的中序遍歷序列為：DGBAECHF，后序遍歷序列為：GDBEHFCA，則前序列遍歷序列是（ ）。 A. ABCDFGHE B. ABDGCEFH C. ACBGDHEF D. ACEFHBGD二、 問題求解（16分）第1題（5分），將n個不同顏色的球放入K個無標號的盒子中（n>=k，且盒子不允許為空）的方案數為S（n，k），例如：n=4，k=3時，S（n，k）=6。當n=6，k=3時，S（n，k）=_。第2題（5分），有5

7、本不同的數學書分給5個男同學，有4本不同的英語書分給4個女同學，將全部書收回來后再從新發給他們，與原方案都不相同的方案有_種。 第3題（6分），把三角形各邊分成n等分，過每一分點分別做各邊的平等線，得到一些由三角形和這些平等線所組成的平等四邊形。N為已知整數，能組成_個平等四邊形。 三、 給出程序的運行結果（22分）6第1題（6分），program LM_31; var d,p:integer; Begin P:=1;D:=11;While d>1 do begin p:=2*(p+1); d:=d-1; End;Writeln(p);End.輸出：_第2小題（8分），program L

8、M_32;Varg:integer;k,t:real;BeginK:=0;g:=0;For m:=1 to 49 do Begin g:=g+1; 第3題（8分），program LM_33; var n,I,tem,t:longint; s:string; begin write(Input n:);readln(n); s:=1; repeat I:=length(s); While si=1 do Begin Si:=0;dec(i); End; If I>0 then si:=1; Else s:=1+s; Val(s,t,tem); Until t mod n=0; Write

9、ln(n,*,t div n,=,s);end.輸入：6輸出：_k:=k+1/(g*(g+1);End; Writeln(k:10:2); End. 輸出：_ 四、完善程序（每空2分，共32分）第1題（14分），以下程序是將一組整數按從小到大的順序排列。排序的方法是將長度為n的數a分為兩個長度分別為（n div 2）與（n-n div 2）的子數組，a1,a2。然后遞歸調用過程，將a1，a2分別排序，最后將a1，a2歸并成數組a。例如a=（3，1，2，4），那么a1=（3，1），a2=（2，4）。調用排序過程將a1,a2排序，得到a1=（1，3），（2，4）然后進行合并排序。從鍵盤輸入數的長度

10、n以及n個整數，存在數組a中，調用子過程sort進行排序，最后輸出排序結果。Program LM_41; Const maxn=100; Type arr=array1.maxn of integer; n,I:integer; procedure sort(n:integer;var a:arr); var I,p1,p2,n1,n2:integer; A1,a2:arr; Begin If n=1 thex exit; Fillchar(a1,sizeof(a1),0); Fillchar(a2,sizeof(a2),0); N1:=0; n2:=0; N1:=n div 2; n2:=(

11、_); For I:=1 to n1 do a1i:=ai; For I:=1 to n2 do a2i:=_ _; _; sort(n2,a2); p1:=1;p2:=1; n:=0; while (p<=n1) and (_) do begin n:=n+1; if _ then begin an:=a1p1;inc(p1);end else begin _;inc(p2);end; end; if p1<=n1 then for I:=_ _ to n1 do begin n:=n+1;an:=ai; end else for I:=p2 to n2 do begin n:=

12、n+1;an:=a2i;end;End;Begin Write(n=); Readln(n); For I:=1 to n do read(ai); Readln; Sort(n,a); For I:=1 to n do write(ai, ); Writeln;End.第2題（8分），有（1<=n<=100）個同學種m(1<=n<=m<=100)種小樹苗，例如：4個同學每小時種4種樹苗的數量估算如下表所示，編程輸出每人種1種苗所用的總時間最少的安排方案和所花費的時間。學生 苗樹ABCD15245243533524243233Program LM_42; Cons

13、t Maxn=100;maxm=100; Var A:arr1.maxn,1.maxm of integer; M,n:integer; I,j,t:integer; Procedure work(k,t1:integer); Var I:integer; Begin If _then Begin If t1<t then t1:=t; Exit ; End; For I:=_ _to_do Work(k+1,_ _); End; Begin Readln(n); For I:=1 to n do Begin For j:=1 to m do read(aI,j); Readln; En

14、d; t:=maxint;Work(1,0); Writeln(t) End.第3題（10分），程序的任務是用09中的數字填入如下乘法運算的*處，數字可重復使用，且所用的數字至少有一個是素數，要求輸出滿足下列算式的方案數。 * * * * * * * * * * * * * * * program LM_43; const p:set of 0.9=2,3,5,7;var s:set of 0.9;n:integer;ans:longint;f:text; procedure init;I:integer;T:byte;Begin Readln(n); S:= ; For I:=1 to n

15、do Begin Read(t); S:=s+t; End; Close(f);End; Function ok(x,l:integer):Boolean; 此函數判斷X是否符合條件Var t:byte;Begin Ok:=false; If _<>1 then exit; While x<>0 do Begin T:=x mod 10; If not(t in s ) then exit; X:=x div 10; End; Ok:=true;End; Funtion inset(x:integer):boolean; 此函數判斷X中是否包含素數字Var t:byte;Begin Inset:=false; While _do Begin T:=x mod 10; If t in p then Begin Inset:=ture; Exit; End; _ End;End; Procedure work;Var I,i1,i2,i3,j1,j2:integer;Begin Ans:=0; For i1:=1 to 9 do If i1 in s then For i2:=1 to 9 do If i2 in s then For i3:=1 to 9 do If i3 in s then Begin _; for j1:=1 to 9 do