1、第五屆全國青少年信息學(xué)計算機奧林匹克分區(qū)聯(lián)賽初賽試題提高組PASCAL(二小時完成)一 選擇一個正確答案代碼(A/B/C/D)填入每題的括號內(nèi) （每題15分，多選無分，共30分）1微機內(nèi)的存儲器的地址是按（ ）編址的。A.二進制位 B.字長 C.字節(jié) D.微處理器的型號2.下列諸因素中，對微機工作影響最小的是（）A.塵土 B.噪聲 C.溫度 D.濕度3.在24*24點陣字庫中，漢字一與編的字模占用的字節(jié)數(shù)分別是（）A.32,32 B.3Z,72 C.72,72 D.72,324.將 DOS系統(tǒng)盤插人 A驅(qū)

2、動器啟動機器隨后使用一批應(yīng)用軟件在此過程中， DOS系統(tǒng)盤（ ）A. 必須始終插人在A驅(qū)動器中 B.不必再用C.可能有時要插人A驅(qū)動器中 D.可能有時要插入B驅(qū)動器中5. 以下dos命令有可能在磁盤上建立子目錄的是（ ）A type Bdir Cxcopy Dcd6在CONFIGSYS文件中，裝入特定可安裝設(shè)備驅(qū)動程序的命令是（）A. buffer B flies C. driver D device7計算機能直接執(zhí)行的指令包括兩部分，它們是（）A.源操作數(shù)與目標(biāo)操作數(shù) B操作碼與操作數(shù)CASCII碼與漢字代碼 D數(shù)字與字符

3、8. 在微機中，通用寄存器的位數(shù)是（）A.8位 B.16位 C.計算機字長 D.32位9在計算機中，字符編碼通常采用（）A.原碼 B.反碼 C.ASCII碼 D.補碼10計算機的軟件系統(tǒng)通常分為（）A系統(tǒng)軟件與應(yīng)用軟件B高級軟件與一般軟件C軍用軟件與民用軟件D管理軟件與控制軟件11. 執(zhí)行DOS命令：C>ATTRIB A: * .*的功能是（）·A查A盤上所有文件屬性B查看A盤上當(dāng)前目錄中所有文件屬性C查看A盤上所有系統(tǒng)文件屬性D刪去A盤上所有隱含文件的屬性12執(zhí)行下列DOS命令，效果等價的是（）組A. copy*.f

4、or 與copy*.for conB. copy a:*.* B： 與xcopy a:*.* B：C.copy filel.txt+ file2.txt與copy fild2.txt+filel.txtD.xcopy A:*.* B：/s 與diskcopy A: B：13已知小寫字母m的十六進制的ASCll碼值是6D，則小寫字母c的十六進制的ASCll碼值是（）A98 B62 C99 D6314計算機中的數(shù)有浮點與定點數(shù)兩種，其中用浮點數(shù)表示的數(shù)，通常由（）這兩部分組成A.指數(shù)與基數(shù) B.尾數(shù)與小數(shù)C.階碼與尾數(shù) D.整數(shù)與小數(shù)15下列文件名

5、中屬于dos中的保留設(shè)備名的為（）Aaux Bcorn C，coul Dprnl16啟動計算機引導(dǎo)DOS是將操作系統(tǒng)（）A.從磁盤調(diào)入中央處理器B.從內(nèi)存儲器調(diào)入高速緩沖存儲器C.從軟盤調(diào)人硬盤D.從系統(tǒng)盤調(diào)入內(nèi)存儲器17十進制算術(shù)表達式3*512+7*64+4*8+5的運算結(jié)果用二進制表示為（）.10111100101 B. 11111100101C. 11110100101 D. 1111110110118組成'教授' (jiao shou)與' '副教授' (fujiao shou)與'講師

6、' ( jiang shi)這三個詞 在GB231280字符集中都是一級漢字對這三個詞排序的結(jié)果是（）A.教授,副教授,講師 B.副教授,教授,講師C.講師,副教授,教授 D.副教授,講師,教授19不同的計算機，其指令系統(tǒng)也不同，這主要取決于（）A所用的操作系統(tǒng) B系統(tǒng)的總體結(jié)構(gòu)C所用的CPU D所用的程序設(shè)計語言20對具有隱含屬性(H)的當(dāng)前目錄下的文件ab.txt,能成功執(zhí)行的DOS命令是（）A. TYPE ab.txt BCOPY ab.txt xy.txtCDIR ab.txt DREN ab.txt xy.txt二回答問題（l

7、0分）將Ln定義為求在一個平面中用n條直線所能確定的最大區(qū)域數(shù)目. 例如：當(dāng)n=1時L1=2，進一步考慮，用n條折成角的直線(角度任意)，放在平面上，能確定的最大區(qū)域數(shù)目Zn是多少？例如： 當(dāng)n=1時，Z12（如下圖所示）當(dāng)給出n后，請寫出以下的表達式：Ln=_Zn=_三閱讀程序，并寫出正確的運行結(jié)果（每題15分，共30分）l. program exgpl；var i，J，k： Integer；a： array0100 of Integer；Beginfor i:= 0 to 100 do ai:= i；for k:= 5 downto 2 dobeginfor i:=l to l00 do&

8、#160;if（i mod k)=0 then ai:=0；for i:= 1 to 99 dofor j:= ito 100-i doif ajaj+1then beginaj:=aj+aj+1；aj+1:= aj-aj+1；aj:=aj-aj+1；end;end；j：=1;while (aj= 0） and（j100) doj:=j+1；for i:= j to 100 do a0:=a0+ai；writeln（a0）；End本題的運行結(jié)果是：_2設(shè)數(shù)組 A1,A2，AN，已存入了數(shù)據(jù)，調(diào)用不同的排序程序，則數(shù)據(jù)比較的次數(shù)將會不同， 試計算出分別調(diào)用下列不同的排序過程的

9、比較運算的次數(shù)。其中SWAP(I，J)表示AI與AJ進行交換。（1）procedure sort1（N:integer)；var I，J：integer；BEGINfor I：= 1 to N- 1 DOFOR J:=1 to N DOIF AJ< AI then SWAP（I，J）END；調(diào)用該過程的語句為sort1(N)；比較運算的次數(shù)為：_（2）procedure sort2(I，N：integer）；VAR J：Integer；BEGINIF I=N then write（AN）ELSE for J：= I+1 to N doIF AJ AI then SWAP( I，J);wr

10、ite (AI）；sort2 (I+1，N）;END;調(diào)用該過程的語句為SORT2(N)；比較運算的次數(shù)為：_(3)procedure sort3(I，J：integer）；VAR M：integer；BEGINif I<>J thenBEGINM：=(IJ) DIV 2；sort3(I，M）; sort3(M+1,J);MERGE；假設(shè)合并的元素分別為P,G個,需要比較P+G次END；END；調(diào)用該過程的語句為sort3（N）；比較運算的次數(shù)為：_四根據(jù)題意，將以下程序填寫完善（共30分）l問題描述】求一棵樹的深度與寬度。（15分）樹可用數(shù)組tree：array1.n，1.5of

11、 integer；其中： treeI，1表示結(jié)點號； treeI，2treeI，5所屬結(jié)點。(1)(2) (4)（5）（6）（7）（3) （9） （10(11)（12）（8）（13）如上圖可表示為：1 2 3 4 02 5 6 7 03 8 0 0 04 9 10 0 05 0 0 0 06 0 0 0 07 11 12 0 08 0 0 0 09 0 0 0 010 0 0 0 011 0 0 0 012 13 0 0 013 0 0 0 0在求解的過程中，用到數(shù)組G: array1.N,1.7 of integ

12、er;其中：GI,1表示父結(jié)點，GI，2表示層次，GI，3表示本結(jié)點號，GI，4-GI，7表示子女結(jié)點；同時，設(shè)2個指針sp1(取數(shù)指針)，sp2(存數(shù)指針)【程序清單】：prograrn exgp3；const n= 13；var i,j,k,sp1,sp2,n1,n2,jmax,p:integer；tree： array1n，15of integer；g：array1n，l7of integer；beginfor i：= 1 to n dobegintreei， 1：=4for j:=2 to 5 do read(treei,j)；readln；end；sp1：=1； SP2：=1；

13、60;g1，l：=0； g1，2：=1 ；gl，3：=1；for i：=4 to 7 do g1，i：=treel，i-2；while _ dobeginP：= gsp1，2；sp2：= gsp1,3； j：= 4；while dobeginnl： gsp1,j； j；= j+1； ；gsp2，1：=n2； gsp2,2:=p；gsp2,3:=n1;lfor i：= 1 to 4 do gsp2，i+3：=treen1,i+1；end; _；end；writeln（maxd=，gsp2，2）；j：=1； k：=g1，2； jmax：=0；for i：= 2 to sp2 doif _ _ th

14、en j：= j+1else beginif jjmax then Jmax：= j；k：=gI，2；end；if jjmax then Jmax：J；writeln（max1，Jmax）；end2問題描述 用生成法求出1，2，r的全排列(r=8)（15分）算法過程用數(shù)組a：atray1r of integer；表示排列；初始化時，aI:=（I1，2，f）設(shè)中間的某一個排列為a1，a2ar則求出下一個排列的算法為：從后面向前找，直到找到一個順序為止（設(shè)下標(biāo)為j-1，則aj-1<aj從aj-ar中找出一個ak比aj-1大的最小元素將aj-1與 ak交換將aj，aj+1，ar由小到大排序?！境绦蚯鍐巍縫rogram exgp4；const S 7；var n，i，s，k，J，i1，t：Integer;a： array1r of Integer；procedure printl；var ik： integer；beginfor ik：=1 to r do write（aik：8）； writeln；end;beginfor i：= 1 to r do_ ；printl；s：1；for i：=2 to r do s：=