寧波市歷屆中小學(xué)生計(jì)算機(jī)程序設(shè)計(jì)競(jìng)賽(2005-2014).

1、寧波市歷屆中小學(xué)生計(jì)算機(jī)程序設(shè)計(jì)競(jìng)賽初賽試題寧波市第20屆小學(xué)生計(jì)算機(jī)程序設(shè)計(jì)初賽試題（說(shuō)明：考試時(shí)間90分鐘，滿分120分）一、選擇題(每小題2分，共40分)下列各題A、B、C、D四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)寫(xiě)在答題卷相應(yīng)位置上，答在試卷上不得分。1、一個(gè)完整的計(jì)算機(jī)系統(tǒng)應(yīng)包括_。A 主機(jī)，鍵盤(pán)和顯示器 B 計(jì)算機(jī)及其外部設(shè)備C 系統(tǒng)硬件和系統(tǒng)軟件 D 硬件系統(tǒng)和軟件系統(tǒng) 2、十進(jìn)制數(shù)2005轉(zhuǎn)換為二進(jìn)制，結(jié)果是（ ）。A、11111010101 B、11000101101 C、11111001011 D、101110101013、下列電子郵件地址，正確的是( )。 A j

2、ohn B .jpC 2 D 4、彩色顯示器所顯示的五彩斑斕的色彩，是由紅色，藍(lán)色和（ ）色混合而成的A、紫色 B、白色 C、黑色 D、綠色 E、橙色5、目前世界上計(jì)算機(jī)的工作原理是_，它來(lái)源于_提出的_原理。 A、 存儲(chǔ)程序和程序控制、馮。諾依曼、程序設(shè)計(jì)B、 存儲(chǔ)程序控制、馮。諾依曼、存儲(chǔ)程序和程序控制C、 存儲(chǔ)程序、Taring、程序控制D、 存儲(chǔ)程序控制、Turing、程序設(shè)計(jì)6、關(guān)于計(jì)算機(jī)病毒，下列說(shuō)法正確的是（）A、病毒是由軟盤(pán)表面粘有灰塵造成的B、病毒常隱藏在數(shù)據(jù)文件或系統(tǒng)中，具有隱蔽性和潛伏性C、大部分病毒不具有

3、傳染性和破壞性D、病毒會(huì)對(duì)計(jì)算機(jī)造成輕或重的損害，但制造病毒的人并不構(gòu)成犯罪7、計(jì)算機(jī)網(wǎng)絡(luò)的目標(biāo)是實(shí)現(xiàn)（ ）。A、數(shù)據(jù)處理 B、文獻(xiàn)檢索C、資源共享和信息傳輸 D、信息傳輸8、目前比較流行的網(wǎng)絡(luò)編程語(yǔ)言是 ( )A、 Java B、FoxPrl C、Pascal D、C9、根據(jù)域名代碼規(guī)定，域名為表示的網(wǎng)站類別應(yīng)是（ ）。A、教育機(jī)構(gòu) B、軍事部門(mén) C、商業(yè)組織 D、非營(yíng)利組織10、計(jì)算機(jī)的硬件系統(tǒng)包括（ ）。A、運(yùn)算器、控制器、存儲(chǔ)器、輸入設(shè)備、輸出設(shè)備B、控制器、運(yùn)算器、輸入和輸出設(shè)備C、中央處理器、輸入和輸出設(shè)備D、主機(jī)和鍵盤(pán)、顯示器11、算法是指（ ）A、為解決問(wèn)題而編制的計(jì)算機(jī)程序B

4、、為解決問(wèn)題而采取的方法與步驟C、為解決問(wèn)題需要而采用的計(jì)算機(jī)編程語(yǔ)言D、為解決問(wèn)題而采用的計(jì)算方法12、Internet上訪問(wèn)Web信息時(shí)用的工具是瀏覽器。目前常用的Web瀏覽器之一是（ ）。A、Internet Explorer B、Outlook ExpressC、Google D、Flash13、小明打算向在遠(yuǎn)北京工作的叔叔發(fā)送電子郵件，下面的說(shuō)法中，正確的是（）A、小明叔叔的電腦必須開(kāi)機(jī)，否則接收不到小明的電子郵件B、小明可以將自己最近的一張照片以附件的形式發(fā)送給叔叔C、只有小明的電腦與互聯(lián)網(wǎng)保持連接狀態(tài)，才能書(shū)寫(xiě)郵件內(nèi)容D、小明不能把祝福的郵件同時(shí)發(fā)送給他遠(yuǎn)在天津讀書(shū)的小阿姨14、

5、某種計(jì)算機(jī)的內(nèi)存容量是640K，這里的640K容量是指（）個(gè)字節(jié)A、640 B、640*1000 C、640*1024 D、 640*1024*102415、以下有關(guān)操作系統(tǒng)的敘述中，哪一個(gè)是錯(cuò)誤的（ ）A、操作系統(tǒng)管理著系統(tǒng)中的各種資源B、操作系統(tǒng)應(yīng)為用戶提供良好的界面C、操作系統(tǒng)是資源的管理者和仲裁者D、操作系統(tǒng)是計(jì)算機(jī)系統(tǒng)中的一個(gè)應(yīng)用軟件16、下列四項(xiàng)中，合法的IP地址是 ( )A、1902205 B、20653378C、2065331278 D、123，43，82，22017、目前世界上最大的計(jì)算機(jī)互聯(lián)網(wǎng)絡(luò)是（ ）A、ARPA網(wǎng) B、IBM網(wǎng) C、INTERNET D、 INK.ET1

6、8、下列計(jì)算機(jī)語(yǔ)言中，CPU能直接識(shí)別的是（ ）。A、自然語(yǔ)言 B、高級(jí)語(yǔ)言 C、匯編語(yǔ)言 D、機(jī)器語(yǔ)言19、設(shè)A1=ture,A2=False,A3=True表達(dá)式A1 OR A2 ANDA3的值為_(kāi)。 A、FALSE B、TRUE C、0 D、1 20、有下列程序： for i=7 to 90 begin i:=i+5; write(i); end;共執(zhí)行循環(huán)次數(shù)是（ ）。A、14 B、15 C、16 D、17二、讀程序 (每空6 分，共30分)請(qǐng)閱讀下列各題程序，并將程序的正確運(yùn)行結(jié)果寫(xiě)在答題卷相應(yīng)位置上，答在試卷上不得分。 1、var a,b,c,d,e:integer; begin

7、a:=79 ; b:=34; c:=57;d:=0 ; e:=-1; if (ac) then d:=d+e else if (d+10e) then d:=e+10 else d:=e-a; writeln(d); end. 程序運(yùn)行結(jié)果： 2、 var i,j:integer; str1,str2:string;begin str1:=pig-is-stupid; str2:=clever; str11:=d; str12:=o; i:=8; for j:=1 to 6 do begin str1i:=str2j;inc(i); end; writeln(str1);end. 程序運(yùn)行結(jié)果

8、： 3、 var m,n:integer;begin m:=18; n:81; while mn do begin while mn do m:=mn; while nm do n:=nm; end;writeln(m);end程序運(yùn)行結(jié)果： 三、程序填空(每空5分，共30分)請(qǐng)閱讀下列各題的題意及程序，并將程序的空缺部分填空完善，填空的內(nèi)容寫(xiě)在答題卷相應(yīng)位置上，答在試卷上不得分。1 下列程序用來(lái)求sum=1+1/1*2+1/2*3+.+1/a(n+1),直到累加到第30項(xiàng)為止,試選擇正確一項(xiàng)填入空格處_。program sum(output);var s,a:real;n:integer;b

9、egin s:=1.0;n:=0 repeat ( ); a:=1/( ); s:s+auntil n=29;wrileln(n=,n:2;s=,s:6:3)end.2 函數(shù)FN使用遞歸方法求1+2+3+N。 其返回值為：當(dāng)N1，則返回0； 當(dāng)N=1，則返回1+2+3+。+N的值。 請(qǐng)?zhí)羁胀瓿伤?function fn(n：integer)：integer；beginif n1 then fn：=0 else if n=1 then fn：=_ _ ;else fn：=fn( _ )+n;end；3 孿生素?cái)?shù)是指兩個(gè)相差為2的素?cái)?shù)，例如：3和5，5和7，11和13等。 下面的程序可輸15對(duì)孿生

10、素?cái)?shù)，其中函F判斷整數(shù)A是否為素?cái)?shù)。 program p(output)； var k，n：integer；function f(a：integer)：boolean；var k：integer； flag：boolean；begin flag：=_； k：=2； while(k=a div 2 and_do if a mod k=0 then _ else k：=k+1; f：=flag; end；beginn：=0；k：=2；repeatif f(k)and _ thenbegin n：=n+1；writeln(k，k+2)end；k：=k+1until n=15end.一、選擇題(每小題

11、2 分，共40分) 12345678910111213DAADBBCAAABAB14151617181920CDBCDBD二、閱讀程序，并寫(xiě)出程序的正確運(yùn)行結(jié)果(每空6 分，共30分) 1、程序運(yùn)行結(jié)果： -1 2、程序運(yùn)行結(jié)果： mo 3、程序運(yùn)行結(jié)果： 9 4、程序運(yùn)行結(jié)果： (1) n:=n+1; (2) (n*(n+1)三、程序填空(每空5 分，共30分) 1、 N或1 N-1 TRUE 2、 FLAG或FLAG=TRUE FLAG：=FALSE F(K+2)=TURE或F(K+2) 寧波市第21屆小學(xué)生計(jì)算機(jī)程序設(shè)計(jì)初賽試題一、選擇題(每小題2分，共40分) 下列各題A、B、C、D四

12、個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)寫(xiě)在答題卷相應(yīng)位置上，答在試卷上不得分。1、CPU包括的兩部分是（ ）。 A、輸入、輸出設(shè)備 B、存儲(chǔ)器與運(yùn)算器 C、運(yùn)算器與控制器 D、存儲(chǔ)器與控制器2、與十進(jìn)制數(shù)100等值的二進(jìn)制數(shù)是（ ）。A、00100110 B、1100100 C、11001001 D、110001103、字符“a”的ASCII碼為97，則字符“s”的ASCII碼是（ ）。 A、115 B、98 C、116 D、1144、計(jì)算機(jī)的鼠標(biāo)是（ ）。 A、輸入設(shè)備 B、輸出設(shè)備 C、存儲(chǔ)器 D、運(yùn)算器5、windows平臺(tái)下，下列合法的URL地址是（ ）。A、ftp:/101.2

13、0.3 B、http:/C、 D、aa.asp6、一臺(tái)計(jì)算機(jī)的存儲(chǔ)容量是256MB，它相當(dāng)于（ ）字節(jié)。 A、256*1000*1000 B、128*1024 C、256*1024*1024 D、256*1024*10007、計(jì)算機(jī)網(wǎng)絡(luò)的目標(biāo)是實(shí)現(xiàn)（ ）。A、數(shù)據(jù)處理 B、文獻(xiàn)檢索C、資源共享和信息傳輸 D、信息傳輸8、通過(guò)Internet發(fā)送或接收電子郵件(E-mail)的首要條件是應(yīng)該有一個(gè)電子郵件地址，它的正確形式是（ ）。 A、用戶名域名 B、用戶名# 域名 C、用戶名/ 域名 D、用戶名.域名9、網(wǎng)址中的“cn”代表的是（ ）。 A、域名 B、服務(wù)器名 C、IP地址 D、國(guó)家10、計(jì)

14、算機(jī)的硬件系統(tǒng)包括（ ）。 A、運(yùn)算器、控制器、存儲(chǔ)器、輸入設(shè)備、輸出設(shè)備 B、控制器、運(yùn)算器、輸入和輸出設(shè)備 C、中央處理器、輸入和輸出設(shè)備 D、主機(jī)和鍵盤(pán)、顯示器11、下列屬于應(yīng)用軟件的是（ ）。 A、JAVA語(yǔ)言 B、linux C、pascal D、photoshop 12、下列對(duì)Web瀏覽器Internet Explorer的說(shuō)法中，正確的是（ ）。 A、Internet Explorer 是一個(gè)文件 B、Internet Explorer是一個(gè)命令 C、Internet Explorer是一個(gè)系統(tǒng)軟件 D、Internet Explorer是一個(gè)應(yīng)用軟件 13、下列關(guān)于計(jì)算機(jī) 病毒

15、的敘述中，正確的選項(xiàng)是（ ）？A、計(jì)算機(jī)病毒不具有潛伏性B、一旦計(jì)算機(jī)關(guān)閉，計(jì)算機(jī)病毒便可消失C、只要不上不明網(wǎng)站，計(jì)算機(jī)就不會(huì)感染計(jì)算機(jī)病毒D、定時(shí)查殺病毒是保護(hù)計(jì)算機(jī)的有效手段之一 14、小明正在用word給奶奶寫(xiě)電子郵件，此時(shí)的郵件內(nèi)容保存在（ ）。A、硬盤(pán)上 B、計(jì)算機(jī)屏幕 C、內(nèi)存 D、鍵盤(pán) 15、在計(jì)算機(jī)內(nèi)部，信息交換的形式是（ ）？A、ASCII碼 B、十六進(jìn)制 C、十進(jìn)制 D、二進(jìn)制 16、TCP/IP指的是（ ）。A、網(wǎng)卡 B、網(wǎng)絡(luò)操作系統(tǒng) C、連網(wǎng)專用設(shè)備 D、一種網(wǎng)絡(luò)通信協(xié)議 17、下面有關(guān)計(jì)算機(jī)的特點(diǎn)敘述，不正確的是（ ）？A、運(yùn)算速度快 B、有記憶和邏輯判斷能力 C、

16、具有自動(dòng)執(zhí)行程序的能力 D、至今沒(méi)有任何人能給出如何求解方法的難題，計(jì)算機(jī)也都能求出解來(lái) 18、下列對(duì)因特網(wǎng)的功能的說(shuō)法中，最貼切的是（ ）。A、將計(jì)算機(jī)連接起來(lái) B、發(fā)送電子郵件 C、在線交流 D、資源共享 19、為了讓計(jì)算機(jī)完成一個(gè)完整的任務(wù)，而編制的一串指令序列稱為（ ）。 A、密碼 B、口令 C、軟件 D、程序 20、要將X、Y兩個(gè)變量的值互換，正確的寫(xiě)法是（ ）。 A、X=Y:Y=X B、Y=X:X=Y C、X=X+Y:X=X-Y:Y=X-Y D、X=X+Y:Y=X-Y:X=X-Y 二、讀程序 (每小題7.5分，共30分)請(qǐng)閱讀下列各題程序，并將程序的正確運(yùn)行結(jié)果寫(xiě)在答題卷相應(yīng)位置上

17、，答在試卷上不得分。1、X1：=3； X2：=8； FOR I：=1 TO 5 DO BEGIN X：=(X1+X2)*2； X1：=X2； X2：=X； END； WRITE（X=，X）； 程序運(yùn)行結(jié)束，變量X的值為： 2、CONST N=23VARI，J，TEMP，V：INTEGER；A：ARRAY1.N OF CHAR；B：ARRAY0.9OF INTEGER；BEGIN FOR I：=1 TO N DO READ （AI）； FOR I：=0 TO 9 DO BI：=0； FOR I：=1 TO N DO BEGIN VAL（AI，V，J）； BV：=BV+1； END；FOR I：=

18、1 TO 9 DOFOR J：=0 TO 9-I DO IF BJBJ+1 THEN BEGIN TEMP：=BJ； BJ：=BJ+1； BJ+1：=TEMP； END； J：=0； WHILE BJ=0 DO J：=J+1； FOR I：=J TO 9 TO WRITE（BI：3）； END. 程序輸入：22334455664567655555445 程序運(yùn)行結(jié)果： 3、 VAR A:ARRAY1.20 OF INTEGER; I,J:integer; BEGIN FOR I:=1 TO 20 DO BEGIN AI:=0; FOR J:=1 TO 1 DO AI:=AI+2*J-1; EN

19、D; FOR I:=1 TO 20 DO Begin WRITE(Ai:5); IF I mod=5=0 THEN writeln; END; END.程序運(yùn)行結(jié)果： 4、 PROGRAM NOI_004; VAR I, J, J1, J2, P, Q :INTEGER; P1 :BOOLEAN; B,C :ARRAY1.100 OF INTEGER;BEGIN READLN(Q,P); J:=1; P1:=TRUE; BJ:=Q; J1:=0; WHILE (Q0) AND P1 DO BEGIN J1:=J1+1; CJ1:=Q*10 DIV P; Q:=Q*10-CJ1*P; IF Q0

20、 THEN BEGIN J2:=1; WHILE (BJ2Q) AND (J2=J) DO J2:=J2+1; IF BJ2=Q THEN BEGIN P1:=FALSE; WRITE(0.); FOR I:=1 TO J2-1 DO WRITE(CI:1); WRITE(); FOR I:=J2 TO J1 DO WRITE(CI:1); WRITELN() END ELSE BEGIN J:=J+1;BJ:=Q END END END; IF Q=0 THEN BEGIN WRITE(0.); FOR I:=1 TO J1 DO WRITE(CI:1); WRITELN END;READL

21、NEND.程序運(yùn)行結(jié)果：輸入 (1) 18 輸出： (2) 27 輸出： 三、程序填空(每空1.5分，共30分)請(qǐng)閱讀下列各題的題意及程序，并將程序的空缺部分填空完善，填空的內(nèi)容寫(xiě)在答題卷相應(yīng)位置上，答在試卷上不得分。1、求出1至N（10N0），今將K個(gè)小球裝入到盒子中去，裝入規(guī)則如下： （1） 第一個(gè)盒子不能為空。 （2） 裝入必須嚴(yán)格按遞增的順序進(jìn)行。 例如，當(dāng)K=8，N=6裝入方法有：1，2，5 或1，3，4 （3）在滿足上面的兩個(gè)條件下，要求有球的盒子盡可能多。 （4）裝完之后，相鄰盒子中球個(gè)數(shù)差的絕對(duì)值之和為最?。ㄎ囱b的盒子不計(jì)）。 如上例中： 裝入法1，2，5 則差的絕對(duì)值之和為：

22、2-1+5-2=4 裝入法1，3，4 則差的絕對(duì)值之和為：3-1+4-3=3程序要求：給出K（K表示小球個(gè)數(shù)）之后，求出滿足上述四個(gè)條件的裝入方法。算法描述：設(shè)計(jì)一個(gè)數(shù)組A：ARRAY1.N OF INTEGER，用數(shù)組元素代表盒子然后依次裝入小球。程序：PROGRAM EXP3（INPUT，OUTPUT）； CONST N=20； VAR I，J，K，L：INTEGER； A ：ARRAY1.N OF INTEGER； BEGIN READLN（k）； J：=1； WHILE DO BEGIN A（J）：=J； ：J：=J+1 END； L：=j-1; WHILE k0 DO BEGIN ：

23、K：=K-1：L：=L-1 END； FOR I：=1 TO DO WRITE（AI：4） END.寧波21屆中小學(xué)生計(jì)算機(jī)程序設(shè)計(jì)競(jìng)賽-小學(xué)組初賽試題答案一、 選擇題CBAACCCADADDDCDDDDDD二、 閱讀程序1122421224593 1 4 9 16 25 36 49 64 81 10040125 0285714三、程序填空1Ai:=i2. Ai mod 2=03. Ai mod 5=04.s:=05.ai06.fillchar(a,sizeof(a),0)7. j=k8. k:=k-j9. al:=al+110. j-1寧波市第22屆中小學(xué)生計(jì)算機(jī)程序設(shè)計(jì)競(jìng)賽預(yù)賽試題（小學(xué)組

24、）（考試時(shí)間120分鐘，滿分100分）所有提交的答案都以寫(xiě)在答卷紙上的為準(zhǔn)，寫(xiě)在試卷上的一律無(wú)效學(xué)校姓名一、選擇題：請(qǐng)選出各題正確答案的代碼（A/B/C/D）（每題2分，共40分）1、在微型計(jì)算機(jī)的漢字系統(tǒng)中，一個(gè)漢字內(nèi)碼所占的字節(jié)數(shù)是（ ）。（A）1 （B）2 （C）3 （D）42、軟盤(pán)加上寫(xiě)保護(hù)后，這時(shí)對(duì)它可進(jìn)行的操作是（ ）。（A）只能讀盤(pán)，不能寫(xiě)盤(pán) （B）既可讀盤(pán)，又可寫(xiě)盤(pán)（C）只能寫(xiě)盤(pán)，不能讀盤(pán) （D）不能讀盤(pán)，也不能寫(xiě)盤(pán)3、下列存儲(chǔ)設(shè)備中，斷電后其中的信息會(huì)消失的是（ ）。（A）硬盤(pán) （B）ROM （C）RAM （D）U盤(pán) 4、pascal語(yǔ)言中運(yùn)算（-13） MOD （-2）的結(jié)

25、果是（ ）。 （A）1 （B）-1 （C）0 （D）-2 5、數(shù)組A有10個(gè)下標(biāo)變量，各個(gè)下標(biāo)變量的賦值情形如下所示，則表達(dá)式AAA5的值是（ ）。 A1A2A3A4A5A6A7A8A9A1045171029836（A）10 （B）5 （C）6 （D）2 6、1GB= （ ）KB 。（A） 1000 （B） 1024 （C）10241024 （D）100010007、下面有關(guān)計(jì)算機(jī)病毒的說(shuō)法，錯(cuò)誤的是（ ）。（A）為防止病毒感染計(jì)算機(jī)，使用軟盤(pán)時(shí)，將軟盤(pán)寫(xiě)保護(hù)（B）計(jì)算機(jī)的病毒不僅能損壞文件，還可能造成電腦主板等硬件的損壞（C）上網(wǎng)的電腦有可能會(huì)感染病毒 （D）計(jì)算機(jī)病毒也是程序8、下列存儲(chǔ)器

26、中，存取速度最快的是（ ）。 （A）軟盤(pán) （B）內(nèi)存 （C）光盤(pán) （D）硬盤(pán)9、在Windows 中，能通過(guò)輸入“?a*.?”命令查找到的文件是（ ）。（A）pascal.c （B）ppa.1 （C）pa1wer.cc （D）dhdtfgpa1.cc 10、下列各種說(shuō)法中，正確的是（ ）。（A）所有的十進(jìn)制小數(shù)都能準(zhǔn)確地轉(zhuǎn)換為有限位二進(jìn)制小數(shù)（B）漢字的計(jì)算機(jī)機(jī)內(nèi)碼就是區(qū)位碼（C）存儲(chǔ)器具有記憶能力，其中的信息任何時(shí)候都不會(huì)丟失（D）計(jì)算機(jī)中所有信息都采用二進(jìn)制編碼 11、算式（4095）10-（7FF）16+（3000）8的結(jié)果不正確的是（ ）。 （A）（3584）10 （B）（111000

27、000000）2 （C）（17000）8 （D）（E00）1612、下列函數(shù)值是整型的是（ ）。（A）chr（23） （B）ord（false） （C）succ（false） （D）odd（98）13、把整數(shù)5轉(zhuǎn)換為字符5的表達(dá)式是（ ）。（A） Ord（5+chr（0） （B）ord（5+chr（0）（C） chr（5+ord（0） （D）chr（5+ord（0）14、以下標(biāo)準(zhǔn)數(shù)據(jù)類型中，不能作為for循環(huán)控制變量的是（ ）。（A）integer型；（B）real型；（C）boolean型；（D）char型15、在E-MAIL系統(tǒng)中，用于接收郵件的服務(wù)器稱為（ ）服務(wù)器。 （A）POP3 （

28、B）SMTP （C）DNS （D）FTP 16、衡量網(wǎng)絡(luò)上數(shù)據(jù)傳輸速率的單位是bps，其含義是（ ）。（A）數(shù)據(jù)每秒傳送多少二進(jìn)制位；（B）數(shù)據(jù)每秒傳送多少字節(jié)；（C）數(shù)據(jù)每秒傳送多少公里；（D）數(shù)據(jù)每秒傳送多少千公里。17、下列各項(xiàng)中不屬于系統(tǒng)軟件的是（ ）。（A）Windows （B）Word （C）Free Pascal （D）DOS18、下列計(jì)算機(jī)設(shè)備中，不是輸出設(shè)備的是（ ）。 （A）顯示器 （B）音箱 （C）打印機(jī) （D）掃描儀19、有一個(gè)容量大小為4的棧，元素A、B、C、D按照A、B、C、D的次序依次入棧，且每個(gè)元素在出棧后不得再重新入棧，如果入棧和出棧的操作序列為：入棧-入棧-

29、出棧-入棧-出棧-出棧-入棧-出棧，問(wèn)元素A將是第幾個(gè)出棧的？（ ）（A）1 （B）2 （C）3 （D）4 20、在線性表的兩種存儲(chǔ)表示中，下列描述正確的是（ ）。 （A）數(shù)組利于插入，不利于查找 （B）鏈表利于查找，不利于插入（C）數(shù)組利于查找，不利于插入 （D）數(shù)組與鏈表中的插入與查找效率差不多二、閱讀pascal程序并寫(xiě)出運(yùn)行結(jié)果（每題6分，共18分）第1題：請(qǐng)寫(xiě)出程序運(yùn)行后變量sum的值（6分）program xx07_1;const maxn=1000000;var n,k,sum:longint; f:array1.maxn of 0.1;begin readln(n); for

30、k:=1 to n do fk:=1; for k:=1 to n div 2 do fk*2:=0; for k:=1 to n div 3 do fk*3:=0; sum:=0; for k:=1 to n do sum:=sum+fk; writeln(sum=,sum);end.輸入：1000輸出：sum=_第2題：請(qǐng)寫(xiě)出程序運(yùn)行后變量ok的值（每空3分）program xx07_2;var s:string; k,n:integer;ok:boolean;begin readln(s);n:=length(s); k:=1;ok:=true; while ok and (k=n di

31、v 2) do if sksn+1-k then ok:=false else k:=k+1; writeln(ok);end.輸入：123，輸出為：_ 輸入：121，輸出為：_ 第3題：請(qǐng)寫(xiě)出程序運(yùn)行后變量sum的值（6分）program xx07_3;const maxn=1000;var pos,value:array1.maxnof longint; n,i,j,x,sum:longint; change:boolean;begin read(n); for i:=1 to n do read(posi,valuei); change:=true;i:=1; while change

32、and (ivaluej+1 then begin change:=true; x:=valuej;valuej:=valuej+1;valuej+1:=x; end; i:=i+1; end; sum:=0; for i:=1 to n do sum:=sum+posi*valuei; writeln(sum=,sum);end.輸入：101 102 13 24 95 36 47 88 59 610 7 輸出為：sum=_三、簡(jiǎn)答題（第1題6分，第2題8分，共14分）第1題：河的二岸（A岸、B岸）各有15個(gè)碼頭，它們距上游某城市的距離如下表所示，且A岸的一個(gè)碼頭只與B岸的一個(gè)碼頭（即表中上下

33、對(duì)應(yīng)的二個(gè)）有航線，在保證不出現(xiàn)航線交叉的情況下，問(wèn)：（1） 最多能同時(shí)開(kāi)通幾條航線？（3分）（2） 能達(dá)到（1）中最多航線條數(shù)的不同通航方案共有幾種？（3分）A岸210159134171136581214B岸461391110314712581512第2題：有一堆火柴共若干根，現(xiàn)由甲乙兩人輪流從中拿取。規(guī)定：除最先輪到取火柴者，其第一次可以拿走任意數(shù)目的火柴（但不能拿完，也不能不拿）外，接下來(lái)輪到者，每次至少要拿走一根，但至多只可拿走上次對(duì)方所取火柴數(shù)目的兩倍，并約定：最先將火柴取光者為勝者。問(wèn)：（1） 若原先這堆火柴的根數(shù)不少于2根，但最多不多于9根，問(wèn)：共有哪些情況能確保最先輪到取火柴者

34、必勝？（寫(xiě)出相應(yīng)的原先這堆火柴的根數(shù)）（4分）（2） 若原先這堆火柴的根數(shù)不少于10根，但最多不多于23根，問(wèn)：有哪些情況使最先輪到取火柴者必?cái)?？（?xiě)出相應(yīng)的原先這堆火柴的根數(shù)）（4分）四、完善程序（第一大題12分，第二大題16分，共28分）第1題：完全數(shù)（每空3分，共12分）如果一個(gè)正整數(shù)的所有小于它本身的因子之和等于該正整數(shù)，則該正整數(shù)稱為完全數(shù)。比如6=1+2+3，于是6稱為完全數(shù)；28=1+2+4+7+14，28也是完全數(shù)。以下程序輸入一個(gè)數(shù)n，輸出1至n中的完全數(shù)的個(gè)數(shù)。請(qǐng)完善該程序。program xx07_5;var n,i,count:longint;function WanQ

35、uanShu(k:longint):longint;var i,sum:longint;begin _; for i:=1 to k div 2 doif _ then sum:=sum+i; if sum=k then WanQuanShu:=_ else WanQuanShu:=_;end;begin readln(n); count:=0; for i:=1 to n do count:=count+wanquanshu(i); writeln(count);end.第2題：石子劃分（每空4分，共16分）給出n堆石子，以及每堆石子數(shù)。請(qǐng)將它們分為兩堆，使得這兩堆的總石子數(shù)差最小。輸入n，

36、以及每堆石子數(shù)，輸出分為兩堆后的最小差值。比如，n=4，四堆石子分別有13，6，8，14顆，則可以分為13+8和14+6的兩堆，它們的最小差為1。以下程序：（1）求得所有石子數(shù)total，以及它的一半half；（2）在所有石子堆中作適當(dāng)選擇，對(duì)每種選擇方案，求不超過(guò)half的已選中堆中的石子總數(shù)的最大值max。所求即為(total-max)-max。（3）以aj表示第j堆石子數(shù)；以bj表示第j堆石子是否被選中，如果bj=1，表示第j堆被選中，如果bj=0表示第j堆沒(méi)有被選中。（4）各種方案的表達(dá)及次序如下：以0000（均不選中），00.01（只選中第n堆石子），00.10（只選中第n-1堆石子

37、），0011（選中第n-1堆和第n堆石子），00100（選中第n-2堆石子），00101（選中第n-2堆和第n堆石子），1111（選中所有n堆石子）。請(qǐng)完善該程序。program xx07_6;const maxn=20;var n,i,j:longint; total,half,sum,max:longint; a:array1.maxn of longint; b:array0.maxnof 0.1;begin readln(n); total:=0; for i:=1 to n do begin read(ai); total:=total+ai; end; half:=total div 2; max:=0; for i:=1 to n do bi:=0; i:=n; while i0 do begin sum:=0; for j:=1 to n do sum:=_; if_ then max:=sum; i:=n; while (i0) and (bi=1) do i:=_; if i0 then begin bi:=_; for j:=i+1 to n do