【文章內(nèi)容簡介】 。 WRITE（‘S=’，S）END.裝球：設(shè)有N個盒子（N足夠大，可裝入任何數(shù)量的球），分別編號1，2，…。同時有K個小球（K0），今將K個小球裝入到盒子中去，裝入規(guī)則如下： （1） 第一個盒子不能為空。 （2） 裝入必須嚴格按遞增的順序進行。 例如，當(dāng)K=8，N=6裝入方法有：1，2，5 或1，3，4 （3）在滿足上面的兩個條件下，要求有球的盒子盡可能多。 （4）裝完之后，相鄰盒子中球個數(shù)差的絕對值之和為最?。ㄎ囱b的盒子不計）。 如上例中： 裝入法1，2，5 則差的絕對值之和為：21+52=4 裝入法1，3，4 則差的絕對值之和為：31+43=3[程序要求]：給出K（K表示小球個數(shù)）之后，求出滿足上述四個條件的裝入方法。[算法描述]：設(shè)計一個數(shù)組A：ARRAY[1..N] OF INTEGER，用數(shù)組元素代表盒子然后依次裝入小球。[程序]：PROGRAM EXP3（INPUT，OUTPUT）； CONST N=20； VAR I，J，K，L：INTEGER； A ：ARRAY[1..N] OF INTEGER； BEGIN READLN（k）； ⑥ J：=1； WHILE ⑦ DO BEGIN A（J）：=J； ⑧ ：J：=J+1 END； L：=j1。 WHILE k0 DO BEGIN ⑨ ：K：=K1：L：=L1 END； FOR I：=1 TO ⑩ DO WRITE（A[I]：4） END.寧波21屆中小學(xué)生計算機程序設(shè)計競賽小學(xué)組初賽試題答案一、 選擇題CBAACCCADADDDCDDDDDD二、 閱讀程序1．12242．1224593． 1 4 9 16 25 36 49 64 81 1004．0．125 0．{285714}三、程序填空1．A[i]:=i2. A[i] mod 2=03. A[i] mod 5=0:=0[i]0(a,sizeof(a),0)7. j=k8. k:=kj9. a[l]:=a[l]+110. j1寧波市第22屆中小學(xué)生計算機程序設(shè)計競賽預(yù)賽試題（小學(xué)組）（考試時間120分鐘，滿分100分）●●所有提交的答案都以寫在答卷紙上的為準，寫在試卷上的一律無效●●學(xué)?！　　　　　　　　　　　　　　　　⌒彰　　　　　　　　∫?、選擇題：請選出各題正確答案的代碼（A/B/C/D）（每題2分，共40分）在微型計算機的漢字系統(tǒng)中，一個漢字內(nèi)碼所占的字節(jié)數(shù)是（ ）。（A）1 （B）2 （C）3 （D）4軟盤加上寫保護后，這時對它可進行的操作是（ ）。（A）只能讀盤，不能寫盤 （B）既可讀盤，又可寫盤（C）只能寫盤，不能讀盤 （D）不能讀盤，也不能寫盤下列存儲設(shè)備中，斷電后其中的信息會消失的是（ ）。（A）硬盤 （B）ROM （C）RAM （D）U盤 pascal語言中運算（13） MOD （2）的結(jié)果是（ ）。 （A）1 （B）1 （C）0 （D）2 數(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）2 1GB= （ ）KB 。（A） 1000 （B） 1024 （C）10241024 （D）10001000下面有關(guān)計算機病毒的說法，錯誤的是（ ）。（A）為防止病毒感染計算機，使用軟盤時，將軟盤寫保護（B）計算機的病毒不僅能損壞文件，還可能造成電腦主板等硬件的損壞（C）上網(wǎng)的電腦有可能會感染病毒 （D）計算機病毒也是程序下列存儲器中，存取速度最快的是（ ）。 （A）軟盤 （B）內(nèi)存 （C）光盤 （D）硬盤在Windows 中，能通過輸入“?a*.?”命令查找到的文件是（ ）。（A） （B） （C） （D） 下列各種說法中，正確的是（ ）。（A）所有的十進制小數(shù)都能準確地轉(zhuǎn)換為有限位二進制小數(shù)（B）漢字的計算機機內(nèi)碼就是區(qū)位碼（C）存儲器具有記憶能力，其中的信息任何時候都不會丟失（D）計算機中所有信息都采用二進制編碼 1算式（4095）10（7FF）16+（3000）8的結(jié)果不正確的是（ ）。 （A）（3584）10 （B）（111000000000）2 （C）（17000）8 （D）（E00）161下列函數(shù)值是整型的是（ ）。（A）chr（23） （B）ord（false） （C）succ（false） （D）odd（98）1把整數(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））1以下標準數(shù)據(jù)類型中，不能作為for循環(huán)控制變量的是（ ）。 （A）integer型； （B）real型； （C）boolean型； （D）char型1在EMAIL系統(tǒng)中，用于接收郵件的服務(wù)器稱為（ ）服務(wù)器。 （A）POP3 （B）SMTP （C）DNS （D）FTP 1衡量網(wǎng)絡(luò)上數(shù)據(jù)傳輸速率的單位是bps，其含義是（ ）。 （A）數(shù)據(jù)每秒傳送多少二進制位； （B）數(shù)據(jù)每秒傳送多少字節(jié)； （C）數(shù)據(jù)每秒傳送多少公里； （D）數(shù)據(jù)每秒傳送多少千公里。1下列各項中不屬于系統(tǒng)軟件的是（ ）。（A）Windows （B）Word （C）Free Pascal （D）DOS1下列計算機設(shè)備中，不是輸出設(shè)備的是（ ）。 （A）顯示器 （B）音箱 （C）打印機 （D）掃描儀1有一個容量大小為4的棧，元素A、B、C、D按照A、B、C、D的次序依次入棧，且每個元素在出棧后不得再重新入棧，如果入棧和出棧的操作序列為：入棧入棧出棧入棧出棧出棧入棧出棧，問元素A將是第幾個出棧的？（ ）（A）1 （B）2 （C）3 （D）4 在線性表的兩種存儲表示中，下列描述正確的是（ ）。 （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:array[1..maxn] of 0..1。begin readln(n)。 for k:=1 to n do f[k]:=1。 for k:=1 to n div 2 do f[k*2]:=0。 for k:=1 to n div 3 do f[k*3]:=0。 sum:=0。 for k:=1 to n do sum:=sum+f[k]。 writeln(39。sum=39。,sum)。end.輸入：1000輸出：sum=_______第2題：請寫出程序運行后變量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 div 2) do if s[k]s[n+1k] then ok:=false else k:=k+1。 writeln(ok)。end.①輸入：123，輸出為：_______ ②輸入：121，輸出為：_______ 第3題：請寫出程序運行后變量sum的值（6分）program xx07_3。const maxn=1000。var pos,value:array[1..maxn]of longint。 n,i,j,x,sum:longint。 change:boolean。begin read(n)。 for i:=1 to n do read(pos[i],value[i])。 change:=true。i:=1。 while change and (i=n1) do begin change:=false。 for j:=1 to ni do if value[j]value[j+1] then begin change:=true。 x:=value[j]。value[j]:=value[j+1]。value[j+1]:=x。 end。 i:=i+1。 end。 sum:=0。 for i:=1 to n do sum:=sum+pos[i]*value[i]。 writeln(39。sum=39。,sum)。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ī)定：除最先輪到取火柴者，其第一次可以拿走任意數(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ù)的所有小于它本身的因子之和等于該正整數(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)。 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。所求即為(totalmax)max。（3）以a[j]表示第j堆石子數(shù)；以b[j]表示