以太坊TOT

1. 第三屆紹興市少兒信息學競賽試題及答案

一．選擇一個正確答案代碼（A/B/C/D），填入每題的括弧內（每題2分，每題只有一個正確答案，多選或錯選都無分。共30分）
1）我們一般會根據計算機主要的元器件組成來劃分它所屬的階段，那麼1946年製造的ENIAC屬於（ ）計算機。
A) 第二代 B) 第三代 C) 第四代 D) 第一代
2）下列計算機設備中，是存儲設備的是（ ）
A) 鍵盤 B) RAM C) 顯示器 D) CPU
3）我們一般把能播放VCD、CD光碟來看電影、聽音樂的電腦稱為「多媒體電腦」，下列硬體設備中，是多媒體電腦必須具備的是（ ）。
A) CD-ROM光碟機 B) 網卡 C) 掃描儀 D) 列印機
4）計算機有計算功能，那麼這個「計算」是在下列哪個硬體設備中完成的（ ）？
A) CPU B) ROM C) 內存 D) 顯示卡
5）下面是計算機操作系統的是（ ）
A) Pascal B) Photoshop C) Word D) LINUX
6）十進制數11對應的二進制數是（ ）
A) 1011 B) 1100 C) 0011 D) 1010
7）pascal程序設計中，用integer類型來保存整數，下列整數中能用integer類型變數正確保存的是（ ）
A) 32650 B) 40000 C) 60000 D) 50000
8）通過網際網路，我們可以利用（ ）和遠方的朋友實時聊天。
A) E-MAIL B) 騰訊QQ C) BBS D) FTP
9）我們可以按照網路覆蓋的區域大小來對網路分類，下列網路類別不是按照網路覆蓋區域大小分類的是（ ）
A) 廣域網 B) 城域網 C) 乙太網 D) 區域網
10）下列關於計算機病毒的描述中，正確的是（ ）
A) 如果一個人有感冒病毒，那麼他使用的計算機就有可能感染這個人身上的病毒，並最終發展為計算機病毒
B)如果一台計算機在生產廠家組裝時周圍環境不好（有灰塵等），這台計算機就會有計算機病毒
C) 計算機病毒實質上是一段計算機程序
D) 計算機病毒只能通過計算機網路傳播
11）在PASCAL程序設計中，表達式「32 DIV 5」的計算結果是（ ）
A) 2 B) 7 C) 6.4 D) 6
12）在pascal程序設計中，我們可以利用（ ）語句來中途退出循環。
A) repeat B) end C) break D) continue
13）pascal源程序可以通過編譯生成能直接在操作系統下執行的可執行程序，這些可執行程序的擴展名是（ ）。
A) .doc B) .exe C) .txt D) .pas
14）下列關於二叉樹的描述中，正確的是（ ）
A) 某個結點可以沒有子結點、或有1個子結點、或有2個子結點。
B) 根結點可以有3個子結點 C) 根結點可以有4個子結點
D) 任何結點最多都可以有4個子結點
15）已知一個隊列中有若干個數（如下圖所示），則最後出隊的元素是（ ）

A) 12 B) 5 C) 9 D) 32

二．問題求解：（5＋5＝10分）
1．二叉樹的每個結點最多隻有二個子結點，而且子結點有左右之分（次序不能顛倒）。現在有三個結點a,b,c來構成一棵二叉樹，現在規定根結點必須是a並且b是a的左兒子。問：滿足上述條件的二叉樹一共有多少種不同的形態？（只需寫出數量）
2．新田忌賽馬。田忌有3匹馬（奔跑速度分別是40、60、90），齊王有3匹馬（速度分別是50、70、100），田忌的馬和齊王的馬逐對進行比賽，由於每次出場順序由田忌確定，所以田忌通過巧妙的策略贏得了最終的勝利（比齊王多贏一場），具體對陣形式如下（按田忌馬速度從小到大排列，對陣形式中左邊為田忌馬的速度，右邊為齊王馬的速度）：
40－100 60－50 90－70
現在田忌有8匹馬（速度分別為10、20、30、40、50、60、70、80），齊王也有8匹馬（速度分別為35、48、56、65、77、98、105、112），出場順序仍由田忌來確定，問：田忌是否能找到一種出場順序（回答「能」或者「不能」），使得田忌最終能贏得比賽（田忌贏的場次多於齊王）？如果回答「能」，請寫出田忌勝的場次中，兩匹馬對陣的形式（格式仿照前面的例子書寫，按照田忌馬匹的速度從小到大書寫）。

三．閱讀程序並寫出運行結果（7＋7＋8＋8＝30分。）：
1．program test01;
var
x,y,s,p:integer;
begin
readln(x,y);
s:=x+y;p:=x-y;
if x<y then p:=y-x;
s:=s-p;
writeln(s);
end.
輸入：
13 31
輸出：

2．program test02;
var
i,j,k,t:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do a[i]:=0;
for i:=1 to 4 do a[i]:=i;
t:=a[7];
for i:=7 downto 2 do a[i]:=a[i-1];
a[1]:=t;
for i:=1 to 7 do write(a[i]);
end.
輸出：
3.program test03;
var
n,c,i,j,t,temp:integer;
a:array[1..50] of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
c:=a[i];t:=i;
for j:=i+1 to n do if c<a[j] then begin t:=j;c:=a[j];end;
if t<>i then begin temp:=a[i];a[i]:=a[t];a[t]:=temp;end;
end;
for i:=1 to n do write(a[i],' ');
end.
輸入：
18
90 12 33 44 77 29 8 3 4 6 2 1 21 24 23 54 53 25
輸出：
4．program test04;
var
i,j,s,h,v,n:integer;
a:array[1..20,1..20] of integer;
begin
readln(n,h,v);
for i:=1 to n do
begin
for j:=1 to n do read(a[i,j]);readln;
end;
s:=0;
for i:=1 to n do
if i=h then for j:=1 to n do s:=s+a[i,j];
for j:=1 to n do
if j=v then for i:=1 to n do s:=s+a[i,j];
if h<=v then
for i:=1 to n-(v-h) do s:=s+a[i,i+v-h]
else for j:=1 to n-(h-v) do s:=s+a[j+h-v,j];
for i:=1 to 2 do s:=s-a[h,v];
writeln(s);
end.
輸入：
8 5 3
2 16 18 5 13 13 14 0
3 15 19 14 12 16 5 11
9 1 5 6 1 14 7 5
1 2 6 5 2 12 4 8
3 13 10 1 10 1 12 18
1 5 0 1 4 6 18 0
19 15 7 4 0 2 12 13
8 15 17 0 2 11 16 16
輸出：

四．完善程序（根據問題要求和已有程序，在空格處填入適當的語句或符號，使程序完整。本題共30分。）
1．【旅遊食品】（3＋3＋3＋3＝12分）
元旦到了，紅旗小學要組織小學生外出旅遊。炳炳媽給了炳炳s元錢，為了保證營養，她要求炳炳在n種食品（牛奶、蘋果、礦泉水、蜜餞、雞蛋、麵包等）中必須每樣買一份來充當中餐和點心（如果n種食品的價格分別用a[1]、a[2]、……a[n]保存，則肯定有s>a[1]+a[2]+a[3]+……+a[n]），剩餘的錢由炳炳自由花費。
炳炳是一位很熱心的學生，他想用剩餘的錢全部用來購買這些食品中價格最便宜的那種，然後他打算把這些食品分給其他同學吃。
比如，現在媽媽給炳炳20元錢，媽媽要炳炳在礦泉水、蜜餞、牛奶、雞蛋、蘋果、麵包（價格分別為1、1、3、2、1、4元）每樣都必須購買一份，這樣炳炳剩餘的錢就是20－12＝8元，炳炳就會把這剩餘的8元全部用來購買礦泉水、蘋果或者蜜餞（每樣價格都是最低的1元），共可購買8份最便宜的食品，這樣，加上炳炳原來購買的打算自己當作中餐和點心的6份食品，他就擁有了共14份食品。
下列程序中首先輸入炳炳充當中餐和點心的食品數量和媽媽給炳炳的總款（用n和s表示，s必定小於100），然後會輸入每種食品的價格，最後會輸出炳炳手中擁有的所有食品的總的份數。對於前面的例子，輸入和輸出的樣例如下：
【樣例輸入】
6 20
1 1 3 2 1 4
【樣例輸出】
14
請完善下列程序：
program test05;
var
n,i,j,tot,min,s:integer;
a:array[1..50] of integer;
begin
readln(n,s);
for i:=1 to n do begin read(a[i]);s:=s- ① ;end;
min:=32720;
for i:=1 to n do if min>a[i] then min:= ② ;
tot:=n;
while min<=s do
begin
tot:= ③ ;s:=s-min;
end;
writeln( ④ );
end.
2．【跳棋數】（3＋3＋3＋3＋3＋3＝18分）
跳棋是大家都熟悉的棋類活動，就是一顆棋子可以通過相鄰的另一顆棋子筆直地跳到另一顆棋子相鄰的空位上去。在一串很長的由數字組成的字元串中，如果某個位數為k的數值和間隔k個位置後面的位數為k的數值相等，就稱為跳棋數。
比如對於字元串131313，如果規定k為1，則三個1構成了跳棋數，從第一個1開始開始跳，最多可以跳2步；從第二個位數為k的數值3開始，也構成了跳棋數，最多也可以跳2步。又如，1223122312341223，如果規定k為2，則從字元串的第一個k位數值「12」開始，組成的跳棋數的最多可以跳的步數是3（每步到達的目的地如上面下劃線「__」所示），而第二個k位數值「23」開始的跳棋數最多可以跳的步數是1（每步到達的目的地如上面下劃線「 」所示）。也就是說，如果規定了k，則作為「棋子」的數值就是k位，而每次「跳棋」時必須跳過右面相鄰的k個位置。
下列程序先從鍵盤輸入k的值，然後會輸入一個由數字組成的字元串（只包含0、1、…、9這些數字），而且規定，這個字元串的長度肯定是2*k的倍數。通過處理，程序最後能輸出二個整數，分別表示字元串中第一個位數為k的數值開始的跳棋數最多能跳的步數和第二個位數為k的數值開始的跳棋數最多能跳的步數。請完善程序。
【知識鏈接】
1.t:string定義了一個字元串類型變數，s可以存儲一串字元，每個字元分別存入對應的下表變數s[1]、s[2]、……中，最多可以保存255個字元。
2. t1:=(s,i,k)中( )是一個系統函數，作用是把保存在字元串變數s中的字元串從第i個位置開始復制k個，然後返回復制所得的字元串（本語句中是賦值給變數t1。
3.val(t1,a[i1],e)中val( )是一個系統過程，它能把保存在t1中的由數字組成的字元串轉換成對應的數值（產生的數值可以進行四則運算），然後把數值保存到下標變數a[i1]中。比如，如果t1的值是字元串「2」，則調用val( )後a[i1]的值就是數值2。
4.length(s)是一個系統函數，作用是計算並返回保存在字元串變數s中的字元串的長度（字元個數）。
【樣例輸入】
3
123234123234123235123234
【樣例輸出】
3 1
program test06;
const maxn=200;
var
x1,x2,i,j,k,n:integer;
a:array[1..100] of integer;
b:array[1..100] of integer;
s:string;
procere check(k:integer);
var
i,j,i1,j1,e:integer;
t1,t2:string;
begin
i:=1;i1:= ① ;j1:=0;x1:= ② ;x2:=0;
while i+2*k-1<=n do
begin
t1:=(s,i,k);i1:=i1+1;val(t1,a[i1],e);i:=i+k;
t2:=(s,i,k);j1:=j1+1;val(t2,b[j1],e);i:=i+k;
end;
i:=1;
while ( ③ ) and (i<i1) do
begin x1:= ④ ;i:=i+1;end;
j:=1;
while ( ⑤ ) and (j<j1) do
begin x2:= ⑥ ;j:=j+1;end;
end;
begin {main}
readln(k);
readln(s);n:=length(s);
check(k);
writeln(x1,' ',x2);
end.