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

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

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

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

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

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

7、，爸爸決定親自駕車帶她到XXX城游玩，這可把笑笑高興壞了。出發(fā)前，爸爸通過(guò)網(wǎng)絡(luò)在XXX城市的中心預(yù)訂了酒店。XXX城總共有5個(gè)景點(diǎn)，爸爸決定每天從酒店出發(fā)玩一個(gè)景點(diǎn)，晚上回酒店休息，為了節(jié)約汽車油費(fèi)，爸爸事先對(duì)酒店及5個(gè)景點(diǎn)之間的道路及距離作了了解，如圖（單位：公里），也就是如果笑笑他們想到景點(diǎn)B游玩，可以選擇酒店->景點(diǎn)B，也可以選擇酒店->景點(diǎn)A->景點(diǎn)B，當(dāng)然還有其它的選擇。爸爸想知道5天游完所有景點(diǎn)心愛(ài)的汽車最少需要跑多少公里？問(wèn)：游完所有景點(diǎn)最少需要跑 公里？三、閱讀程序并寫(xiě)出運(yùn)行結(jié)果（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.輸出： 四、完善程序（根據(jù)問(wèn)題要求和已有程序，在程序空格處填入適當(dāng)?shù)恼Z(yǔ)句或符號(hào)，使程序完整。本題共15+15=30分）1【成績(jī)處理】（3+3+3+3+3=15分）笑笑最崇拜她的信息學(xué)Mr chen，這不，Mr chen正在教笑笑pascal語(yǔ)言中的記錄類型：有時(shí)候我們會(huì)遇到這種數(shù)據(jù)，它由性質(zhì)各不相同的成

13、分組成，例如： 學(xué)號(hào) 字符串類型 姓名 字符串類型 年齡 整型 性別 字符型 成績(jī) 實(shí)型 如果用5個(gè)變量來(lái)存儲(chǔ)，就失去了一個(gè)整體性，Pascal給我們提供了一種叫做記錄的結(jié)構(gòu)類型。在一個(gè)記錄中，可以包含不同類型的并且互相相關(guān)的一些數(shù)據(jù)。記錄的定義：（如上面的數(shù)據(jù)定義如下）type node=record             num:string;學(xué)號(hào)          &#

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

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

16、科的考試成績(jī),按總分找出前十名是哪些同學(xué)。規(guī)定：總分相同名次相同，且占用后面的名次，例如：第2名有兩個(gè)同學(xué)，那么將沒(méi)有第3名，后面的同學(xué)將從第4名算起。Input 第一行為n和m,下面n行為每個(gè)同學(xué)的成績(jī)描述： 每行有m+1個(gè)數(shù)，其中第一個(gè)數(shù)為學(xué)號(hào)（小于等于200），后面為各科成績(jī)，成績(jī)?yōu)?100之間的實(shí)數(shù)，中間用一個(gè)空格隔開(kāi)。 Output 一行，成績(jī)名次在前10的同學(xué)學(xué)號(hào)，不足10名全部輸出。當(dāng)?shù)?0名有多個(gè)同學(xué)時(shí)，輸出有可能超過(guò)10名同學(xué)的學(xué)號(hào)。同名次按學(xué)號(hào)由小到大輸出。輸出的各個(gè)學(xué)號(hào)之間用一個(gè)空格隔開(kāi)。 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; /學(xué)號(hào) s:cj; /考試科目成績(jī) 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分）笑笑今天很開(kāi)心，家里購(gòu)置的新房領(lǐng)到鑰匙了，新房里有一間笑笑自己專用的很寬敞的房間。更讓她高興的是，媽媽昨天對(duì)她說(shuō)：“你的房間需要購(gòu)買哪些物品，怎么布置，你說(shuō)了算，只要不超過(guò)m元錢(qián)就行”。笑笑懷里揣

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