1、小學信息學奧林匹克競賽初賽模擬試題(一)（小學乙組初賽，兩小時完成）請將正確答案在答題卷上填寫，在本試題卷上答題無效一、 選擇題：（選出每題正確的一個答案代碼，填在橫線上，每題1分，共20分） 1. 常量1.7653的類型是（ B ）。A、 整型 B、實型 C、字符型 D、布爾型2. 當要存放一個最大可能是5000000的整數時，變量應該說明為哪種類型比較合適（ C ）？ A、integer B、real C、longint D、word3. 對于描述“A不大于B或A不大于C”，正確的布爾表達式是（ D ）。A、A>B or A>C B、not (A>B) and (A>

2、;C)C、not (A>B) and not (A>C) D、not (A>B) or (A>C)4. 關于表達式5+trunk(11*random)的值，正確的說法是（B ）。A、最小的值是5，最大的值是15 B、最小的值是5，最大的值是59C、最小的值是5，最大的值是16 D、最小的值是6，最大的值是615. 下面哪一個不是Pascal語言的標準函數（ D ）？A、str B、val C、 abs D、 mod6. (15 div 2>5) or false中運算符div，or和>，下列哪組運算次序是正確的（D ）。A、 C、7. 下面變量中，不合法的變

3、量名是（ C ）。A、max B、abs5 C、case D、 P_1218. 對于如下說明的數組，將能說明同時存放多少個數？（ C ）。說明：type mmj=array5.20 of real;Wr:mmj;選項：A、 20 B、15 C、16 D、609. 運行下面的程序時會顯示出錯信息，出錯的原因是（ A ）。Var a:array1.5 of integer;M:1.10;BeginFor m:=1 to 7 do am:=m+1;Write(m);End.A、循環過程中m值超過了數組a的下標范圍B、說明變量m時，其數據范圍超過了數組a的下標范圍C、循環變量參與了運算D、intege

4、r的范圍大大超出了15的范圍10. 下列邏輯表達式中其值為true的是（ A ）。A、THAT>THE B、A>BC、QBASIC<PASCAL D、9>=H11. 下面程序段運行時循環體執行的總次數是（B ）。t1:=M;t2:=Q;for cx:=t1 to t2 do s:=s+ord(cx);A、6 B、5 C.3 D、412. 將一組數1，3，5，7，9依次放入數組S的1，2，3，4，5號元素中，則SS2+1的值是（ C ）。 A、3 B、5 C、7 D、9 13. 下列哪個程序段執行后，變量v的值為6 ( B )。14. 要判斷一個實型變量d中存放的是否為整

5、數，下列哪一個表達式是正確的（ A ）？A、trunc(d)=round(d) B、d mod 10=0C、round(d)=d D、d>=32768 and d<3276815. 下面排序的程序段，最壞的情況下要交換多少次數據( C )？For m:=1 to 5 doFor n:=M+1 to 6 doIf gtm>gtn then begin w:=gtm;gtm:=gtn;gtn:=w; End;A、5 B、15 C、20 D、2516. 執行下面程序段后，x，y，z的值分別是(D )。Readln(x,y);readln(z);運行時輸入：10 20 30 40 5

6、060 70 80A、 10 20 30 B、20 30 40 C、10 20 60 D、10 20 70 17. 已知數組連續存放9個數，要找出其中一個數的平均比較次數是（ A ）。A、4.5 B、10 C、5 D、918. 以下4段程序段中，哪一段執行最快？ ( B )A、pos B、copy C、length D、char20. 對于以下條件語句，其配對關系正確的是（ A ）。If x>0 then if y>0 then s:=x*y else if y<0 then s:=x-y;A、 B、 C、 D、二、基礎填空題：（將正確的答案填在括號內，每小題4分，共16分）

7、1骰子是一個正六面體，用16這六個數字分別代表六個面，擲一次骰子出現的數可用表達式表示為（ ）。2每個實型數要用2個字節的空間來儲存，對于如下的數組說明： Var mj,tj:arraya.d,5.15 of real;計算機要在內存中留出多少個字節的存儲空間給這兩個數組使用？（30個）。 3已知一串明文與對應的密文如下：明文：home 密文：fmkc若采用與上述相同的加密算法，則明文pen的密文是（ ncl ）。4如圖所示，某路段為一車道（不能從旁超車）單行線并且禁止貨車通行，另一端因道路施工也禁止直行，只允許小車從左側小路繞道行駛。現有大小共5輛汽車駛進了該路段，請你為交警叔叔設計一個方案

8、，疏通該路段的交通。我的疏通方案是：（1）往左側小路行駛的汽車是（按行駛順序填寫）：（ C1,C3 ）。 （2）要倒車的汽車是（按行駛順序填寫）：（ C2,C4,C5）。三、寫運行結果（閱讀下列程序或程序段，寫出正確的運行結果。 每小題5分，共30分）四、完善程序（5小題共12空。每空2分，共24分）1任意輸入一個字符串（長度大于2小于10），打印出由它的字符所組成的圖案（不考慮是否有重復字符，但要判斷輸入字符串的有效性）。程序清單Program test1_41;Var b,ln:integer; a:string; Sc:array1.100 of real; Begin repeatre

9、adln(a); until (ln>2) and (ln<10);for b:=1 to ln do writeln(ab,ab,ab,ab); End.程序清單Program test1_42;Var s1,p:byte; dj,zje:real;Begin ; For p:=1 to 5 do BeginRead(s1,dj);zje:= End;Writeln(zje);End.3有一個數列，第一個數為1，第二個數為2，其后每一個數均是前兩個數之和，請以每行10個數的格式從小到大打印此數列，打印的最大數不超過2000。程序清單Program test1_43;Var x,y

10、,z,n:integer;BeginX:=1;y:=2;n:=2;write(x:6,y:6);z:=x+y;while doBeginIf n mod 10=0 then writeln;Write(z:6);n:=n+1;X:=y;y:=z; end;End.4求出滿足下列條件的所有兩位數：將兩位數的個位數字與十位數字進行交換，可以得到一個新的數，要求新數與原數之和小于100。程序清單Program test1_44;Var I,x,y:integer;xs:integer; ys:set of 10.200;BeginYs:=11.99;For i:=10 to dobeginx:=I

11、div 10; xs:=y*10+x;if in ys then write(i:4);end;Writeln;End.5用計算機模擬學習選舉。全班50位同學要從10位候選人（編號分別110）中投票選出程序清單Program test1_45;Var k,j,ph,tem:integer;Ps,bh:array1.10 of integer;Beginrandomize;For k:=1 to 10 do begin psk:=0; end;For k:=1 to 50 doBeginph:=1+round(9*random);psph:= ;End;For k:=1 to 9 doFor j:=k+