寧波市第22屆中小學(xué)生計算機程序設(shè)計競賽

1、寧波市第22屆中小學(xué)生計算機程序設(shè)計競賽預(yù)賽試題（小學(xué)組）（考試時間120分鐘，滿分100分）所有提交的答案都以寫在答卷紙上的為準(zhǔn)，寫在試卷上的一律無效學(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

2、、pascal語言中運算（-13） MOD （-2）的結(jié)果是（ ）。 （A）1 （B）-1 （C）0 （D）-2 5、數(shù)組A有10個下標(biāo)變量，各個下標(biāo)變量的賦值情形如下所示，則表達式AAA5的值是（ ）。 A1A2A3A4A5A6A7A8A9A1045171029836（A）10 （B）5 （C）6 （D）2 6、1GB= （ ）KB 。（A） 1000 （B） 1024 （C）1024×1024 （D）1000×10007、下面有關(guān)計算機病毒的說法，錯誤的是（ ）。（A）為防止病毒感染計算機，使用軟盤時，將軟盤寫保護（B）計算機的病毒不僅能損壞文件，還可能造成電腦主板等硬

3、件的損壞（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.cc 10、下列各種說法中，正確的是（ ）。（A）所有的十進制小數(shù)都能準(zhǔn)確地轉(zhuǎn)換為有限位二進制小數(shù)（B）漢字的計算機機內(nèi)碼就是區(qū)位碼（C）存儲器具有記憶能力，其中的信息任何時候都不會丟失（D）計算機中所有信息都采用二進制編碼 11、算式（4095）10-（7FF）16+（3

4、000）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的表達式是（ ）。（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、

5、在E-MAIL系統(tǒng)中，用于接收郵件的服務(wù)器稱為（ ）服務(wù)器。 （A）POP3 （B）SMTP （C）DNS （D）FTP 16、衡量網(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）Free Pascal （D）DOS18、下列計算機設(shè)備中，不是輸出設(shè)備的是（ ）。 （A）顯示器 （B）音箱 （C）打印機 （D）掃描儀19、有一個容量大小為4的棧，元素A、B、C、D按照A、B、C、D的次序依次

6、入棧，且每個元素在出棧后不得再重新入棧，如果入棧和出棧的操作序列為：入棧-入棧-出棧-入棧-出棧-出棧-入棧-出棧，問元素A將是第幾個出棧的？（ ）（A）1 （B）2 （C）3 （D）4 20、在線性表的兩種存儲表示中，下列描述正確的是（ ）。 （A）數(shù)組利于插入，不利于查找 （B）鏈表利于查找，不利于插入（C）數(shù)組利于查找，不利于插入 （D）數(shù)組與鏈表中的插入與查找效率差不多二、閱讀pascal程序并寫出運行結(jié)果（每題6分，共18分）第1題：請寫出程序運行后變量sum的值（6分）program xx07_1;const maxn=1000000;var n,k,sum:longint; f:

7、array1.maxn of 0.1;begin readln(n); for 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題：請寫出程序運行后變量ok的值（每空3分）program xx07_2;var s:string; k,n:integer;ok:boolean;begin readln(s)

8、;n:=length(s); k:=1;ok:=true; while ok and (k<=n div 2) do if sk<>sn+1-k then ok:=false else k:=k+1; writeln(ok);end.輸入：123，輸出為：_ 輸入：121，輸出為：_ 第3題：請寫出程序運行后變量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:

9、=1 to n do read(posi,valuei); change:=true;i:=1; while change and (i<=n-1) do begin change:=false; for j:=1 to n-i do if valuej>valuej+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)

10、;end.輸入：101 102 13 24 95 36 47 88 59 610 7 輸出為：sum=_三、簡答題（第1題6分，第2題8分，共14分）第1題：河的二岸（A岸、B岸）各有15個碼頭，它們距上游某城市的距離如下表所示，且A岸的一個碼頭只與B岸的一個碼頭（即表中上下對應(yīng)的二個）有航線，在保證不出現(xiàn)航線交叉的情況下，問：（1） 最多能同時開通幾條航線？（3分）（2） 能達到（1）中最多航線條數(shù)的不同通航方案共有幾種？（3分）A岸210159134171136581214B岸461391110314712581512第2題：有一堆火柴共若干根，現(xiàn)由甲乙兩人輪流從中拿取。規(guī)定：除最先輪到取

11、火柴者，其第一次可以拿走任意數(shù)目的火柴（但不能拿完，也不能不拿）外，接下來輪到者，每次至少要拿走一根，但至多只可拿走上次對方所取火柴數(shù)目的兩倍，并約定：最先將火柴取光者為勝者。問：（1） 若原先這堆火柴的根數(shù)不少于2根，但最多不多于9根，問：共有哪些情況能確保最先輪到取火柴者必勝？（寫出相應(yīng)的原先這堆火柴的根數(shù)）（4分）（2） 若原先這堆火柴的根數(shù)不少于10根，但最多不多于23根，問：有哪些情況使最先輪到取火柴者必敗？（寫出相應(yīng)的原先這堆火柴的根數(shù)）（4分）四、完善程序（第一大題12分，第二大題16分，共28分）第1題：完全數(shù)（每空3分，共12分）如果一個正整數(shù)的所有小于它本身的因子之和等于該

12、正整數(shù)，則該正整數(shù)稱為完全數(shù)。比如6=1+2+3，于是6稱為完全數(shù)；28=1+2+4+7+14，28也是完全數(shù)。以下程序輸入一個數(shù)n，輸出1至n中的完全數(shù)的個數(shù)。請完善該程序。program xx07_5;var n,i,count:longint;function WanQuanShu(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

13、); count:=0; for i:=1 to n do count:=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）在所有石子堆中作適當(dāng)選擇，對每種選擇方案，求不超過half的已選中堆中的石子總數(shù)的最大值max。所求即為(t

14、otal-max)-max。（3）以aj表示第j堆石子數(shù)；以bj表示第j堆石子是否被選中，如果bj=1，表示第j堆被選中，如果bj=0表示第j堆沒有被選中。（4）各種方案的表達及次序如下：以0000（均不選中），00.01（只選中第n堆石子），00.10（只選中第n-1堆石子），0011（選中第n-1堆和第n堆石子），00100（選中第n-2堆石子），00101（選中第n-2堆和第n堆石子），1111（選中所有n堆石子）。請完善該程序。program xx07_6;const maxn=20;var n,i,j:longint; total,half,sum,max:longint; a:ar

15、ray1.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 i>0 do begin sum:=0; for j:=1 to n do sum:=_; if_ then max:=sum; i:=n; while (i>0) and (bi=1) do i:=_; if i

16、>0 then begin bi:=_; for j:=i+1 to n do bj:=0; end; end; writeln(total-max-max);end.寧波市第22屆中小學(xué)生計算機程序設(shè)計競賽預(yù)賽答卷（小學(xué)組）（考試時間120分鐘，滿分100分）所有提交的答案都以寫在答卷紙上的為準(zhǔn)，寫在試卷上的一律無效學(xué)校姓名得分一、選擇題：請選出各題正確答案的代碼（A/B/C/D）（每題2分，共40分）題號12345678910答案題號11121314151617181920答案二、閱讀pascal程序并寫出運行結(jié)果（每題6分，共18分）第1題：請寫出程序運行后變量sum的值（6分）。

17、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é)校 姓名 準(zhǔn)考證號 一、選擇題(每小題2分，共40分) 12345678910111213BACBDCABADCBC14151617181920 BAABDCB二、閱讀程序