寧波市歷屆中小學(xué)生計算機程序設(shè)計競賽初賽試題寧波市第20屆小學(xué)生計算機程序設(shè)計初賽試題（說明：考試時間90分鐘，滿分120分）一、選擇題(每小題2分，共40分)下列各題A、B、C、D四個選項中，只有一個選項是正確的，請將正確選項寫在答題卷相應(yīng)位置上，答在試卷上不得分。1、一個完整的計算機系統(tǒng)應(yīng)包括____。A主機，鍵盤和顯示器B計算機及其外部設(shè)備C系統(tǒng)硬件和系統(tǒng)軟件D硬件系統(tǒng)和軟件系統(tǒng)2、十進制數(shù)2005轉(zhuǎn)換為二進制，結(jié)果是（）。A、11111010101B、11000101101C、11111001011D、101110101013、下列電子郵件地址，正確的是()。Ajohn@Bcai@jcc.pc.tool@.jpC2D4、彩色顯示器所顯示的五彩斑斕的色彩，是由紅色，藍色和（）色混合而成的A、紫色B、白色C、黑色D、綠色E、橙色5、目前世界上計算機的工作原理是________，它來源于________提出的________原理。A、存儲程序和程序控制、馮。諾依曼、程序設(shè)計B、存儲程序控制、馮。諾依曼、存儲程序和程序控制C、存儲程序、Taring、程序控制D、存儲程序控制、Turing、程序設(shè)計6、關(guān)于計算機病毒，下列說法正確的是（）A、病毒是由軟盤表面粘有灰塵造成的B、病毒常隱藏在數(shù)據(jù)文件或系統(tǒng)中，具有隱蔽性和潛伏性C、大部分病毒不具有傳染性和破壞性D、病毒會對計算機造成輕或重的損害，但制造病毒的人并不構(gòu)成犯罪7、計算機網(wǎng)絡(luò)的目標是實現(xiàn)（）。A、數(shù)據(jù)處理B、文獻檢索C、資源共享和信息傳輸D、信息傳輸8、目前比較流行的網(wǎng)絡(luò)編程語言是()A、JavaB、FoxPrlC、PascalD、C9、根據(jù)域名代碼規(guī)定，域名為表示的網(wǎng)站類別應(yīng)是（）。A、教育機構(gòu)B、軍事部門C、商業(yè)組織D、非營利組織10、計算機的硬件系統(tǒng)包括（）。A、運算器、控制器、存儲器、輸入設(shè)備、輸出設(shè)備B、控制器、運算器、輸入和輸出設(shè)備C、中央處理器、輸入和輸出設(shè)備D、主機和鍵盤、顯示器11、算法是指（）A、為解決問題而編制的計算機程序B、為解決問題而采取的方法與步驟C、為解決問題需要而采用的計算機編程語言D、為解決問題而采用的計算方法12、Internet上訪問Web信息時用的工具是瀏覽器。目前常用的Web瀏覽器之一是（）。A、InternetExplorerB、OutlookExpressC、GoogleD、Flash13、小明打算向在遠北京工作的叔叔發(fā)送電子郵件，下面的說法中，正確的是（）A、小明叔叔的電腦必須開機，否則接收不到小明的電子郵件B、小明可以將自己最近的一張照片以附件的形式發(fā)送給叔叔C、只有小明的電腦與互聯(lián)網(wǎng)保持連接狀態(tài)，才能書寫郵件內(nèi)容D、小明不能把祝福的郵件同時發(fā)送給他遠在天津讀書的小阿姨14、某種計算機的內(nèi)存容量是640K，這里的640K容量是指（）個字節(jié)A、640B、640*1000C、640*1024D、640*1024*102415、以下有關(guān)操作系統(tǒng)的敘述中，哪一個是錯誤的（）A、操作系統(tǒng)管理著系統(tǒng)中的各種資源B、操作系統(tǒng)應(yīng)為用戶提供良好的界面C、操作系統(tǒng)是資源的管理者和仲裁者D、操作系統(tǒng)是計算機系統(tǒng)中的一個應(yīng)用軟件16、下列四項中，合法的IP地址是()A、190．220．5B、206．53．3．78C、206．53．312．78D、123，43，82，22017、目前世界上最大的計算機互聯(lián)網(wǎng)絡(luò)是（）A、ARPA網(wǎng)B、IBM網(wǎng)C、INTERNETD、INK.ET18、下列計算機語言中，CPU能直接識別的是（）。A、自然語言B、高級語言C、匯編語言D、機器語言19、設(shè)A1=ture,A2=False,A3=True表達式A1ORA2ANDA3的值為______。A、FALSEB、TRUEC、0D、120、有下列程序：fori=7to90begini:=i+5; write(i);end;共執(zhí)行循環(huán)次數(shù)是（）。A、14B、15C、16D、17二、讀程序(每空6分，共30分)請閱讀下列各題程序，并將程序的正確運行結(jié)果寫在答題卷相應(yīng)位置上，答在試卷上不得分。1、vara,b,c,d,e:integer;begina:=79;b:=34;c:=57;d:=0;e:=-1;if(a<c)or(b>c)thend:=d+eelseif(d+10<e)thend:=e+10elsed:=e-a;writeln(d);end.程序運行結(jié)果：2、vari,j:integer;str1,str2:string;beginstr1:='pig-is-stupid';str2:='clever';str1[1]:='d';str1[2]:='o';i:=8;forj:=1to6dobeginstr1[i]:=str2[j];inc(i);end;writeln(str1);end.程序運行結(jié)果：3、varm,n:integer;

begin

m:=18;

n:81;

whilem<>ndo

begin

whilem>ndo

m:=m–n;

whilen>mdo

n:=n–m;

end;

writeln(m);

end程序運行結(jié)果：三、程序填空(每空5分，共30分)請閱讀下列各題的題意及程序，并將程序的空缺部分填空完善，填空的內(nèi)容寫在答題卷相應(yīng)位置上，答在試卷上不得分。1下列程序用來求sum=1+1/1*2+1/2*3+...+1/a(n+1),

直到累加到第30項為止,

試選擇正確一項填入空格處______。

programsum(output);

vars,a:real;

n:integer;

begin

s:=1.0;n:=0

repeat

();

a:=1/();

s:s+a

untiln=29;

wrileln('n=',n:2;s=',s:6:3)

end.2函數(shù)FN使用遞歸方法求1+2+3+……+N。其返回值為：當N〈1，則返回0；當N〉=1，則返回1+2+3+。。。+N的值。請?zhí)羁胀瓿伤黤unctionfn(n：integer)：integer；beginifn〈1thenfn：=0elseifn=1thenfn：=______;elsefn：=fn(______)+n;end；3孿生素數(shù)是指兩個相差為2的素數(shù)，例如：3和5，5和7，11和13等。下面的程序可輸15對孿生素數(shù)，其中函F判斷整數(shù)A是否為素數(shù)。programp(output)；vark，n：integer；functionf(a：integer)：boolean；vark：integer；flag：boolean；beginflag：=__________；k：=2；while(k〈=adiv2〉and________doifamodk=0then____________elsek：=k+1;f：=flag;end；beginn：=0；k：=2；repeatiff(k)and_________thenbeginn：=n+1；writeln(k，k+2)end；k：=k+1untiln=15end.一、選擇題(每小題2分，共40分)12345678910111213DAADBBCAAABAB14151617181920

CDBCDBD二、閱讀程序，并寫出程序的正確運行結(jié)果(每空6分，共30分)1、程序運行結(jié)果：-12、程序運行結(jié)果：mo

3、程序運行結(jié)果：94、程序運行結(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é)生計算機程序設(shè)計初賽試題一、選擇題(每小題2分，共40分)

下列各題A、B、C、D四個選項中，只有一個選項是正確的，請將正確選項寫在答題卷相應(yīng)位置上，答在試卷上不得分。

1、CPU包括的兩部分是（

）。

A、輸入、輸出設(shè)備

B、存儲器與運算器

C、運算器與控制器

D、存儲器與控制器

2、與十進制數(shù)100等值的二進制數(shù)是（

）。

A、00100110

B、1100100

C、11001001

D、11000110

3、字符“a”的ASCII碼為97，則字符“s”的ASCII碼是（

）。

A、115

B、98

C、116

D、114

4、計算機的鼠標是（

）。

A、輸入設(shè)備

B、輸出設(shè)備

C、存儲器

D、運算器

5、windows平臺下，下列合法的URL地址是（

）。

A、ftp://101.20.3

B、http:/

C、

D、\aa.asp

6、一臺計算機的存儲容量是256MB，它相當于（

）字節(jié)。

A、256*1000*1000

B、128*1024

C、256*1024*1024

D、256*1024*1000

7、計算機網(wǎng)絡(luò)的目標是實現(xiàn)（

）。

A、數(shù)據(jù)處理

B、文獻檢索

C、資源共享和信息傳輸

D、信息傳輸

8、通過Internet發(fā)送或接收電子郵件(E-mail)的首要條件是應(yīng)該有一個電子郵件地址，它的正確形式是（

）。

A、用戶名@域名

B、用戶名#域名

C、用戶名/域名

D、用戶名.域名

9、網(wǎng)址中的“cn”代表的是（

）。

A、域名

B、服務(wù)器名

C、IP地址

D、國家

10、計算機的硬件系統(tǒng)包括（

）。

A、運算器、控制器、存儲器、輸入設(shè)備、輸出設(shè)備

B、控制器、運算器、輸入和輸出設(shè)備

C、中央處理器、輸入和輸出設(shè)備

D、主機和鍵盤、顯示器

11、下列屬于應(yīng)用軟件的是（

）。

A、JAVA語言

B、linux

C、pascal

D、photoshop

12、下列對Web瀏覽器InternetExplorer的說法中，正確的是（

）。

A、InternetExplorer是一個文件

B、InternetExplorer是一個命令

C、InternetExplorer是一個系統(tǒng)軟件

D、InternetExplorer是一個應(yīng)用軟件

13、下列關(guān)于計算機病毒的敘述中，正確的選項是（

）？

A、計算機病毒不具有潛伏性

B、一旦計算機關(guān)閉，計算機病毒便可消失

C、只要不上不明網(wǎng)站，計算機就不會感染計算機病毒

D、定時查殺病毒是保護計算機的有效手段之一

14、小明正在用word給奶奶寫電子郵件，此時的郵件內(nèi)容保存在（

）。

A、硬盤上

B、計算機屏幕

C、內(nèi)存

D、鍵盤

15、在計算機內(nèi)部，信息交換的形式是（

）？

A、ASCII碼B、十六進制C、十進制D、二進制

16、TCP/IP指的是（

）。

A、網(wǎng)卡

B、網(wǎng)絡(luò)操作系統(tǒng)

C、連網(wǎng)專用設(shè)備

D、一種網(wǎng)絡(luò)通信協(xié)議

17、下面有關(guān)計算機的特點敘述，不正確的是（

）？

A、運算速度快

B、有記憶和邏輯判斷能力

C、具有自動執(zhí)行程序的能力

D、至今沒有任何人能給出如何求解方法的難題，計算機也都能求出解來

18、下列對因特網(wǎng)的功能的說法中，最貼切的是（

）。

A、將計算機連接起來

B、發(fā)送電子郵件

C、在線交流

D、資源共享

19、為了讓計算機完成一個完整的任務(wù)，而編制的一串指令序列稱為（

）。

A、密碼

B、口令

C、軟件

D、程序

20、要將X、Y兩個變量的值互換，正確的寫法是（

）。

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分)

請閱讀下列各題程序，并將程序的正確運行結(jié)果寫在答題卷相應(yīng)位置上，答在試卷上不得分。

1、X1：=3；

X2：=8；

FORI：=1TO5DO

BEGIN

X：=(X1+X2)*2；

X1：=X2；

X2：=X；

END；

WRITE（‘X=’，X）；

程序運行結(jié)束，變量X的值為：

2、CONSTN=23

VAR

I，J，TEMP，V：INTEGER；

A：ARRAY[1..N]OFCHAR；

B：ARRAY[0..9]OFINTEGER；

BEGIN

FORI：=1TONDOREAD（A[I]）；

FORI：=0TO9DOB[I]：=0；

FORI：=1TONDO

BEGIN

VAL（A[I]，V，J）；

B[V]：=B[V]+1；

END；

FORI：=1TO9DO

FORJ：=0TO9-IDO

IFB[J]>B[J+1]THEN

BEGIN

TEMP：=B[J]；

B[J]：=B[J+1]；

B[J+1]：=TEMP；

END；

J：=0；

WHILEB[J]=0DOJ：=J+1；

FORI：=JTO9TOWRITE（B[I]：3）；

END.

程序輸入：22334455664567655555445

程序運行結(jié)果：

3、VAR

A:ARRAY[1..20]OFINTEGER;

I,J:integer;

BEGIN

FORI:=1TO20DO

BEGIN

A[I]:=0;

FORJ:=1TO1DO

A[I]:=A[I]+2*J-1;

END;

FORI:=1TO20DO

Begin

WRITE(A[i]:5);

IFImod=5=0

THENwriteln;

END;

END.

程序運行結(jié)果：

4、PROGRAMNOI_004;

VAR

I,J,J1,J2,P,Q

:INTEGER;

P1

:BOOLEAN;

B,C

:ARRAY[1..100]OFINTEGER;

BEGIN

READLN(Q,P);

J:=1;

P1:=TRUE;

B[J]:=Q;

J1:=0;

WHILE(Q>0)ANDP1DO

BEGIN

J1:=J1+1;C[J1]:=Q*10DIVP;

Q:=Q*10-C[J1]*P;

IFQ>0THENBEGIN

J2:=1;

WHILE(B[J2]<>Q)AND(J2<=J)DOJ2:=J2+1;

IFB[J2]=QTHEN

BEGIN

P1:=FALSE;

WRITE(’0.’);

FORI:=1TOJ2-1DOWRITE(C[I]:1);

WRITE(’{’);

FORI:=J2TOJ1DOWRITE(C[I]:1);

WRITELN(’}’)

END

ELSEBEGINJ:=J+1;B[J]:=Q

END

END

END;

IFQ=0THEN

BEGIN

WRITE(’0.’);

FORI:=1TOJ1DOWRITE(C[I]:1);

WRITELN

END;

READLN

END.

程序運行結(jié)果：

輸入

(1)

18

輸出：

(2)

27

輸出：

三、程序填空(每空1.5分，共30分)

請閱讀下列各題的題意及程序，并將程序的空缺部分填空完善，填空的內(nèi)容寫在答題卷相應(yīng)位置上，答在試卷上不得分。

1、求出1至N（10<N<10000）之間不能被2，3，5，7除盡的整數(shù)個數(shù)。（18分）

[算法描述]

定義一個數(shù)組A[10..10000]OFINTEGER；其中A（I）存放I，然后進行篩選：將凡是能被2，3，5，7除盡的數(shù)，全部變成為0，最后統(tǒng)計出剩下的不為0的數(shù)，即為所求。

[程序]

PROGRAMEX1（INPUT，OUTPUT）；

VARN，I，S：=INTEGER；

A

：ARRAY[10..10000]OFINTEGER;

BEGIN

WRITE(‘INPUTN=’);

READ(N);

FORI:=1TONDO

①

FORI：=1TONDO

IF

②

OR

(A[I]MOD3=0)

OR

③

OR

(A[I]MOD7=0)

THEN

A(I):=0;

④

FORI:=1TONDO

IF

⑤

THENS：=S+1

WRITE（‘S=’，S）

END.

2、裝球：設(shè)有N個盒子（N足夠大，可裝入任何數(shù)量的球），分別編號1，2，…。同時有K個小球（K>0），今將K個小球裝入到盒子中去，裝入規(guī)則如下：

（1）第一個盒子不能為空。

（2）裝入必須嚴格按遞增的順序進行。

例如，當K=8，N=6裝入方法有：1，2，5或1，3，4

（3）在滿足上面的兩個條件下，要求有球的盒子盡可能多。

（4）裝完之后，相鄰盒子中球個數(shù)差的絕對值之和為最?。ㄎ囱b的盒子不計）。

如上例中：

裝入法1，2，5

則差的絕對值之和為：2-1+5-2=4

裝入法1，3，4

則差的絕對值之和為：3-1+4-3=3

[程序要求]：給出K（K表示小球個數(shù)）之后，求出滿足上述四個條件的裝入方法。

[算法描述]：設(shè)計一個數(shù)組A：ARRAY[1..N]OFINTEGER，用數(shù)組元素代表盒子然后依次裝入小球。

[程序]：PROGRAMEXP3（INPUT，OUTPUT）；

CONSTN=20；

VARI，J，K，L：INTEGER；

A

：ARRAY[1..N]OFINTEGER；

BEGIN

READLN（k）；

⑥

J：=1；

WHILE

⑦

DO

BEGIN

A（J）：=J；

⑧

：J：=J+1

END；

L：=j-1;

WHILE

k>0DO

BEGIN

⑨

：K：=K-1：L：=L-1

END；

FORI：=1TO

⑩

DO

WRITE（A[I]：4）

END.

寧波21屆中小學(xué)生計算機程序設(shè)計競賽-小學(xué)組初賽試題答案選擇題CBAACCCADADDDCDDDDDD閱讀程序1．12242．1224593．1491625364964811004．0．1250．{285714}三、程序填空1．A[i]:=i2.A[i]mod2=03.A[i]mod5=04.s:=05.a[i]<>06.fillchar(a,sizeof(a),0)7.j<=k8.k:=k-j9.a[l]:=a[l]+110.j-1寧波市第22屆中小學(xué)生計算機程序設(shè)計競賽預(yù)賽試題（小學(xué)組）（考試時間120分鐘，滿分100分）●●所有提交的答案都以寫在答卷紙上的為準，寫在試卷上的一律無效●●學(xué)校姓名一、選擇題：請選出各題正確答案的代碼（A/B/C/D）（每題2分，共40分）1、在微型計算機的漢字系統(tǒng)中，一個漢字內(nèi)碼所占的字節(jié)數(shù)是（）。（A）1（B）2（C）3（D）42、軟盤加上寫保護后，這時對它可進行的操作是（）。（A）只能讀盤，不能寫盤（B）既可讀盤，又可寫盤（C）只能寫盤，不能讀盤（D）不能讀盤，也不能寫盤3、下列存儲設(shè)備中，斷電后其中的信息會消失的是（）。（A）硬盤（B）ROM（C）RAM（D）U盤4、pascal語言中運算（-13）MOD（-2）的結(jié)果是（）。（A）1（B）-1（C）0（D）-25、數(shù)組A有10個下標變量，各個下標變量的賦值情形如下所示，則表達式A[A[A[5]]]的值是（）。A[1]A[2]A[3]A[4]A[5]A[6]A[7]A[8]A[9]A[10]45171029836（A）10（B）5（C）6（D）26、1GB=（）KB。（A）1000（B）1024（C）1024×1024（D）1000×10007、下面有關(guān)計算機病毒的說法，錯誤的是（）。（A）為防止病毒感染計算機，使用軟盤時，將軟盤寫保護（B）計算機的病毒不僅能損壞文件，還可能造成電腦主板等硬件的損壞（C）上網(wǎng)的電腦有可能會感染病毒（D）計算機病毒也是程序8、下列存儲器中，存取速度最快的是（）。（A）軟盤（B）內(nèi)存（C）光盤（D）硬盤9、在Windows中，能通過輸入“?a*.?”命令查找到的文件是（）。（A）pascal.c（B）ppa.1（C）pa1wer.cc（D）dhdtfgpa1.cc10、下列各種說法中，正確的是（）。（A）所有的十進制小數(shù)都能準確地轉(zhuǎn)換為有限位二進制小數(shù)（B）漢字的計算機機內(nèi)碼就是區(qū)位碼（C）存儲器具有記憶能力，其中的信息任何時候都不會丟失（D）計算機中所有信息都采用二進制編碼11、算式（4095）10-（7FF）16+（3000）8的結(jié)果不正確的是（）。（A）（3584）10（B）（111000000000）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’的表達式是（）。Ord（5+chr（‘0’））（B）ord（5+chr（0））（C）chr（5+ord（‘0’））（D）chr（5+ord（0））14、以下標準數(shù)據(jù)類型中，不能作為for循環(huán)控制變量的是（）。 （A）integer型； （B）real型； （C）boolean型； （D）char型15、在E-MAIL系統(tǒng)中，用于接收郵件的服務(wù)器稱為（）服務(wù)器。（A）POP3（B）SMTP（C）DNS（D）FTP16、衡量網(wǎng)絡(luò)上數(shù)據(jù)傳輸速率的單位是bps，其含義是（）。 （A）數(shù)據(jù)每秒傳送多少二進制位； （B）數(shù)據(jù)每秒傳送多少字節(jié)； （C）數(shù)據(jù)每秒傳送多少公里； （D）數(shù)據(jù)每秒傳送多少千公里。17、下列各項中不屬于系統(tǒng)軟件的是（）。（A）Windows（B）Word（C）FreePascal（D）DOS18、下列計算機設(shè)備中，不是輸出設(shè)備的是（）。（A）顯示器（B）音箱（C）打印機（D）掃描儀19、有一個容量大小為4的棧，元素A、B、C、D按照A、B、C、D的次序依次入棧，且每個元素在出棧后不得再重新入棧，如果入棧和出棧的操作序列為：入棧-入棧-出棧-入棧-出棧-出棧-入棧-出棧，問元素A將是第幾個出棧的？（）（A）1（B）2（C）3（D）420、在線性表的兩種存儲表示中，下列描述正確的是（）。（A）數(shù)組利于插入，不利于查找（B）鏈表利于查找，不利于插入（C）數(shù)組利于查找，不利于插入（D）數(shù)組與鏈表中的插入與查找效率差不多二、閱讀pascal程序并寫出運行結(jié)果（每題6分，共18分）第1題：請寫出程序運行后變量sum的值（6分）programxx07_1;constmaxn=1000000;varn,k,sum:longint;f:array[1..maxn]of0..1;beginreadln(n);fork:=1tondof[k]:=1;fork:=1tondiv2dof[k*2]:=0;fork:=1tondiv3dof[k*3]:=0;sum:=0;fork:=1tondosum:=sum+f[k];writeln('sum=',sum);end.輸入：1000輸出：sum=_______第2題：請寫出程序運行后變量ok的值（每空3分）programxx07_2;vars:string;k,n:integer;ok:boolean;beginreadln(s);n:=length(s);k:=1;ok:=true;whileokand(k<=ndiv2)doifs[k]<>s[n+1-k]thenok:=falseelsek:=k+1;writeln(ok);end.①輸入：123，輸出為：_______②輸入：121，輸出為：_______第3題：請寫出程序運行后變量sum的值（6分）programxx07_3;constmaxn=1000;varpos,value:array[1..maxn]oflongint;n,i,j,x,sum:longint;change:boolean;beginread(n);fori:=1tondoread(pos[i],value[i]);change:=true;i:=1;whilechangeand(i<=n-1)dobeginchange:=false;forj:=1ton-idoifvalue[j]>value[j+1]thenbeginchange:=true;x:=value[j];value[j]:=value[j+1];value[j+1]:=x;end;i:=i+1;end;sum:=0;fori:=1tondosum:=sum+pos[i]*value[i];writeln('sum=',sum);end.輸入：101102132495364788596107輸出為：sum=_______三、簡答題（第1題6分，第2題8分，共14分）第1題：河的二岸（A岸、B岸）各有15個碼頭，它們距上游某城市的距離如下表所示，且A岸的一個碼頭只與B岸的一個碼頭（即表中上下對應(yīng)的二個）有航線，在保證不出現(xiàn)航線交叉的情況下，問：最多能同時開通幾條航線？（3分）能達到（1）中最多航線條數(shù)的不同通航方案共有幾種？（3分）A岸210159134171136581214B岸461391110314712581512第2題：有一堆火柴共若干根，現(xiàn)由甲乙兩人輪流從中拿取。規(guī)定：除最先輪到取火柴者，其第一次可以拿走任意數(shù)目的火柴（但不能拿完，也不能不拿）外，接下來輪到者，每次至少要拿走一根，但至多只可拿走上次對方所取火柴數(shù)目的兩倍，并約定：最先將火柴取光者為勝者。問：若原先這堆火柴的根數(shù)不少于2根，但最多不多于9根，問：共有哪些情況能確保最先輪到取火柴者必勝？（寫出相應(yīng)的原先這堆火柴的根數(shù)）（4分）若原先這堆火柴的根數(shù)不少于10根，但最多不多于23根，問：有哪些情況使最先輪到取火柴者必敗？（寫出相應(yīng)的原先這堆火柴的根數(shù)）（4分）四、完善程序（第一大題12分，第二大題16分，共28分）第1題：完全數(shù)（每空3分，共12分）如果一個正整數(shù)的所有小于它本身的因子之和等于該正整數(shù)，則該正整數(shù)稱為完全數(shù)。比如6=1+2+3，于是6稱為完全數(shù)；28=1+2+4+7+14，28也是完全數(shù)。以下程序輸入一個數(shù)n，輸出1至n中的完全數(shù)的個數(shù)。請完善該程序。programxx07_5;varn,i,count:longint;functionWanQuanShu(k:longint):longint;vari,sum:longint;begin①_____________;fori:=1tokdiv2doif②_____________thensum:=sum+i;ifsum=kthenWanQuanShu:=③________elseWanQuanShu:=④________;end;beginreadln(n);count:=0;fori:=1tondocount:=count+wanquanshu(i);writeln(count);end.第2題：石子劃分（每空4分，共16分）給出n堆石子，以及每堆石子數(shù)。請將它們分為兩堆，使得這兩堆的總石子數(shù)差最小。輸入n，以及每堆石子數(shù)，輸出分為兩堆后的最小差值。比如，n=4，四堆石子分別有13，6，8，14顆，則可以分為13+8和14+6的兩堆，它們的最小差為1。以下程序：（1）求得所有石子數(shù)total，以及它的一半half；（2）在所有石子堆中作適當選擇，對每種選擇方案，求不超過half的已選中堆中的石子總數(shù)的最大值max。所求即為(total-max)-max。（3）以a[j]表示第j堆石子數(shù)；以b[j]表示第j堆石子是否被選中，如果b[j]=1，表示第j堆被選中，如果b[j]=0表示第j堆沒有被選中。（4）各種方案的表達及次序如下：以00…00（均不選中），00..01（只選中第n堆石子），00..10（只選中第n-1堆石子），00…11（選中第n-1堆和第n堆石子），00…100（選中第n-2堆石子），00…101（選中第n-2堆和第n堆石子），11…11（選中所有n堆石子）。請完善該程序。programxx07_6;constmaxn=20;varn,i,j:longint;total,half,sum,max:longint;a:array[1..maxn]oflongint;b:array[0..maxn]of0..1;beginreadln(n);total:=0;fori:=1tondobeginread(a[i]);total:=total+a[i];end;half:=totaldiv2;max:=0;fori:=1tondob[i]:=0;i:=n;whilei>0dobeginsum:=0;forj:=1tondosum:=⑤________________;if⑥______________________thenmax:=sum;i:=n;while(i>0)and(b[i]=1)doi:=⑦____________;ifi>0thenbeginb[i]:=⑧_________;forj:=i+1tondob[j]:=0;end;end;writeln(total-max-max);end.寧波市第22屆中小學(xué)生計算機程序設(shè)計競賽預(yù)賽答卷（小學(xué)組）（考試時間120分鐘，滿分100分）●●所有提交的答案都以寫在答卷紙上的為準，寫在試卷上的一律無效●●學(xué)校姓名得分一、選擇題：請選出各題正確答案的代碼（A/B/C/D）（每題2分，共40分）題號12345678910答案題號11121314151617181920答案二、閱讀pascal程序并寫出運行結(jié)果（每題6分，共18分）第1題：請寫出程序運行后變量sum的值（6分）。sum的值為：_______________第2題：請寫出程序運行后變量ok的值（每空3分，共6分）①輸入：123，ok的值為：_____________②輸入：121，ok的值為：_____________第3題：請寫出程序運行后變量sum的值（6分）。sum的值為：____________三、簡答題（第1題6分，第2題8分，共14分）第1題（每小題3分，共6分）：（1）（2）第2題（每小題4分，共8分）：（1）（2）四、完善程序（第1題12分，第2題16分，共28分）第1題：（每空3分，共12分）①______________________②_______________________③______________________④_______________________第2題：（每空4分，共16分）⑤______________________⑥_______________________⑦______________________⑧_______________________寧波市第22屆中小學(xué)生計算機程序設(shè)計初賽試題答題卷(小學(xué)組)學(xué)校姓名準考證號一、選擇題(每小題2分，共40分)12345678910111213BACBDCABADCBC14151617181920

BAABDCB二、閱讀程序，并寫出程序的正確運行結(jié)果(每空6分，共30分)1、程序運行結(jié)果：sum=3332、程序運行結(jié)果：輸入123輸出：FALSE輸入121輸出：TRUE3、程序運行結(jié)果：sum=385

三、1、8條航線2種方案

2、（1）4、6、7、9根（2）除12，18根外

四、程序填空(每空5分，共30分)1、①sum:=0②kmodi=0③1④02、⑤sum+a[j]*b[j]⑥(sum<=half)and(sum>max)⑦i-1⑧12008年寧波市信息學(xué)競賽初賽試題（小學(xué)組Pascal語言二小時完成）●全部試題答案均要求寫在答卷紙上，寫在試卷紙上一律無效●●單項選擇題（共15題，每題2分，共計30分。每題有且僅有一個正確答案。）1．在計算機中，程序和數(shù)據(jù)統(tǒng)一存儲并在程序控制下自動工作；提出這種理論體系的科學(xué)家是（A）申農(nóng)（B）摩爾（C）蓋茨（D）馮·諾依曼2．十進制數(shù)17轉(zhuǎn)化為二進制數(shù)是（A）10001（B）10010（C）10101（D）110013．下列屬于文字處理軟件的是（A）Word（B）ACDSee（C）GoldWave（D）Flash4．在Windows中，把鼠標指針指向一個右邊有“…”符號的菜單項，將彈出（A）工具欄（B）對話框（C）狀態(tài)欄（D）子菜單5．InternetExplorer(IE)瀏覽器中的“收藏”菜單的主要功能是管理（A）圖片（B）郵件（C）網(wǎng)址（D）文檔6．E-mail郵件本質(zhì)上是一個（A）文件（B）電報（C）電話（D）傳真7．由于網(wǎng)絡(luò)的普及而興起的一種新的數(shù)字音頻格式是（A）MD（B）MP3（C）VCD（D）DVD8．計算機要處理光盤中的信息時，必須將待處理的信息調(diào)入（A）U盤（B）硬盤（C）內(nèi)存（D）顯示器9．區(qū)分局域網(wǎng)（ＬＡＮ）和廣域網(wǎng)（ＷＡＮ）的依據(jù)是（A）網(wǎng)絡(luò)用戶（B）傳輸協(xié)議（C）聯(lián)網(wǎng)設(shè)備（D）聯(lián)網(wǎng)范圍10．一般家庭是通過非對稱數(shù)字用戶環(huán)路技術(shù)上網(wǎng)的，該技術(shù)的英文縮寫是（A）DNS（B）WWW（C）ISP(D)ADSL11．下列存儲容量之間換算正確的是（A）1KB=1000B（B）1MB=1024KB（C）1MB=1024B（D）1GB=1024KB12．利用隨機函數(shù)random(3)可以產(chǎn)生的整數(shù)有（A）1、2（B）0、1、2（C）1、2、3（D）0、1、2、313．語句c:=a=b能正確執(zhí)行，其中變量a、b是整型數(shù)，則變量c的類型是（A）整數(shù)（B）實型（C）布爾型（D）字符型14．設(shè)A=B=True，C=D=False，下列邏輯運算表達式值為False的是（A）AORC（B）AANDB（C）NOT(AANDC)（D）NOT(AANDB)

15．將數(shù)組{1,2,4,3,5,6,7,8}中的元素用冒泡排序的方法按從大到小的順序排列，需要比較的次數(shù)是（A）7（B）27（C）28（D）64二、問題求解（共2題，每題5分，共計10分）。1．不同的兩條直線最多只有1個交點，不同的三條直線最多只有3個交點，那么不同的五條直線最多共有個交點。2．某人擁有面值為1、2、3、4、5、6的六枚銀幣，他發(fā)現(xiàn)只要用面值為1、2、3的3枚銀幣就可以拼成1～6的所有幣值；如果他擁有1、2、……、100共一百枚銀幣，那么他只要用最少的枚銀幣就可以拼成1～100的所有幣值。三、閱讀程序?qū)懡Y(jié)果（共4題，每題8分，共計32分。）1、programxx301;vars:string;i,k,j:integer;begini:=1;s:='123!*&jhfokillltlllabethe';k:=length(s);repeatk:=k-i;inc(i);write(s[k]);untilk-i<0;end.輸出：______________________2、programxx302;consta:array[1..6]ofinteger=(3,2,4,6,5,1);varb:array[1..6]ofinteger;i,j,k:integer;beginb:=a;fori:=1to3doforj:=i+1to6doifb[i]<b[j]thenbegink:=b[i];b[i]:=b[j];b[j]:=kend;fori:=1to6dowrite(b[i]:3);end.輸出：_______________________________3、programxx303;vari,j,s,n,k:integer;beginreadln(n);s:=0;fori:=1tondobegink:=-1;forj:=1toidok:=-k;s:=s+k*i;end;writeln(s);end.輸入：100輸出：_____________________________________________4、Programxx304;varn:integer;functionsum(k:integer):integer;vari,s,t:integer;begins:=0;t:=1;fori:=1tokdobegint:=t*i;s:=s+t;end;sum:=send;beginn:=5;writeln(sum(n))end.輸出：__________________________四、完善程序（前4空，每空3分，后4空，每空4分，共28分）。1、（插入排序）下面的程序的功能是輸入n及n個整數(shù)，用插入排序的方法，將n個整數(shù)按從小到大的順序輸出，要求每行輸出10個整數(shù)（最后一行可以不足10個）。 請將程序補充完整。Programxx401;vara:array[1..1000]ofinteger;n,i,x,k:integer;beginreadln(n);read();fori:=2tondobegink:=i;read(x);while(k>1)and()dobegina[k]:=;dec(k);end;a[k]:=x;end;fori:=1tondobeginwrite(a[i]:4);ifthenwritelnend;writelnend.2、（最大乘積）一個正整數(shù)一般可以分為幾個互不相同的自然數(shù)的和，如3=1+2，4=1+3，5＝1+4=2+3，6=1+5＝2+4，…。下面給出的程序是將指定的不超過200的正整數(shù)n分解成若干個互不相同的自然數(shù)的和，且使這些自然數(shù)的乘積最大。請將程序補充完整。Programxx402;varn,k,m,i,j:integer;a:array[0..30]ofinteger;s:qword;beginreadln(n);k:=2;fillchar(a,sizeof(a),0);whilen>=kdobegina[k]:=k;;inc(k);end;m:=k-1;fori:=mdownto2doifn>0thenbeginn:=n-1;;endelsebreak;fori:=mdownto2doifn>0thenbegina[i]:=a[i]+1;;endelsebreak;s:=1;fori:=1to30doifa[i]>0then;writeln(s);end.

2008年寧波市信息學(xué)競賽初賽試題（小學(xué)組Pascal語言）參考答案與評分標準一、單項選擇題：（每題2分）題號12345678910答案DAABCABCDD題號1112131415答案BBCDC二、問題求解：（每題5分）1．102．7三、閱讀程序?qū)懡Y(jié)果1.hello!2.

6542313.

-504.

153四、完善程序(前4空（①--④），每空3分，后4空（⑤--⑧），每空4分)（說明：以下各程序填空可能還有一些等價的寫法，以上機驗證通過為準）1．①

a[1]②

a[k-1]>x或x<a[k-1]或a[k-1]-x>0……③

a[k-1]④

imod10=02.

⑤n:=n-k或dec(n,k)⑥a[i]:=a[i]+1或inc(a[i])⑦dec(n)或n:=n-1⑧s:=s*a[i]或s:=a[i]*s2009年寧波市第24屆中小學(xué)生計算機程序設(shè)計競賽小學(xué)組初賽試題（說明：答案請寫在答題卷上?？荚嚂r間120分鐘，滿分100分）一、選擇題（每題有且僅有一個正確答案，選對得1.5分，選錯、不選或多選均不得分）1、若已知一個棧的入棧順序是1，2，3，…，n，其輸出序列為P1，P2，P3，…，Pn，若P1是n，則Pi是()A)iB)n-1C)n-i+1D)不確定2、滿二叉樹的葉結(jié)點個數(shù)為N，則它的結(jié)點總數(shù)為（）。A.NB.2*NC.2*N–1D.2*N+1E.2N–13、 二叉樹T，已知其前序遍歷序列為1243576，中序遍歷序列為4215736，則其后序遍歷序列為（）。A.4257631B.4275631C.4275361D.4723561E.45263714、完全二叉樹的結(jié)點個數(shù)為11，則它的葉結(jié)點個數(shù)為（）。A.4B.3C.5D.2E.65、布爾型(boolean)和字符型(char)變量所占用的存儲空間大小的關(guān)系是（A）布爾型大（B）字符型大（C）一樣大（D）因操作系統(tǒng)而異6、用八位二進制可以表示的最大十進制數(shù)是：（A）99999999（B）11111111（C）255（D）2567、有一個10行10列的對稱矩陣，采用壓縮存儲方式來存儲該矩陣的上三角元素（行優(yōu)先次序），第1行第1列的存儲地址為s，每個元素占用2個存儲空間，則第8行第8列元素的首地址為：（A）s+100（B）s+98（C）s+72（D）s+708、已知一棵二叉樹的葉子結(jié)點數(shù)為100，則有二個子女的結(jié)點數(shù)為：（A）101（B）100（C）99（D）不能確定9、已知一棵二叉樹的前序遍歷為JFDECBHAIG，中序遍歷結(jié)果為DFEJAHBICG，則這棵二叉樹的深度為：（A）6（B）5（C）4（D）310、在Pascal語言中，表達式（23or2xor5）的值是（）。A．18B．1C．23D．3211、將數(shù)組{1,2,4,3,5,6,7,8}中的元素用插入排序的方法按從大到小的順序排列，需要比較的次數(shù)是：（A）7（B）27（C）28（D）6412、算式(2009)16-(2008)10+(2007)8的結(jié)果是：（A）(16170)8（B）(7234)10（C）(1C36)16（D）(1110000111000)213、計算機內(nèi)部使用的數(shù)是：（A）二進制數(shù)

（B）八進制數(shù)（C）十進制數(shù)

（D）十六進制數(shù)14、當n大于100萬時,下列程序段哪個運行最快（D）k:=1;j:=n;x:=a[1];whilek<jdobeginwhile(k<j)and(a[j]>x)dodec(j);ifk<jthenbegina[k]:=a[j];inc(k);end;（D）k:=1;j:=n;x:=a[1];whilek<jdobeginwhile(k<j)and(a[j]>x)dodec(j);ifk<jthenbegina[k]:=a[j];inc(k);end;while(k<j)and(a[k]<x)doinc(k);ifk<jthenbegina[j]:=a[k];dec(j);end;end;（C）sum:=0;k:=1;whilek<=ndobeginforj:=1tondosum:=sum+1;k:=k*2;end;（B）sum:=0;k:=1;whilek<=ndobeginforj:=1tokdosum:=sum+1;k:=k+2;end;（A）max:=0;fork:=1ton-1doforj:=k+1tondoifmax<abs(a[k]-a[j])thenmax:=abs(a[k]-a[j])15、當原始待排序數(shù)據(jù)為從小到大排列時，運行時間比原始數(shù)據(jù)為亂序時快的算法是：（A）選擇排序（B）歸并排序（C）插入排序（D）快速排序16、關(guān)于算法的下列敘述不正確的是：（A）算法的每一步必須沒有歧義，不能有半點含糊（B）算法必須有輸入（C）同一問題可能存在多種不同的算法（D）同一算法可以用多種不同的形式來描述17、FOR語句中的循環(huán)變量，其類型必須是：（A）整型（B）實型（C）自定義類型（D）有序類型18、在下面各獎項中，為計算機科學(xué)與技術(shù)領(lǐng)域作出杰出貢獻的科學(xué)家設(shè)立的獎項是：（A）沃爾夫獎（B）圖靈獎（C）諾貝爾獎（D）菲爾茲獎19、棧是一種后進先出的數(shù)據(jù)結(jié)構(gòu)，它有壓入（push）和彈出（pop）兩種操作。二個元素AB通過入棧和出棧操作，可以有AB和BA兩種可能?，F(xiàn)在3個元素ABC依次進棧，出棧序列最終有幾種可能？（A）3（B）4（C）5（D）620、以下哪項不屬于計算機程序設(shè)計競賽（A）NOIP（B）電子作品制作（C）ACM大學(xué)生程序設(shè)計競賽（D）寧波市中小學(xué)生程序設(shè)計競賽二．問題求解（每小題5分，共10分）1、已知a,b,c,d,e,f,g七個人中，a會講英語；b會講英語和漢語；c會講英語、意大利語和俄語；d會講漢語和日語；e會講意大利語和德語；f會講俄語、日語和法語；g會講德語和法語。能否將他們的座位安排在圓桌旁，使得每個人都能與他身邊的人交談？如果可以，請以“ab”開頭寫出你的安排方案：_____________。2、某班有30個同學(xué)報名參加100米、400米、800米三項比賽，已知有15人報了100米，8人報了400米，6人報了800米，且其中有3人這三個項目都報了。問該班最少有______人一項都沒有報過？最多有_____人一項都沒有報過？三、閱讀程序?qū)懡Y(jié)果（每題8分，共32分）1、programnbxx09_1;vara,b,s:longint;beginreadln(a);s:=a;b:=0;whilea<>0dobeginb:=b*10+amod10;a:=adiv10;end;s:=s+b;writeln(s);end.輸入：123456789輸出：2、programnbXX09_2;var u:array[0..3]ofinteger; a,b,c,x,y,z:integer;begin read(u[0],u[1],u[2],u[3]); a:=u[0]+u[1]+u[2]+u[3]-5;b:=u[0]*(u[1]-u[2]divu[3]+8); c:=u[0]*u[1]divu[2]*u[3]; x:=(a+b+2)*3-u[(c+3)mod4]; y:=(c*100-13)divadiv(u[bmod3]*5);z:=(a+b+c-x-y)*2; if((x+y)mod2=0)thenz:=(a+b+c+x+y)div2; writeln(x+y-z);end.輸入：2574輸出：3、programnbXX09_3;vara,work:array[1..100]ofinteger;i,j,x,d,max:integer;beginreadln(max);fori:=1tomaxdobeginread(a[i]);work[i]:=a[i];end;d:=maxdiv2;whiled>=1dobeginfori:=d+1tomaxdobeginx:=work[i];j:=i-d;while(j>0)and(x<work[j])dobeginwork[j+d]:=work[j];dec(j,d);end;work[j+d]:=x;end;d:=ddiv2;end;fori:=maxdownto1doifa[i]=work[i]thenwrite('1')elsewrite('0');writeln;end.輸出：輸出：______7188149326690144994、programnbXX09_4;varp:array[1..10000]oflongint;n,i,x:longint;functionfind(x:longint):longint;beginifp[x]=xthenfind:=xelsebeginp[x]:=find(p[x]);find:=p[x];end;end;beginreadln(n,x);fori:=1tondoread(p[i]);writeln(find(x));fori:=1ton-1dowrite(p[i],'');//兩數(shù)之間輸出一個空格writeln(p[n]);輸出：輸出：_____________________________輸入：5533324四．程序填空（前5空，每空2分，后6空，每空3分，共28分）1、“高效”排序以下程序?qū)崿F(xiàn)輸入n個數(shù)，使用類似冒泡排序的方法，依次比較相鄰的兩個數(shù)，如果前一個數(shù)比后一個大，則交換兩者，最終將輸入的n個數(shù)從小到大排序后輸出。程序在運行中發(fā)現(xiàn)某遍掃描后，沒有數(shù)據(jù)交換發(fā)生，說明已經(jīng)有序了，此時將退出掃描。請將程序補充完整。programnbcz09_5;varn,i,j,tmp:longint;a:array[1..10000]oflongint;flag:boolean;//flag=true表示有交換發(fā)生，flag=false表示沒有交換beginreadln(n);fori:=1tondoread(a[i]);i:=1;①__________________;whileflagand(i<=n-1)dobeginflag:=false;forj:=1to②_____________doifa[j]>a[j+1]thenbegin//前一個比后一個大tmp:=a[j];③___________;a[j+1]:=tmp;④______________;end;⑤_______________;end;fori:=1ton-1dowrite(a[i],'');writeln(a[n]);end.2、數(shù)獨游戲在n行n列的方格中，每個格子填入一個1~n之間的數(shù)字，使得每行中沒有重復(fù)數(shù)字，每列上也沒有重復(fù)數(shù)字。如圖1所示是一個3行3列的合法的安排方案。12圖4112圖41221圖311圖21223圖131312游戲開始可以規(guī)定某些格子已經(jīng)有給定的數(shù)字。如圖2所示，在2行2列的方格中，規(guī)定1行1列和2行2列的數(shù)字均為1，則得到唯一的如圖3所示的方案。但如果規(guī)定1行1列數(shù)字為1，2行2列數(shù)字為2，則無法得到任何合法的方