第十二屆紹興市少兒信息學(xué)奧賽--初賽試題(PASCAL)(共10頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上第十二屆紹興市少兒信息學(xué)競(jìng)賽初 賽 試 題（小學(xué)組 PASCAL語(yǔ)言 二小時(shí)完成）全部試題答案都要求寫(xiě)在答卷紙上，寫(xiě)在試卷上一律無(wú)效一、選擇一個(gè)正確答案代碼（A/B/C/D），填入每題的括號(hào)內(nèi)（每題2分，每題只有一個(gè)正確答案，多選無(wú)分。共20分）1. 我們要養(yǎng)成正確的鍵盤(pán)輸入習(xí)慣，那么請(qǐng)問(wèn)按正確指法擊T鍵，應(yīng)使用（ ）A)右手食指B)右手中指C)左手食指D)左手中指2每個(gè)不同的二進(jìn)制數(shù)可以表示一種顏色，如果一幅圖像有256種顏色，最少需要幾位二進(jìn)制數(shù)來(lái)表示？ （ ）A)8B)16C)128D)2563以下運(yùn)算結(jié)果為False的是 （ ）A)not (5>5)B)

2、(5>=4) and (7<7)C)not (false)D)(5<4) or (5>=5)4在Free Pascal中運(yùn)行某一程序時(shí)，返回如下圖所示的錯(cuò)誤信息，這是由于( )A)找不到輸入文件B)源程序存在2號(hào)語(yǔ)法錯(cuò)誤C)輸入變量的值與變量的類(lèi)型不匹配D)Pascal編譯器沒(méi)有正確安裝5二維數(shù)組A的每個(gè)元素是由6個(gè)字符組成的串。其行下標(biāo)從0到8，其列下標(biāo)從0到9，若按行優(yōu)先存儲(chǔ)，元素A74的起始地址與當(dāng)A按列優(yōu)先存儲(chǔ)時(shí)（ ）的起始地址相同，設(shè)每個(gè)字符占一個(gè)字節(jié)。A)A28B)A39C)A57D)A086.ASCII碼表中的大寫(xiě)字母Z后有6個(gè)其他字符，接著便是小寫(xiě)字母。

3、現(xiàn)在已知：字母Y的ASCII碼為（）2，則字母a的ASCII碼用十六進(jìn)制表示是 （ ）A)61HB)62HC)63HD)64H7.下列軟件不能用于瀏覽網(wǎng)頁(yè)的是 ( )A)FirefoxB)Internet ExplorerC)AccessD)騰訊TT8.路人甲要拍攝一些學(xué)校風(fēng)景照片,并對(duì)拍攝的照片進(jìn)行處理,下列采集工具、加工軟件可實(shí)現(xiàn)這一功能的是（）A)數(shù)碼相機(jī)、photoshopB)掃描儀、goldwaveC)數(shù)碼攝像機(jī)、goldwaveD)手機(jī)、access9.某電影的評(píng)價(jià)如圖所示： 圖中的評(píng)價(jià)方式屬于（）A)個(gè)人推薦B)統(tǒng)計(jì)評(píng)價(jià)C)專(zhuān)家推薦D)核心刊物評(píng)價(jià)10.某用戶微博的相關(guān)統(tǒng)計(jì)如圖所

4、示：圖中的“圍觀”數(shù)主要體現(xiàn)了該用戶微博信息的（）A)安全性B)真?zhèn)涡訡)共享性D)載體依附性二、根據(jù)要求回答問(wèn)題：（5510分）1. 地球人都知道斐波那契數(shù)列的遞推關(guān)系式為：現(xiàn)在給你一列數(shù)2,3,6,8,8,4,2,，如果用f（n）表示這個(gè)數(shù)列的第n個(gè)數(shù)，請(qǐng)寫(xiě)出這個(gè)遞推式。2學(xué)校里共有12間宿舍，大宿舍住8人，中宿舍住7人，小宿舍住5人，現(xiàn)在每間宿舍都住滿了，共住了80個(gè)人，問(wèn)大、中、小宿舍各有多少間？三、閱讀程序并寫(xiě)出運(yùn)行結(jié)果（8888+840分）：1. program test1;var a,b,c,d,e,ans: integer; begin readln(a,b,c); d:=a+

5、b; e:=abs(b-c);ans:=trunc(d+e)/(c-a); writeln(ans); end輸入：1 2 5 輸出：_ 2. program test2;var n,m:longint;Begin Readln(n,m); n:=n mod 7; m:=m mod 5; If n>m then writeln(n) else writeln(m)End.輸入：2014 2015輸出:_3. program test3;var n,x,i,temp,j,count:longint;begin readln(n,x); for i:=1 to n do begin temp

6、:=i; while temp>0 do begin j:=temp mod 10; temp:=temp div 10; if j=x then inc(count); end;end;writeln(count);end.輸入：100 5輸出：_4program test4;var i,j,k,n:integer; a:array1.100 of boolean;begin read(n); for i:=1 to n do ai:=true; for i:=1 to n do begin j:=i; while j<=n do begin aj:=not(aj); j:=j+

7、i; end; end; for i:=1 to n do if ai=true then write('0',' ') else write('1',' ');end.輸入：8輸出:_5program test5;type arr=array1.8 of integer;var a:arr; i,n:integer;procedure select(var b:arr; var n:integer); var i,j:integer;begini:=0;for j:=1 to n do if bj mod 3=0 then be

8、gin i:=i+1; bi:=bj; end;n:=i;end;begin n:=8; for i:=1 to n do read(ai); readln; select(a,n); for i:=1 to n do write(ai:3); writeln;end.輸入：8 151 9 7 233 68 514 12輸出: _四、完善程序（根據(jù)問(wèn)題要求和已有程序，在程序空格處填入適當(dāng)?shù)恼Z(yǔ)句或符號(hào)，使程序完整。本題每空3分，共15+15=30分）1打印文件【問(wèn)題描述】路人甲畢業(yè)于某職業(yè)學(xué)校計(jì)算機(jī)專(zhuān)業(yè)，不過(guò)，想找一份好工作真難，在路人乙的推薦下，A公司聘請(qǐng)他擔(dān)任文印室打印員。每天8點(diǎn)前，A公司

9、的各個(gè)部門(mén)都會(huì)把需要打印的文件送過(guò)來(lái)。一天的工作就這樣開(kāi)始了，起先路人甲按照文件送來(lái)的先后順序打印，一段時(shí)間后，路人甲覺(jué)得這個(gè)工作非常無(wú)聊，于是決定改變打印的順序。首先他要求每個(gè)部門(mén)對(duì)送過(guò)來(lái)的文件都要標(biāo)上重要度急別p（1<=p<=9），接著他再給送過(guò)來(lái)的n個(gè)文件按先后順序從0開(kāi)始標(biāo)上號(hào)碼，然后，他按標(biāo)號(hào)從小到大處理打?。簩?duì)于當(dāng)前的第一個(gè)文件a，若后面存在一個(gè)未打印的文件b, b文件的重要度大于a文件，則將a轉(zhuǎn)移至最后，否則打印文件a。打印每個(gè)文件需1 分鐘，轉(zhuǎn)移文件可認(rèn)為是瞬間完成的。路人甲還充分發(fā)揮自己的專(zhuān)業(yè)特長(zhǎng)，編寫(xiě)了一個(gè)程序，只要第一行輸入文件數(shù)n和需要查詢的文件標(biāo)號(hào)x，第二

10、行依次輸入n個(gè)文件的重要度級(jí)別。就可輸出打印x號(hào)文件時(shí)的時(shí)間?！緲永斎搿?6 0 1 1 9 1 1 1 【樣例輸出】 5算法：循環(huán)隊(duì)列模擬。如果隊(duì)首元素的優(yōu)先級(jí)不是最高，把隊(duì)首元素放到最后，其它元素前移，否則，隊(duì)首元素出隊(duì)。program test6;const max=100+10;type printer=record flag:longint; priority:longint; end;var ans,i,k,j,n,m:longint; printers:array0.max of printer; b:boolean; temp:printer;begin readln(n,m

11、); for j:=0 to n-1 do with printersj do begin read(priority); if j=m then flag:=1 else ; end; ans:=0; while true do begin b:=false; for j:=1 to n-1 do if printersj.priority>printers0.priority then begin temp:=printers0; for k:=1 to n-1 do ; printersn-1:=temp; b:=true; end; if not b then begin inc

12、(ans); if printers0.flag=1 then begin ; break; end else begin for j:=1 to n-1 do printersj-1:=printersj; ; end; end; end;end.2獎(jiǎng)學(xué)金【問(wèn)題描述】某小學(xué)最近得到了一筆贊助，打算拿出其中一部分為學(xué)習(xí)成績(jī)優(yōu)秀的前5名學(xué)生發(fā)獎(jiǎng)學(xué)金。期末，每個(gè)學(xué)生都有3門(mén)課的成績(jī)：語(yǔ)文、數(shù)學(xué)、英語(yǔ)。先按總分從高到低排序，如果兩個(gè)同學(xué)總分相同，再按語(yǔ)文成績(jī)從高到低排序。任務(wù)：先根據(jù)輸入的3門(mén)課的成績(jī)計(jì)算總分，然后按上述規(guī)則排序，最后按排名順序輸出前5名學(xué)生的學(xué)號(hào)和總分。注意，在前5名同學(xué)中，每個(gè)人

13、的獎(jiǎng)學(xué)金都不相同，因此，你必須嚴(yán)格按上述規(guī)則排序。例如，在某個(gè)正確答案中，如果前兩行的輸出數(shù)據(jù)（每行輸出兩個(gè)數(shù)：學(xué)號(hào)、總分）是：7 2795 279這兩行數(shù)據(jù)的含義是：總分最高的兩個(gè)同學(xué)的學(xué)號(hào)依次是7號(hào)、5號(hào)。這兩名同學(xué)的總分都是279（總分等于輸入的語(yǔ)文、數(shù)學(xué)、英語(yǔ)三科成績(jī)之和），但學(xué)號(hào)為7的學(xué)生語(yǔ)文成績(jī)更高一些。如果你的前兩名的輸出數(shù)據(jù)是：5 2797 279則按輸出錯(cuò)誤處理，不能得分。【輸入】輸入包含n+1行：第1行為一個(gè)正整數(shù)n，表示該校參加評(píng)選的學(xué)生人數(shù)。第2到n+1行，每行有3個(gè)用空格隔開(kāi)的數(shù)字，每個(gè)數(shù)字都在0到100之間。第j行的3個(gè)數(shù)字依次表示學(xué)號(hào)為j-1的學(xué)生的語(yǔ)文、數(shù)學(xué)、英

14、語(yǔ)的成績(jī)。每個(gè)學(xué)生的學(xué)號(hào)按照輸入順序編號(hào)為1n（恰好是輸入數(shù)據(jù)的行號(hào)減1）。所給的數(shù)據(jù)保證總分相同的情況下，語(yǔ)文成績(jī)一定不同?！据敵觥枯敵龉灿?行，每行是兩個(gè)用空格隔開(kāi)的正整數(shù), 依次表示前5名學(xué)生的學(xué)號(hào)和總分?！緲永斎搿?80 89 8989 97 7890 67 8087 66 9181 89 8888 99 7767 89 6478 89 98【樣例輸出】8 2652 2646 2645 2581 258【限制】 100%的數(shù)據(jù)滿足：6<=n<=300program test7;typelei=record sum,num,yuwen,shuxue,yingyu:integer; end;varst:array1.500of lei;temp:lei;i,j,n:integer;beginreadln(n);for i:=1 to n do with do begin num:=i; readln(yuwen,shuxue,yingyu); ;