信息學競賽普及組初賽模擬試題(三)一、選擇一個正確答案代碼（A/B/C/D），填入每題的括號內（每題1.5分，多選無分，共30分）

1、MAN英文縮寫的含義是（

）

A.局域網

B.城域網

C.廣域網

D.增值網

2、小張用十六進制，八進制和十進制寫了如下一個等式：64－13=33

式中三個數是各不相同進位制的數，試問64，13，33，分別為________。

A．八進制，十進制，十六進制

B．十進制，十六進制，八進制

C．八進制，十六進制，十進制

D．十進制，八進制，十六進制

3、表達式(4

MOD

(－3))與(－4

MOD

3)的值為：_______。

A．－1，－1

B．1，－1

C．－1，1

D．1，1

4、試指出：下列if語句中，當x=80時,

運行的結果為______。

begin

y:=0;

readln(x);

if

x<0

then

y:=5

else

if

x<10

then

begin

y:=10;

if

x<100

then

y:=100;

end

else

y:=200;

write('y=',y);

end.

A．y=9

B．y=200

C．y=10

D．y=100

5、設棧S的初始狀態為空，現有5個元素組成的序列{1，2，3，4，5}，對該序列在S棧上依次進行如下操作(從序列中的1開始，出棧后不再進棧)：進棧，進棧，進棧，出棧，進棧，出棧，進棧，試問出棧的元素序列是________。

A．{5，4，3，2，1}

B．{2，1}

C．{2，3}

D．{3，4}

6、ASCII碼是（

）。

A．國標碼

B．二進制編碼

C．十進制編碼

D．美國標準信息交換碼

7、一臺計算機的字長是4個字節，這意味著（

）。

A．能處理的數值最大為4位十進制數9999

B．能處理的字符串最多由4個英文字母組成

C．在CPU中能夠同時處理32位二進制數據

D．在CPU中運算的最大結果為2的32次方

8、假設一臺計算機的地址總線為16，那么中央處理器CPU能訪問的最大存儲器容量為(

A．

2

*

16

KBB．16KB

C．216B

D．16*1024*8

B

9、計算機最終處理的信息形式是（

）

A．ASCII碼

B．BCD碼

C．二進制

D．十六進制

10、與十六進制數6F等值的八進制數是（

）

A．166

B．139

C．157

D．183

11、以下屬非法用戶自定義標識符的是()。

A．date

B．dir

C．list

D．type

12、設X和Y是同一種枚舉類型變量，則下列語句中合法的是()。

A．X:=ORD(Y)B．X:=Y

C．READ(X,Y)D．WRITE(T,Y)

13、計算機能夠直接識別和處理的程序是_______程序

A．匯編語言

B．源程序

C.機器語言

D.高級語言

14、設有說明

VAR

A：ARRAY['A'．．'E'，1．．4，BOOLEAN]

OF

REA1；

則A['A'，3]是(

。

A．一個實型的數組元素

B．一個數組，該數組具有兩個實型數組元素

C．一個數組，該數組具有4*2個實型數組元素

D．一個數組，該數組具有5*4*2個實型數組元素

15、下列屬于線性時間的排序算法是：

（

）

A.

快速排序B.

桶排序C.

冒泡排序

16、一棵包含n個節點的樹有幾條邊：

A.

nB.

n-1C.

不一定

17、在Pascal語言中，表達式35

div

3

mod

4

的值是

________。

A．０B．２C．３D．６

18、在數據結構中，"樹"結構下層結點出現三個以上的結點，這種結構稱為________。

A．三層樹

B．三叉樹

C．多層樹

D．多叉樹

19、在Pascal語言中，下列程序段所計算的公式是________。

程序段：

S：=0

；T：=1；

For

I：=1

to

10

do

Begin

T：=T*I；

S：=S+T；

end;

A.S=1+2+3+4+……+10

B.S=1*2*3*4*……*10

C.S=1！+2！+3！+4！+……+10！

D.S=1+2*3+3*4+4*5+……+10*11

20、以下說法正確的是（

）。

A．

CPU與內存不交換信息

B．

CPU與內存直接交換信息

C．

CPU與內存間接不交換信息

D．

CPU與內存部分交換信息

二、閱讀下列程序，寫出程序運行結果（第1題5分，第2，3，4題各6分，共23分）

program

exp1;

const

n=5;

var

I,j,k:integer;

r:array[0..10]

of

integer;

begin

for

I:=1

to

n

do

read(r[I]);

for

I:=2

to

n

do

begin

k:=r[I];j:=I-1;

while

(k>r[j])

and

(j>0)

do

begin

r[j+1]:=r[j];j:=j-1;end;

r[j+1]:=k;

end;

for

I:=1

to

n

do

write(r[I],’’);

writeln

end.

鍵盤輸入:

8

4

9

3

5

屏幕輸出：

program

exp2;

var

a,b,f:integer;

function

gd(m,n:integer):integer;

begin

if

n=0

then

gd:=m

else

gd:=gd(n,m

mod

n);

end;

begin

readln(a,b);

write(‘(‘,a,’,’,b,’)=’);

f:=gd(a,b);

writeln(f)

end.

鍵盤輸入:

172

16

屏幕輸出：

3、Program

exp3(input,output);

VAR

I,J,S:INTEGER;

B

:ARRAY[0..5]

OF

INTEGER;

BEGIN

S:=1;

FOR

I:=1

TO

5

DO

B[I]:=I;

J:=1;

WHILE

J>0

DO

BEGIN

J:=5;

WHILE

(J>0)

AND

(B[J]=10+J-5)

DO

J:=J-1;

IF

J>0

THEN

BEGIN

S:=S+1;

B[J]:=B[J]+1;

FOR

i:=J+1

TO

5

DO

B[i]:=B[J]+i-J

END;

END;

WRITELN('S=',S);

END.

4、program

exp4(input,output);

var

m,n,g:integer;

function

gcd(m,n:integer):integer;

begin

if

n=0

then

gcd:=m

else

gcd:=gcd(n,m

mod

n)

end;

begin

read(m,n);

g:=gcd(m,n);

writeln('m=',m,'n=',n,'gcd=',g)

end.

輸入：48

9

輸出：

三、問題解答（第1題每空4分，第2題8分）

1、數據結構中，下面是一個樹結構圖，這個樹的"先序遍歷"結果是________，中序遍歷結果是：________________。

24

8

+3

*4

10

7

-*/@

2、給出一個后綴算術表達式為

寫出對應的中綴算術表達式：___________________________________________

四、完善程序（第一題每空3分，第二題每空2分，第三題每空4分，共32分

）

1、連續整數平臺問題

已知一個含有多個整數的數組，其中相同的元素集中在一起形成一個平臺。以下程序用于對輸入的數組求出其中最大平臺長度。例如，中元素個數為20，它們依次為

2

2

2

2

3

3

3

3

3

1

1

1

1

1

1

1

1

1

4

4

則它的最大平臺長度為9。

const

maxlength=100;

var

a:array[1..maxlength]

of

integer;

i,maxi,n,s,t:integer;

begin

write('n=');readln(n);

for

i:=1

to

n

do

read(a[i]);

readln;

maxi:=0;

t:=

[1]

s:=1;

for

i:=2

to

n

do

if

a[i]=t

then

[2]

else

begin

if

s>maxi

then

maxi:=s;

t:=a[i];

[3]

end;

[4]

writeln('maxi=',maxi);

end.

2、1000！尾0問題

以下程序用于統計1000！末尾有多少個0。其中1000！=1´2´3´…´1000。實際上我們只要統計1000！有多少個因子10。由于10=5´2，因而只需統計有多少個因子5和2。顯然在1～1000的所有數中，5的因子個數比2的因子個數少。因此，只要統計1～1000的所有數中共有多少個因子5就行了。

var

i,j,n:integer;

begin

n:=0;

for

i:=1

to

200

do

begin

j:=i*5;

while

[5]

=0

do

begin

n:=n+1;

j:=

[6]

end;

end;

writeln(n:4);

end.

3、[問題描述]找數問題:

以下程序用在n個不同元素中找出第k個最小元素。程序中用分治策略來設計算法。把這n個元素放在一個數組中,然后取出第k個元素為標準m,把n個元素重新排列:小于標準m的元素放在數組前面,大于該標準的放在數組的后面。把該元素m放在兩者之間。設小于標準的元素個數為j-1,如果j=k,則A(k)即為所求元素。如果j>k,則第k個元素必在區間[1,j],因此取A[1],…,A[j]為新的元素集合,然后重復上述的”部分排序”的過程。如果j<k,則第k個元素必在區間[j+1,n],因此取A[j],…,A[n]為新的元素集合,重復過程。直至j=k為止。

[程序清單]

var

j,k,n:integer;

a:array[1..100]

of

integer;

procedure

search(b,e:integer);

var

I,m,t:integer;

begin

if

b=e

then

begin

j:=b;exit

end;

I:=b;j:=e;m:=

[7]

;

Repeat

While

a[I]<m

do

inc(i);

While

m<a[j]

do

[8]

;

If

I<j

then

Begin

t:=a[I];a[I]:=a[j];a[j]:=t

end;

Until

I>=j;

If

I=k

then

exit;

If

[9]

then

search(b,j)

else

search(j+1,e)

End;

procedure

[10]

var

I:integer;

begin

for

I:=1

to

n

do

write(a[I],’’);

writeln;

writeln(‘a[‘,k,’]=’,a[k]);

end;

begin

write(‘n=’);readln(n);

write(‘a[1..’,n,’]=’);

for

k:=1

to

n

do

read(a[k]);

readln;

write(‘k=’);readln(k);

search(

[11]

;

pr(n);

readln

end.

參考答案

一、

單項選擇題（每題1分，共30分）

1

2

3

4

5

6

7

8

9

10

D

C

B

B

D

D

C

C

C

C

11

12

13

14

15

16

17

18

19

20

D

B

C

B

B

B

C

D

D

B

二、閱讀下列程序，寫出程序運行結果（第1題5分，第2，3，4題各6分，共23分）

1、

98543

1、

（172，16）=4

3