1、文檔來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持.第四屆紹興市少兒信息學競賽試題（小學組PASCAL 語言二小時完成）全部試題答案都要求寫在答卷紙上，寫在試卷上一律無效一、選擇一個正確答案代碼（A/B/C/D ），填入每題的括號內（每題2 分，每題只有一個正確答案，多選或錯選都無分。共30 分）1、現有的計算機都是采用（）提出的存儲程序和二進制的原理制造的。A 圖靈B 馮·諾伊曼C愛因斯坦D 布爾2、計算機的存儲系統中，能被CPU 直接存取的是（）。A 內存儲器B 磁盤存儲器C CD-ROMD 外存儲器3、下列可選項，都是硬件的是（）。A Windows 、 ROM

2、 和 CPUB WPS、 RAM 和顯示器C ROM 、RAM 和 PascalD 硬盤、光盤和軟盤4、應用軟件是專業人員為各種應用目的而編制的程序，以下（）是應用軟件。A 操作系統B 文字處理軟件C數據庫管理系統D 語言處理程序5、以下是關于計算機病毒的說法，不正確的是（）。A 病毒屬于計算機軟件B病毒屬于硬件C病毒具有破壞性、傳播性、可激發性、潛伏性、隱蔽性等特點D若軟盤染上病毒，格式化軟盤可以清除病毒6、計算機網絡的最大優點是（）。A 資源共享B 運算速度加快C計算精度提高D 內存容量增大7、計算機網絡中，互連的各種數據終端，是按（）相互通信。A 網絡協議B 連線C以太網D 數據格式8、

3、電子郵件的郵箱（）。A 在 ISP 的服務器上B 在你申請的網站的服務器上C在 Outlook Express 里D 在 Outlook Express 里的電腦里9、與十六進制 3D 相等的數是（）。A60B （00111110）2C（ 76）8D （ 00111101）210 Windows 中，不能在顯示屬性中設置的是_ 。A. 屏幕刷新率B.屏幕保護程序C. 系統日期D. 墻紙的設置11、給定隊列的入隊順序1， 2， 3，共有幾種可能的出隊序列（）。A 3B 2C 1D 412、如果一棵滿二叉樹有n 個葉結點，則這棵樹的結點總數為（）。A 2nB 2n-1C 2n+1D n2-11文檔

4、來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持.文檔來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持 .13、下列哪個選項不是程序設計的基本控制結構（）。A 順序結構B 分支結構C循環結構D 數據結構14、在 Pascal 程序設計中，我們可以利用（）語句使程序終止運行。A haltB endC breakD quit15、產生100 至 300之間的隨機整數（Random），且包含 100、300兩個整數的表達式是（）。A random(100)+200B random(200)+100C random(201)+100D random(300)二、問題求解（每

5、題 5 分，共 10 分）1、一個棧的進棧序列為1， 2， 3， 4，請問，出棧序列一共有多少種？2、紹興市信息學競賽臨近，某校要組隊參加競賽，要從 12 名學生中選4 名參加比賽，其中少兒組 2 名，初中組 2 名，請問共有幾種組隊方法？三、閱讀程序，寫出程序的正確運行結果（7+7+8+8=30 分）1、 program test01;varx,y:integer;beginreadln(x,y);x:=x+y;y:=x-y;x:=x-y;write(x,' ',y);end.輸入：37輸出：2、 program test02;varx:longint;n,i:integer

6、;beginreadln(n);x:=1;for i:=1 to n dox:=x*i;writeln(x);end.輸入： 8輸出：3、 program test03;function f(n:integer):integer;beginif n=0 then f:=12文檔來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持.文檔來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持.else if n<0 then f:=f(n+1)+3else f:=f(n-1)-2;end;beginwriteln(f(f(2);end.輸出：4、 program test0

7、4;vari,j,a:longint;s:array1.32 of longint;beginreadln(a);j:=0;while a<>0 do begininc(j);sj:=a mod 2;a:=a div 2;end;if j=0 then write(0) elsefor i:=j downto 1 dowrite(si);end.輸入： 58輸出：四、完善程序（根據問題要求和已有程序，在空格處填入適當的語句或符號，使程序完整。每空 3 分，共 30 分）1、貪心的武松【問題描述】曾經因打虎而聞名的武松在x 年后接到了景陽崗動物園的求助信，信上說：最近我們動物園逃跑了

8、幾只老虎，請您把它們抓回來，謝謝!武松接到信之后立刻上了山。正當他到半山腰時，突然跳出n 只猛虎來。 每只老虎都有一塊虎牌，牌上寫的是每一只虎最大擁有的體力，當武松與老虎pk 時，若老虎的體力先用完，那么老虎over, 否則武松over, 求武松在over 之前最多能干掉幾只老虎？（注：老虎是一只只上的）【輸入】第一行兩個數字 n （老虎的只數） ,m（武松的體力） 。第二行 n 個數字 , 分別表示每只老虎的體力（每只虎的體力按從小到大排列） 。【輸出】一行，最多能干掉的老虎數。【樣例輸入】3 61 3 93文檔來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持.文檔來源為 :從

9、網絡收集整理.word 版本可編輯 .歡迎下載支持.【樣例輸出】2請完善以下程序program test05；varn,m,i,num:integer;a:array1.100 of integer;beginfillchar(a,sizeof(a),0);read(n,m);for i:=1 to n doread();num:=0; i:=1;while (m>0) and () dobeginm:=m-ai;if m>=0 then beginnum:=num+1;end;end;write();end.2、合并禮物【問題描述】圣誕節快到了， 圣誕老人又要開始忙起來了，和往年

10、一樣， 圣誕老人要在禮物樂園里挑選禮物送給小朋友們。在禮物樂園，圣誕老人挑選好禮物后，把禮物按照不同的種類分成了不同的堆，現在，圣誕老人決定把所有的禮物合成一堆。每一次合并， 圣誕老人可以把兩堆禮物合并到一起，消耗的體力等于兩堆禮物的重量之和。可以看出， 所有的禮物經過n-1 次合并之后， 就只剩下一堆了。圣誕老人在合并禮物時總共消耗的體力等于每次合并所耗體力之和。因為還要花大力氣把這些禮物搬到他的鹿車，所以圣誕老人在合并禮物時要盡可能地節省體力。假定每個禮物重量都為1，并且已知禮物的種類和每種禮物的數目，你的任務是設計出合并的次序方案，使圣誕老人耗費的體力最小，并輸出這個最小的體力耗費值。例

11、如有 3 種禮物，數目依次為1， 2， 9。可以先將1 、 2 堆合并，新堆數目為3，耗費體力為 3。接著，將新堆與原先的第三堆合并，又得到新的堆，數目為12，耗費體力為12 。所以圣誕老人總共耗費體力=3+12=15。可以證明15 為最小的體力耗費值。【輸入】輸入包括兩行，第一行是一個整數n（ 1 <= n <= 100），表示禮物的種類數。第二行包含 n 個整數，用空格分隔，第 i 個整數 ai （ 1 <= a i <= 100 ）是第 i 種禮物的數目。【輸出】輸出包括一行，這一行只包含一個整數，也就是最小的體力耗費值。【樣例輸入】4文檔來源為 :從網絡收集整理

12、.word 版本可編輯 .歡迎下載支持.文檔來源為 :從網絡收集整理.word 版本可編輯 .歡迎下載支持.31 2 9【樣例輸出】15【解題思路】首先將所有的禮物堆按照每堆禮物的數目進行排序，將數目最少的兩堆禮物合并，然后再將新堆放入數列中重新排序，再取出最少數目的兩堆合并每次合并后將體力消耗值加入到 total變量，依次類推，經過n-1 次合并后，所有禮物都合并成了一堆，total即為問題所求的“最小的體力耗費值”。請完善以下程序：program test06;varn,i,j,total:longint;a:array0.101 of longint;procedure qsort(l,r:longint);vari,j,x,temp:longint;begini:=l;j:=r;x:=a(i+j) shr 1;repeatwhile ai<x do inc(i);while x<aj do dec(j);if i<=j then begintemp:=ai;aj:=temp;i:=i+1;end;until;if l<j then qsort(l,j);if i<r then;end;beginreadln(n);for i:=1 to n doread(ai