信息學(xué)競賽初賽模擬試題16套(08)

1、信息學(xué)初賽模擬試題（八）（中學(xué)組 PASCAL 語言，兩小時完成）請將正確答案在答卷上填寫，在本試題卷上答題無效一、選擇題 （每小題1.5 分，共30 分）1、 一臺計算機一經(jīng)設(shè)計出廠，其指令系統(tǒng)_A 、已確定B 、再經(jīng)軟件人員編制而成C、可繼續(xù)其功能2、把整數(shù)7 轉(zhuǎn)換為字符 7的表達(dá)式是 _A 、 Chr（ 7） -ord（ 0）B、 chr（ 7-ord（ 0）B、 Chr（ 7+ord（ 0）D、 chr（ 7+ord（ 0）D、屬系統(tǒng)軟件3、_接口是一種通用型系統(tǒng)級接口，它連接的外設(shè)可以是硬盤驅(qū)動器、光盤驅(qū)動器和掃描儀等。A 、 RS232B、IDEC、 EIDED、 SCSI4、 1

2、GB=_ 字節(jié)。A、220B、 230C、 106D、 1095、主存儲器系統(tǒng)中使用A 、增加主存容量C、存放 BIOSCache 的目的是 _B 、存放常用的系統(tǒng)程序D 、提高 CPU 存取主存的速度6、從以下敘述中選出最確切敘述_A 、 CPU 是計算機核心部件，它的主要功能是完成算術(shù)和邏輯運算操作；B、根據(jù)系統(tǒng)總線傳送信息的類型不同，它可分為地址線、數(shù)據(jù)線和控制線。C、在指令字中，除給出指令的操作碼外，還必須給出操作的對象。D、 顯示器是構(gòu)成計算機顯示系統(tǒng)的硬件部件。7、 高級語言中，程序控制一般分為三種基本結(jié)構(gòu)，其中 A 、循環(huán) B 、分支 C、遞歸 D、過程_結(jié)構(gòu)可提供作條路徑選擇。

3、8、在子程序的程序頭，一般要寫出一些變量，這些變量被稱為_A 、形式參數(shù)B、實際參數(shù)C、局部參數(shù)D 、全局參數(shù)9、二分法查找_存儲結(jié)構(gòu)。A 、只適合于順序C、既適合于順序也適合于鏈?zhǔn)紹、只適合于鏈?zhǔn)紻、既不適合于順序也不適合于鏈?zhǔn)?0、當(dāng)選定文件或文件夾，不將文件或文件夾放到“回收站”中，直接刪除的操作是_A 、 按 Delete（ Del）鍵B、用鼠標(biāo)直接將文件或文件夾拖放到“回收站”中C、按 Shift + Delete（ Del）鍵D 、 用“我的電腦”或“資源管理器”窗口中的“文件”菜單中的刪除命令11、有一個二維數(shù)組A ，行下標(biāo)的范圍是0 到 8，列下標(biāo)的范圍是1 到 5，每個數(shù)組元

4、素用相信的 4 個字節(jié)存儲。存儲器按字節(jié)編址。假設(shè)存儲數(shù)組元素A0 ， 1的第一個字節(jié)的地址是 0。若按列存儲，則A2 ，4 的第一個字節(jié)的地址是_A、28B、 108C、 116D 、13212、與二進(jìn)制1110111.111 對應(yīng)的十六進(jìn)制數(shù)是_A 、 77.EB 、 77.7C、E7.ED 、 E7.713、 URL 的一般格式為_A 、 /< 路徑 >/<文件名 >/< 主機 >B、 <通信協(xié)議 >： /<主機 >/< 路徑 >/< 文件名 >C、 <通信協(xié)議 >： /<主機 >

5、/< 文件名 >D、 /< 主機 >/< 路徑 >/< 文件名 >： <通信協(xié)議 >14、 _是實現(xiàn)兩個異種網(wǎng)絡(luò)互連的設(shè)備。A 、網(wǎng)橋B 、網(wǎng)關(guān)C、集線器D、路由器15、 _可能把模擬聲音信號轉(zhuǎn)換成數(shù)字聲音信號。A 、 A/DB、 D/AC、 R/WD 、 I/O16、現(xiàn)有十六進(jìn)制數(shù)x、 y，它們的值分別是x=BD ， y=9D ，則表達(dá)式x*y 的值為 _A 、 73E9B、 50EDC、7E00D、 CE1117、設(shè)T 是哈夫曼樹，且各片樹葉的權(quán)分別是：1， 2，3， 4， 5，6，則此樹的非樹葉結(jié)點的權(quán)之和是_A、27B、30C

6、、45D、5118、設(shè)要將序列<Q ， H， C， Y ，P， A ， M ， S， R， D， F，X> 中的關(guān)鍵碼按字母的升序重新排列，則 _是以第一個元素為分界元素的快速排序一趟掃描的結(jié)果。A、F，H，C，D，P，A ，M，Q，R，S，Y，XB、P，A，C，S，Q，D， F，X ，R，H，M，YC、A，D，C，R，F(xiàn)，Q，M，S，Y，P，H，XD、H，C，Q，P，A，M，S，R，D，F(xiàn)， X，Y3A 、 011B、 010C、100D 、 11120、線性表具有兩種存儲方式，即順序方式和鏈接方式?，F(xiàn)有一個具有五個元素的線性表L=23 ， 17， 47， 05， 31 ，若它以

7、鏈接方式存儲在下列100119 號地址空間中，每個結(jié)點由數(shù)據(jù)（占2 個字節(jié)）和指針（占2 個字節(jié)）組成，如下所示：05U17X23V31Y47Z100120則該線性表的首結(jié)點的起始地址為_A 、 100 B、 104C、108D 、110二、問題求解 （每小題6 分，共 12 分）1、 圓周上有10 個點，每兩點間連一弦，如果其中任意三條弦在圓內(nèi)都不共點，由這些弦在圓內(nèi)的交點為頂點的三角形的個數(shù)為_。2、表達(dá)式3*5+2 是二叉樹中用何種遍歷的表達(dá)式? 并畫出該表達(dá)式二叉樹。三、寫出程序的運行結(jié)果：（共 28 分）第 1題（8分）program test31;const n=5;var I,j

8、,k:integer;r:array0.10 of integer;beginfor I:=1 to n do read(rI);for I:=2 to n dobegink:=rI;j:=I-1;while (k>rj) and (j>0) dobegin rj+1:=rj;j:=j-1;end;rj+1:=k;end;for I:=1 to n dowrite(rI, );writelnend.輸入:84935輸出：第 2 題（10分）program test32;var a:array1.1000 of word;n,i,j,dep:word;beginwrite('

9、N(1-1000)='); readln(n);if (n=0) or (n>1000) then begin writeln('Input error.'); readln; halt; end; fillchar(a,sizeof(a),0); a1:=1; dep:=1;for i:=2 to n do beginj:=3; while (j>0) do begindep:=dep mod n+1;if adep=0 then dec(j);end;adep:=i;end;for i:=1 to n do write(ai:5);writeln;end

10、.輸入： 8輸出：第 3 題（10分）program test33;const n=5;var i:integer;x,y:real;a:stringn;beginx:=0.375;while i<n dobeginy:=x;i:=0;while i<n dobeginy:=y*2; i:=i+1;if y>=1 then begin ai:='1'y:=y-1 endelse ai:='0'end;write('0.');for i:=1 to n do write(ai);writeln;x:=x-0.01endend.輸出

11、：四、完善程序 （每空2 分，共28 分）第 1題（6分） 問題描述 彼得在郵局值夜班，十分無聊，他對郵局內(nèi)的200 個信筒（編號為1 到 200），全部打開。然后每隔一個信筒關(guān)閉一個（ 2，4，6， ）。然后每隔兩個信筒進(jìn)行檢查（ 3，6，9， ），若開著，則關(guān)上；若關(guān)著，則打開，接著再每隔3 個（ 4，8，12， ）作類似工作。問最后結(jié)果哪些信筒開著，哪些信筒關(guān)著。Program test41;const maxn=200;var i,j:integer;open:array1.maxn of integer;beginfor i:=1 to maxn do openi:=1;for i:

12、=2 to maxn dobeginj:=i;whiledobegin openj:=end; j:=endfor i:=1 to maxn do if openi=1 then write(i:4);writelnend.第 2 題（12分） 問題描述 本程序?qū)⒆匀粩?shù)1,2,N*N （）按順時針方向依次寫在N 階方陣中。 N=5 時方陣如下 :12345161718196152425207142322218131211109programtest42;const maxn=10;var i,j,k,m,n:integer;a:array 1.maxn,1.maxn of integer;be

13、ginwrite('Input n:'); readln(n);m:=1; k:=1;repeati:=k;j:=k;repeatai,j:=m;j:=j+1;m:=m+1until ;repeatai,j:=m;i:=i+1;m:=m+1until ;repeatai,j:=m;j:=j-1;m:=m+1until ;repeatai,j:=m;i:=i-1;m:=m+1until ;k:=k+1until k>n div 2;ifthen ;for i:=1 to n dobeginfor j:=1 to n do write(ai,j:3);writelnendend.3121 n1 2,nr(a1,a2,ar ),a1<a2<,<ara1,a2,arn=5 r=3123124125134135145234235245345program test43;const maxn=10; maxr=maxn;var i,k,m,n,l,r,t:integer;a:array 0.maxr of integer;beginwrite('Inpu