1、第十屆紹興市少兒信息學競賽初 賽 試 題（小學組 PASCAL語言 二小時完成）全部試題答案都要求寫在答卷紙上，寫在試卷上一律無效一、選擇一個正確答案代碼（A/B/C/D），填入每題的括號內（每題2分，每題只有一個正確答案，多選無分。共20分）1.某算法的流程圖如下所示：依次輸入x的值為5、3、0、6后，該算法的輸出結果為A)6B)3C)14D)82某用戶電子郵箱收件夾中的內容如圖所示:從圖中可以看出該收件夾內A)全部郵件有6封。B)未讀的郵件有4封。C)帶附件的郵件有5封。D)當天收到的郵件有3封。3笑笑的爺爺最近在學電腦，現在已經會上網了,但總是記不住網址，每次上網時都要問笑笑該輸什么網址

2、，后來笑笑略施小“技”，幫爺爺解決了這個難題。之后爺爺再上網時，不僅不用記住網址就能快速地訪問自己常去的一些網站，而且每次一啟動IE就可以直接打開新華網瀏覽新聞，笑笑采用的方法是( )將爺爺常用的網址都添加到IE的收藏夾中 將爺爺常用的網址都添加到IE的臨時文件夾中將新華網的網址設置為IE的主頁將爺爺常用的網址都添加到IE的歷史記錄中A)B)C)D)4下列有關信息學名詞解釋中，錯誤的是（ ）A)Online Judge：簡稱OJ，信息學在線評測系統B)Excel：Microsoft公司開發的電子表格處理軟件。C)Flash：Micromedia公司開發的三維動畫制作軟件。D)LOGO語言：內置

3、一套海龜繪圖系統，通過向海龜發送命令，用戶可以直觀地學習程序的運行過程，是適合于兒童學習的入門級語言。5單字節5和-5在計算機內部分別表示為（ ）A)00000101 10000101B)00000101 11111010C)11111011 11111011D)00000101 111110116 2名駕駛員和6名空中小姐分別上二架不同型號的旅游直升飛機，每機1名駕駛員及3名空中小姐，則上機方法共有多少種？A)60B)80C)40D)207如圖有兩個棧s1,s2，有一數字序列2 3 4 1，依次進入其中任意一個棧，任一個數字入棧后也可隨時出棧，則不可能的出棧序列是：A)1 3 2 4B)2

4、1 3 4C)4 2 3 1D)1 2 3 4 8寄存器是（ ）的重要組成部分。A)硬盤B)高速緩存C)內存D)中央處理器（CPU）9在一個果園里，笑笑將所有的果子打了下來，而且按果子的不同種類分成了不同的堆。笑笑決定把所有的果子合成一堆。每一次合并，笑笑可以把任意兩堆果子合并到一起，消耗的體力等于兩堆果子的重量之和。可以看出，所有的果子經過n-1次合并之后，就只剩下一堆了。笑笑在合并果子時總共消耗的體力等于每次合并所耗體力之和。假定有5堆果子，每堆果子的數量為12，4，20，15，10，每個果子重量都為2，笑笑想知道最小的體力耗費值是多少。A)272B)284C)164D)13610下面是信

5、息學的相關知識，哪一句是正確的：（ ）A)圖靈，美國數學家，1936年設計并成功實現了圖靈機，鑒于他巨大的貢獻，ACM于1966年以他的名字命名設立了圖靈獎，圖靈在人工智能方面也有重要的研究，被譽為人工智能之父。B)Dos、Win7、safari、Unix、Photoshop都是操作系統。C)信息學奧林匹克競賽活動有NOIP、NOI、冬令營、IOI等，其中NOI是全國青少年信息學奧林匹克競賽，它最早起源于1984年全國青少年程序設計競賽。D)計算機語言分為機器語言、匯編語言和高級語言，高級語言由解釋、編譯兩種方式翻譯執行，第一個計算機高級語言是basic語言。二、根據要求回答問題：（5510分

6、）1. 中午，笑笑到花鳥市場閑逛，看到有位叔叔在買金魚，笑笑就蹲在魚缸邊看金魚吹泡泡，賣金魚的叔叔看笑笑半天沒動彈，還以為笑笑沒錢買又很喜歡金魚，就對笑笑說：“上午我第一次賣出了全部金魚的一半加2分之一條金魚；第二次賣出剩余金魚的三分之一加三分之一條金魚；第三次賣出剩余金魚的四分之一加四分之三條金魚；第四次賣出剩余金魚的八分之一加八分之一條金魚；最后還剩下13條。問原來有多少條金魚？如果你答對了，我免費送你兩條金魚。”可憐的笑笑當場就糊涂了，請你幫幫她吧！（每次賣出的都是整數條金魚）問：原來一共有 條金魚。2XXX是一座風景秀麗，氣候宜人，歷史悠久的的城市，笑笑想到那兒去旅游向往已久。這個暑假

7、，爸爸決定親自駕車帶她到XXX城游玩，這可把笑笑高興壞了。出發前，爸爸通過網絡在XXX城市的中心預訂了酒店。XXX城總共有5個景點，爸爸決定每天從酒店出發玩一個景點，晚上回酒店休息，為了節約汽車油費，爸爸事先對酒店及5個景點之間的道路及距離作了了解，如圖（單位：公里），也就是如果笑笑他們想到景點B游玩，可以選擇酒店->景點B，也可以選擇酒店->景點A->景點B，當然還有其它的選擇。爸爸想知道5天游完所有景點心愛的汽車最少需要跑多少公里？問：游完所有景點最少需要跑 公里？三、閱讀程序并寫出運行結果（8888+840分）：1. program test_2012_1;var x,

8、a,b,c,d,z:integer;begin readln(x); a:=x mod 10; b:=(x mod 100) div 10; c:=(x mod 1000) div 100; d:=x div 1000; z:=a*a+b*b+c*c+d*d; if trunc(c*d)/(a*b)=(c*d)/(a*b) then inc(z,a*b) else inc(z,c*d); writeln(z); end.輸入：1234輸出： 2.program test_2012_2;var m,n,i,j,s:integer;d:array0.100 of integer;begin rea

9、dln(n); for m:=10 TO n DO begin s:=m*m; j:=0; while s>0 DO begin j:=j+1; dj:=s mod 10; s:=s div 10; end; i:=1; while (di=dj ) and ( i<j) DO begin i:=i+1; j:=j-1; end; IF i>=j then writeln(m); end;end.輸入：30輸出： 3、program test_2012_3;var a, b: String; i : Integer;begin a:= 'AABBCCDKKRRSSXX

10、' readln(b); for i := 1 to length(b) Do If (bi >= '0') AND (bi <= '9') then write(bi) else if (bi >= 'A') and (bi <= 'Z') then write(aord(bi) - ord('A') );End.輸入：NOIP-2012輸出： 4、program test_2012_4;var x:integer;procedure add(var z:integer);begi

11、nwriteln(z=',z);z:=z+10;writeln('z=',z);end;beginx:=5;writeln(x=',x);add(x);writeln(x=',x);end.輸出： 5、program test_2012_5;var j,k:integer;function pr(n:integer):boolean;var i:integer;t:boolean;begin t:=true;i:=2;while t and (i<=sqrt(n) doif n mod i=0 then t:=falseelse i:=i+1;pr

12、:=t;end;begin k:=0;j:=11;while j<=99 dobegin if pr(j) and pr(j+2) then begin writeln(j:4,j+2:4);k:=k+1;end;j:=j+2;end;writeln(total:',k);end.輸出： 四、完善程序（根據問題要求和已有程序，在程序空格處填入適當的語句或符號，使程序完整。本題共15+15=30分）1【成績處理】（3+3+3+3+3=15分）笑笑最崇拜她的信息學Mr chen，這不，Mr chen正在教笑笑pascal語言中的記錄類型：有時候我們會遇到這種數據，它由性質各不相同的成

13、分組成，例如： 學號 字符串類型 姓名 字符串類型 年齡 整型 性別 字符型 成績 實型 如果用5個變量來存儲，就失去了一個整體性，Pascal給我們提供了一種叫做記錄的結構類型。在一個記錄中，可以包含不同類型的并且互相相關的一些數據。記錄的定義：（如上面的數據定義如下）type node=record             num:string;學號          &#

14、160; name:string;姓名            age:integer;年齡            sex:string6;性別            score:real;成績      

15、60;  end;var student:array1.100 of node;定義student數組的每個元素為node這種記錄類型，該記錄類型包含5個域記錄的引用：對記錄中每個域的引用，如輸入第i個學生的學號，有兩種方法：（1）可以寫出記錄變量名和域名，pascal語言表示為readln(studenti.num)；（2）使用開域語句withdo，pascal語言表示為 with studenti do Readln(num)笑笑立馬就掌握了這種數據結構，為了在你面前炫耀，她出了一個記錄類型的題目考考你，給出n(1<=n<200)個同學m(1<=m<=5)

16、科的考試成績,按總分找出前十名是哪些同學。規定：總分相同名次相同，且占用后面的名次，例如：第2名有兩個同學，那么將沒有第3名，后面的同學將從第4名算起。Input 第一行為n和m,下面n行為每個同學的成績描述： 每行有m+1個數，其中第一個數為學號（小于等于200），后面為各科成績，成績為0100之間的實數，中間用一個空格隔開。 Output 一行，成績名次在前10的同學學號，不足10名全部輸出。當第10名有多個同學時，輸出有可能超過10名同學的學號。同名次按學號由小到大輸出。輸出的各個學號之間用一個空格隔開。 Sample Input 17 21 7 132 18 543 47 914 65

17、 865 44 486 92 887 80 368 76 689 54 2110 65 1111 61 6912 78 3213 0 8124 93 3215 42 9716 28 917 65 55Sample Output 6 4 8 15 3 11 24 17 7 12program test_2012_6;type cj=array1.5 of real; rec=record num:integer; /學號 s:cj; /考試科目成績 m1:integer; /名次 sum:real; /總分 end;var a:array1.200 of rec; i,j,n,m,k:integ

18、er;t:rec;begin readln(n,m); for i:=1 to n do with ai do begin ；sum:=0; for j:=1 to m do begin read(sj);sum:= end; m1:=0; readln; end; for i:=1 to n-1 do for j:=1 to n-i do if (aj.sum<aj+1.sum)or( )and(aj.num>aj+1.num) then begin t:=aj; ；aj+1:=t; end; a1.m1:=1;k:=1; for i:=2 to n do if ai.sum=a

19、i-1.sum then ai.m1:=k else begin inc(k);ai.m1:=k; end; for i:=1 to n do if i<=10 then write(ai.num,' ') else if ai.sum=ai-1.sum then write( ,' ') else break;end.2【布置新房】（3+3+3+3+3=15分）笑笑今天很開心，家里購置的新房領到鑰匙了，新房里有一間笑笑自己專用的很寬敞的房間。更讓她高興的是，媽媽昨天對她說：“你的房間需要購買哪些物品，怎么布置，你說了算，只要不超過m元錢就行”。笑笑懷里揣

20、著m元RMB到了商場，商場里的物品真多啊，讓人眼花繚亂。笑笑想買的東西很多，于是，她把想買的每件物品規定了一個重要度，用整數表示，數值越大越重要，當然每件物品都有價格，笑笑經過仔細觀察，發現這個商場很奇特，所有物品的價格都是整數。笑笑希望在不超過m元（可以等于m元）的前提下，買回去布置新房的物品的重要度之和最大。比如想買有4件物品，價格分別為3,4,5,8，對應的重要度分別為4,5,7,10，笑笑總共有12元錢，則取編號為1,2,3的物品，得到最大的重要度之和為16。Input 第一行為m和n，中間用空格隔開，表示m元RMB和商場中有n件物品。下面n行依次為每件物品的價格和重要度，中間用一個空格隔開。 Output 一行，表示在不超過m元的前提下笑笑購買物品的最大重要度之和。 Sample Input 12 43 44 55 78 10Sample Output 16算法思路：窮舉。用一個b數組來存放物品選取的情況，當bi=0時表示第i件物品不取，當bi=1時表示第i件物品已取，初始化全部取0，可以從后面的物品開始取起，通過b數組的取值把15種取法全部窮舉出來