1、第四屆紹興市少兒信息學(xué)競(jìng)賽試題（小學(xué)組PASCAL語(yǔ)言二小時(shí)完成）全部試題答案都要求寫在答卷紙上，寫在試卷上一律無效選擇一個(gè)正確答案代碼（A/B/C/D），填入每題的括號(hào)內(nèi)（每題2分，每題只有個(gè)正確答案，多選或錯(cuò)選都無分。共30分）1、現(xiàn)有的計(jì)算機(jī)都是采用（A.圖靈C.愛因斯坦）提出的存儲(chǔ)程序和二進(jìn)制的原理制造的。B. 馮諾伊曼D.布爾2、計(jì)算機(jī)的存儲(chǔ)系統(tǒng)中，能被A內(nèi)存儲(chǔ)器C. CD-ROMCPU直接存取的是（）。B.磁盤存儲(chǔ)器D.外存儲(chǔ)器3、下列可選項(xiàng)，都是硬件的是（A. Windows、ROM和CPUC.ROM、RAM和Pascal）。B.WPS、RAM和顯示器D.硬盤、光盤和軟盤）是應(yīng)用

2、軟件。4、應(yīng)用軟件是專業(yè)人員為各種應(yīng)用目的而編制的程序，以下（A.操作系統(tǒng)B.文字處理軟件C.數(shù)據(jù)庫(kù)管理系統(tǒng)D.語(yǔ)言處理程序5、以下是關(guān)于計(jì)算機(jī)病毒的說法，不正確的是（）。A.病毒屬于計(jì)算機(jī)軟件B.病毒屬于硬件C.病毒具有破壞性、傳播性、可激發(fā)性、潛伏性、隱蔽性等特點(diǎn)D若軟盤染上病毒，格式化軟盤可以清除病毒）。B.運(yùn)算速度加快D內(nèi)存容量增大6、計(jì)算機(jī)網(wǎng)絡(luò)的最大優(yōu)點(diǎn)是（A.資源共享C.計(jì)算精度提高7、計(jì)算機(jī)網(wǎng)絡(luò)中，互連的各種數(shù)據(jù)終端，是按（）相互通信。A.網(wǎng)絡(luò)協(xié)議B.連線C.以太網(wǎng)D.數(shù)據(jù)格式8、電子郵件的郵箱（）。A.在ISP的服務(wù)器上C.在OutlookExpress里9、與十六進(jìn)制3D相等

3、的數(shù)是（A.60C.（76）8B.在你申請(qǐng)的網(wǎng)站的服務(wù)器上D.在OutlookExpress里的電腦里）。B.（00111110）2D.（00111101）210. Windows中，不能在顯示屬性中設(shè)置的是A.屏幕刷新率C.系統(tǒng)日期B. 屏幕保護(hù)程序D. 墻紙的設(shè)置11、給定隊(duì)列的入隊(duì)順序1,2,3,共有幾種可能的出隊(duì)序列(A.3B.2C.1D.412、如果一棵滿二叉樹有n個(gè)葉結(jié)點(diǎn)，則這棵樹的結(jié)點(diǎn)總數(shù)為()A.2nB.2n-1C.2n+1D.n2-113、下列哪個(gè)選項(xiàng)不是程序設(shè)計(jì)的基本控制結(jié)構(gòu)()。A.順序結(jié)構(gòu)B.分支結(jié)構(gòu)C.循環(huán)結(jié)構(gòu)D.數(shù)據(jù)結(jié)構(gòu)14、在Pascal程序設(shè)計(jì)中，我們可以利用(

4、)語(yǔ)句使程序終止運(yùn)行。A.haltB.endC. breakD.quit15、產(chǎn)生100至300之間的隨機(jī)整數(shù)(Random),且包含100、300兩個(gè)整數(shù)的表達(dá)式是()。A.random(100)+200B.random(200)+100C.random(201)+100D.random(300)二、問題求解(每題5分，共10分)1、一個(gè)棧的進(jìn)棧序列為1,2,3,4,請(qǐng)問，出棧序列一共有多少種？2、紹興市信息學(xué)競(jìng)賽臨近，某校要組隊(duì)參加競(jìng)賽，要從12名學(xué)生中選4名參加比賽，其中少兒組2名，初中組2名，請(qǐng)問共有幾種組隊(duì)方法？三、閱讀程序，寫出程序的正確運(yùn)行結(jié)果(7+7+8+8=30分)1、pro

5、gramtest01;varx,y:integer;beginreadln(x,y);x:=x+y;y:=x-y;x:=x-y;write(x,'',y);end.輸入：37輸出：2、programtest02;varx:longint;n,i:integer;beginreadln(n);x:=1;fori:=1tondox:=x*i;writeln(x);end.輸入：8輸出：3、programtest03;functionf(n:integer):integer;beginifn=0thenf:=1elseif*0thenf:=f(n+1)+3elsef:=f(n-1)-

6、2;end;beginwriteln(f(f(2);end.輸出：4、programtest04;vari,j,a:longint;s:array1.32oflongint;beginreadln(a);j:=0;whilea<>0dobegininc(j);sj:=amod2;a:=adiv2;end;ifj=0thenwrite(0)elsefori:=jdownto1dowrite(si);end.輸入:58輸出：四、完善程序（根據(jù)問題要求和已有程序，在空格處填入適當(dāng)?shù)恼Z(yǔ)句或符號(hào)，使程序完整。每空3分，共30分）1貪心的武松【問題描述】曾經(jīng)因打虎而聞名的武松在x年后接到了景陽(yáng)

7、崗的求助信，信上說：最近我們動(dòng)物園逃跑了幾只老虎，請(qǐng)您把它們抓回來，謝謝!武松接到信之后立刻上了山。正當(dāng)他到半山腰時(shí)，突然跳出n只猛虎來。每只老虎都有一塊虎牌，牌上寫的是每一只虎最大擁有的體力，當(dāng)武松與老虎pk時(shí)，若老虎的體力先用完，那么老虎over,否則武松over,求武松在over之前最多能干掉幾只老虎？（注：老虎是一只只上的）【輸入】第一行兩個(gè)數(shù)字n（老虎的只數(shù)），m（武松的體力）。第二行n個(gè)數(shù)字，分別表示每只老虎的體力（每只虎的體力按從小到大排列）。【輸出】一行，最多能干掉的老虎數(shù)。【樣例輸入】361 39【樣例輸出】2請(qǐng)完善以下程序programtest05;varn,m,i,num

8、:integer;a:array1.100ofinteger;beginfillchar(a,sizeof(a),0);read(n,m);fori:=1tondoread();num:=0;i:=1;while(m>0)and()dobeginm:=m-ai;ifm>=0thenbeginnum:=num+1;：end;end;write();end.2、合并禮物【問題描述】圣誕節(jié)快到了，圣誕老人又要開始忙起來了，和往年一樣，圣誕老人要在禮物樂園里挑選禮物送給小朋友們。在禮物樂園，圣誕老人挑選好禮物后，把禮物按照不同的種類分成了不同的堆，現(xiàn)在，圣誕老人決定把所有的禮物合成一堆。每

9、一次合并，圣誕老人可以把兩堆禮物合并到一起，消耗的體力等于兩堆禮物的重量之和。可以看出，所有的禮物經(jīng)過n-1次合并之后，就只剩下一堆了。圣誕老人在合并禮物時(shí)總共消耗的體力等于每次合并所耗體力之和。因?yàn)檫€要花大力氣把這些禮物搬到他的鹿車，所以圣誕老人在合并禮物時(shí)要盡可能地節(jié)省體力。假定每個(gè)禮物重量都為1,并且已知禮物的種類和每種禮物的數(shù)目，你的任務(wù)是設(shè)計(jì)出合并的次序方案，使圣誕老人耗費(fèi)的體力最小，并輸出這個(gè)最小的體力耗費(fèi)值。例如有3種禮物，數(shù)目依次為1，2，9。可以先將1、2堆合并，新堆數(shù)目為3，耗費(fèi)體力為3。接著，將新堆與原先的第三堆合并，又得到新的堆，數(shù)目為12,耗費(fèi)體力為12。所以圣誕老人

10、總共耗費(fèi)體力=3+12=15。可以證明15為最小的體力耗費(fèi)值。【輸入】輸入包括兩行，第一行是一個(gè)整數(shù)n(1<=n<=100)，表示禮物的種類數(shù)。第二行包含n個(gè)整數(shù)，用空格分隔，第i個(gè)整數(shù)a(1<=ai<=100)是第i種禮物的數(shù)目。【輸出】輸出包括一行，這一行只包含一個(gè)整數(shù)，也就是最小的體力耗費(fèi)值。【樣例輸入】3129【樣例輸出】15【解題思路】首先將所有的禮物堆按照每堆禮物的數(shù)目進(jìn)行排序，將數(shù)目最少的兩堆禮物合并，然后再將新堆放入數(shù)列中重新排序，再取出最少數(shù)目的兩堆合并每次合并后將體力消耗值加入到total變量，依次類推，經(jīng)過n-1次合并后，所有禮物都合并成了一堆，total即為問題所求的“最小的體力耗費(fèi)值”。請(qǐng)完善以下程序：programtest06;varn,i,j,total:longint;a:array0.101oflongint;procedureqsort(l,r:longint);vari,j,x,temp:longint;begini:=l;j:=r;x:=a(i+j)shr1;repeatwhileai<xdoinc(i);whilex<ajdodec(j);ifi<=jthenbegintemp:=ai;aj:=temp;i:=i+1;