寧波市第25屆中小學生程序設計競賽小學組初賽試題一、選擇題（每題2分,共30分。每小題只有唯一一個正確答案）1、在寧波市中小學生程序設計比賽復賽（上機編程）時，以下不能使用的編程語言是：（A）Turbo Pascal （B）Free Pascal （C）C （D）C+2、在Free Pascal中按功能鍵F7或F4時，以下敘述正確的是：（A）F4逐條語句執行（包括子程序），F7運行至光標位置（B）F7逐條語句執行（包括子程序），F4運行至光標位置（C）F4逐條語句執行（不包括子程序），F7運行至光標位置（D）F7逐條語句執行（不包括子程序），F4運行至光標位置3、使用高級語言編寫的程序稱之為：（A）源程序 （B）編輯程序 （C）編譯程序 （D）鏈接程序4、如果自己的程序進入了死循環，應當按什么鍵終止？（A）Ctrl+C （B）Ctrl+D （C）Alt+C （D）Alt+D5、參加寧波市中小學生程序設計比賽復賽（上機編程）時，以下哪種行為是允許的？（A）訪問互聯網或局域網 （B）使用U盤或光盤 （C）使用自帶的草稿紙 （D）考試時發現機器有問題，舉手示意監考人員處理6、參加寧波市中小學生程序設計比賽復賽（上機編程）時，你有一個程序被判0分。你發現程序其實是正確的，但存在以下問題，提出申訴，以下哪個申訴會被接受？（A）源程序文件名和存放源程序的目錄名錯誤（B）只是存放源程序的目錄名錯誤，源程序文件名是正確的（C）存放源程序的目錄名正確，源程序文件名是錯誤的（D）根據比賽規則，以上申斥都不會被接受7、在Free Pascal語言，以下關于各種數據類型占內存空間大小的描述錯誤的是：（A）每個intege型占2個字節 （B）每個longint型占4個字節（C）每個boolean型占2個字節 （D）每個extended型占10個字節8、關鍵碼相同的二個元素，原來在排在前面的還能保證排在前面,這種排序算法我們稱它是穩定的。冒泡排序、選擇排序、插入排序中,一般意義上是穩定的有幾種：（A）1 （B）2 （C）3 （D）09、在Free Pascal中編輯當前源程序時，可以使用快捷鍵Ctrl+F7增加調試程序時監視的變量，但如果不小心錯按為Ctrl+F6時，會將當前源程序窗口隱藏起來。此時，可以使用菜單命令“Windows/List”調出Windows List對話框，在該對話框中選中隱藏的當前正在編輯的源程序，然后按下面哪個命令按鈕可以顯示當前正在編輯的源程序？（A）Ok （B）Not Hide （C）Show （D）Delete10、結構化程序設計的三種基本控制結構為順序結構、選擇結構和循環結構，以下說法正確的是：（A）三種結構都是基本結構，內部不能再有其它結構（B）三種結構都是基本結構，內部除了允許嵌套同一種結構外，不能再有其它結構（C）選擇結構和循環結構內部可以嵌套有其它結構，順序結構不可以嵌套其它結構（D）三種結構內部都可以嵌套其它結構11、以下屬于計算機的基本指令的是：（A）數值和邏輯運算指令 （B）存儲和輸入輸出指令（C）控制和轉移指令 （D）以上都是12、以下屬于漢字輸出時使用的編碼的是：（A）國標碼 （B）區位碼 （C）字形碼 （D）五筆字形13、以下存儲介質中，一般說來存取速度最快的是：（A）硬盤 （B）內存 （C）U盤 （D）光盤14、以下主要用來網頁制作的是：（A）BASIC （B）Pascal （C）FrontPage （D）HTML15、標準ASCII碼最多能表示的字符個數是：（A）128 （B）64 （C）256 （D）8二問題求解（每題5分，共10分）1、一副撲克牌除去大小王外，有52張牌。其中有黑桃（Spade）、紅心（Heart）、方塊(Diamond)、梅花(Club)四種花色，每種花色點數從小到大各有13張，它們是：2、3、4、5、6、7、8、9、10、J、Q、K。 在上述52張中任取5張，取得炸彈（four of a kind,即四張點數相同的牌加一張另外點數的牌）的取法數有13*48=624種；取得輔魯(full house,即三張點數相同另加二張點數相同牌)的取法數有多少種？請注意，二種取法中，只要有一張牌花色不同或點數不同，這二種取法就是不同的。2、有若干堆硬幣，甲乙二人參加游戲，游戲規則如下： （1）由甲開始，二人輪流取硬幣，每次取時只能從某一堆中取若干個硬幣，可以把該堆硬幣全部取完，最少可以只取一個硬幣，但不能不取硬幣。 （2）最后取完最后一個硬幣的人為勝者。 比如一開始有二堆硬幣，第一堆1枚，第二堆2枚，有幾種取法：（1）甲取第一堆1枚，乙取第二堆1枚，甲取第二堆1枚，甲獲勝！（2）甲取第一堆1枚，乙取第二堆2枚，乙獲勝！（3）甲取第二堆1枚，乙取第一堆1枚，甲取第二堆1枚，甲獲勝！（4）甲取第二堆1枚，乙取第二堆1枚，甲取第一堆1枚，甲獲勝?。?）甲取第二堆2枚，乙取第一堆1枚，乙獲勝！顯然，當甲先取第二堆1枚時，甲能獲勝！當甲采取其它取法時，當乙取對時，甲會失敗的。但如果一開始二堆硬幣數都為2枚，則甲無論在哪一堆中取多少個，乙可以在另外一堆中取同樣多個，乙獲勝，甲失敗?，F在有三堆硬幣，第1堆有2枚硬幣，第2堆有4枚硬幣，第3堆有5枚硬幣。問甲先取，在大家都使用最佳方法的情況下，甲能否獲勝？如果甲能獲勝，請寫出第一次在第幾堆取多少枚硬幣才能獲勝？如果不能獲勝，則只要寫上“No”。三閱讀程序，求程序運行輸出結果(每題8分，共32分)第1題：program xx2010_1;var i,j,s:longint;prime:boolean;begin for i:=2 to 20 do begin prime:=true; for j:=2 to i-1 do if i mod j=0 then begin prime:=false; break; end; if prime then s:=s+1;【輸出】：_ end; writeln(s);end.第2題： Program xx2010_2;var a,b,c,d,n,i,j:longint;find:boolean; f:array0.9of longint;begin f0:=2;f1:=3;f2:=5;f3:=7;f4:=11; f5:=13;f6:=17;f7:=19;f8:=23;f9:=29; readln(a,b,c,d); n:=10; a:=(fa*fb-fc*fd) mod n+n) mod n; b:=(fb* fc-fd* fa) mod n+n) mod n; c:=(fc* fd-fa* fb) mod n+n) mod n; d:=(fd* fa-fb* fc) mod n+n) mod n; writeln(a, ,b, ,c, ,d);end.【輸出】：_【輸入】：2 3 5 7第3題：Program xx2010_3;var a:array1.30of longint; s,n,i,x,y,z:longint;c:char;begin readln(x,y); readln(z); n:=0;while z0 do begin n:=n+1;an:=z mod 10;z:=z div 10;end;s:=0;for i:=n downto 1 do s:=s*x+ai;writeln(s); n:=0; while s0 do begin n:=n+1;an:=s mod y;s:=s div y; end; for i:=n downto 1 do write(ai); writeln;end.【輸出】：_【輸入】：7 2126第4題：Program xx2010_4;var f:array1.46of longint; a:array1.100of longint; x,y,z,i,j,n,count:longint;function find(i,h,x:longint):longint;var m:longint;begin if i3 then find:=0 else begin m:=h+fi-1-1; count:=count+1; if x=am then find:=m else if xam then find:=find(i-1,h,x) else find:=find(i-2,m+1,x); end;end;begin f1:=1;f2:=1; for i:=3 to 46 do fi:=fi-1+fi-2; readln(n,x,y); for i:=1 to n do ai:=3*i-1; i:=1; while fi-1n do inc(i); for j:=n+1 to fi-1 do aj:=maxlongint; count:=0;j:=find(i,1,x); writeln(j, ,count); count:=0;j:=find(i,1,y); writeln(j, ,count);end.【輸出】：_【輸入】：8 14 7四程序填空(第1題每空2分，第2題每空3分，共28分)1、人數統計有二幢高樓，已知：（1）第一幢高樓的各層上男性人數與第二幢高樓的同一層上的男性人數的差；（2）第一幢高樓的各層上女性人數與第二幢高樓的同一層上的女性人數的差；求第一幢高樓的各層上總人數與第二幢高樓的同一層上的總人數的差；輸入：第1行二個整數n1和n2。第2行至第n1+1行，每行二個整數a1和b1。表示第b1層男性人數的差額為a1。第n1+2行至第n1+n2+1行，每行二個整數a2和b2。表示第b2層女性人數的差額為a2。輸出：每行二個整數a和b，表示第b層總人數的差額為a。請注意： （1）輸入時，如果某一層上二幢樓均沒有男性（或女性），則不輸入該層的差額情況 （2）輸出時，如果某一層上二幢樓均沒有人，則不輸出該層的差額情況 （3）輸入和輸出時，均按照層數遞增的次序。請將程序補充完整?！緲永斎搿? 21 15 26 7-5 23 4【樣例說明】輸入：男性第1層差1,第2層差5,第7層差6 女性第2層差-5，第4層差3輸出：總人數第1層差1,第2層差, 第4層差3,第7層差6 【樣例輸出】1 10 23 46 7Program xx2010_5; var a1,a2,b1,b2,a,b:array1.100of longint; n1,n2,n,i,j:longint;begin readln(n1,n2); for i:=1 to n1 do read(a1i,b1i); for i:=1 to n2 do read(a2i,b2i); i:=1;j:=1; ; while do begin if b1i=b2j then begin an:= ;bn:= ; i:=i+1;j:=j+1;n:=n+1; end else if b1ib2j then begin an:=a1i;bn:=b1i; i:=i+1;n:=n+1; end else begin an:=a2j;bn:=b2j; j:=j+1; n:=n+1; end; end; while i=n1 do begin an:=a1i;bn:=b1i; i:=i+1;n:=n+1; end; while j=0)and(si=9) then /第i個字符是數字 x:=x*10+ord(si)-ord(0) /得到連續數字表示的整數值，存儲在變量x中 else begin if x0 then begin /前面已經得到正整數值，當前數字x進入數字棧 tn:=tn+1;numtn:=x; x:=0;end; if si=( then begin /第i個字符為左括號,入符號棧 tc:=tc+1;codetc:=si;endelse if si=) then begin /第i個字符為右括號 while do begin tn:=tn-1; numtn:= ; tc:=tc-1; end; ; end else begin /第i個字符為+,-,* while prio(codetc,si) do begin tn:=tn-1; numtn:= ; tc:=tc-1; end; tc:=tc+1; ; end; end; end; writeln( );end.寧波市第25屆中小學計算機程序設計競賽小 學 組 初 賽 答 案一、單項選擇題（每題1.5分，共計30分）12345678910ABAADDCBA或CD1112131415DCBCA二、問題求解（共2題，每題5分，共10分）1、13*6*12*4=3744 2、第1堆取1枚 三、閱讀程序，求程序運行輸出結果（共4題，每題8分，共32分）1、