試題 1 ( 15分 )

閱讀下列程序流程圖 ,從供選擇的答案中找出應(yīng)該填入 ( )處的字句

,并寫在答卷的對應(yīng)欄內(nèi) .

供選擇的答案:

(a) 2, 0, -3, 7 (b) 0, -3, 2, 7 (c) -3, 0, 7, 2 (d) 7, 2, 0, -3

(e) 2, 0, -3, -3 (f) -3, 0, 2, 7 (g) 2, 2, 0, -3 (h) 2, 0, 7, -3

設(shè) N=4 ,數(shù)組 A 的初值為 2,0,-3,7 (即 A[1]=2,A[2]=0,A[3]=-3,A[4]=7 ).

<1> 程序執(zhí)行完后, A 的值為 ( ).

<2> 若原流程圖中,僅把I)框改為 I->J,則程序執(zhí)行完后,A的值為( ).

<3> 若原流程圖中,僅把III)框改為J:N-1,則程序執(zhí)行完后,A的值為( ).

<4> 若原流程圖中,僅把II)框改為 A[I]->A[J]

A[J]->T

T->A[I]

則程序執(zhí)行完后, A 的值為 ( ).

試題 2 (15)

閱讀下列求 S= X 的流程圖, 從供選擇的答案中找出應(yīng)填入 a-g 處的字句.

供選擇的答案

1,2: a. 讀入X b. 讀入S c. 讀 入j d. 讀入N e. 讀入X

3,5: a. i:2 b. i:3 c. i:4 d. i:N e. j:2 f. j:3 g. j:4 h. i:j i. j:N

4: a.S*X ->S b. M*X ->S c. S+M ->S d. S+M ->S e. S+X ->S f. M+X ->S

6,7: a. <= b. < c. = d. >= e. > f. <>

閱讀下列 pascal 程序, 把應(yīng)該填入_______處的字句寫在答卷的對應(yīng)欄內(nèi).

試題3 ( 15分 )

[程序的說明] 本程序以如下格式打印楊輝三角形 (又稱pascal三角形 )的前10行.

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

1 5 10 10 5 1

1 6 15 20 15 6 1

[程序]

program pascaltriangle (output);

const lastrow = 10;

var row,col:2..lastrow;

fe:1..lastrow;

pascal: array [1..lastrow] of integer;

begin pascal[1] := 1;

writeln (pascal[1]);

for row := 2 to lastrow do

begin pascal[row] := 1;

for col := _________ do

pascal[col] := pascal[_______] + pascal[_______];

for fe := 1 to _______ do

write (pascal[fe]);

__________

end

end.

試題 4 (20分)

[程序的說明] 本程序用來打印讀入的正文, 并統(tǒng)計(jì)和打印該正文中所包含的行,

句和字的數(shù)目以及娒扛鱟幟賦魷值鈉刀*. 規(guī)定句號(.)作為句子的結(jié)束, 不作它

用 ; 字僅由字母組成且每個字不跨行.

[程序]

program textprocess (input,output);

var ch: char; g: boolean; i: integer;

letter: array [`A'..`Z'] of integer;

begin g:=false;

for ch:=`A' to `Z' do letter [ch]:=0;

wordnum:=0; sentencenum:=0;

linenum:=0;

read (ch);

while not eof do

if not eoln then

if ________ then

begin while (ch >= _______ ) and (ch <=_______ )do

begin write (ch);

letter [ch] := letter[ch] + 1;

____________ ;

g := true

end;

if g then

begin ___________;

wordnum := wordnum + 1

end

else begin write (ch); read (ch)

end

end

___________ begin _________________________ ;

write (ch); read (ch)

end

else begin _________________________ ;

writeln; read (ch)

end;

writeln; writeln;

writeln (`linenum = ' , linenum);

writeln (`sentencenum = ' , sentencenum);

writeln (`wordnum = ' , wordnum);

for ch:=______ to ______ do

writeln (ch:3,`:',letter[ch] :6);

writeln

end.

試題 5 ( 25分 )*

[程序的說明] 讀入一串整數(shù), 按遞增次序枸成一個二叉樹.例如: 對以下八個數(shù):

97, -426, 278, 9, -627, 301, 156, 98 構(gòu)成如右圖所示的二叉樹.

[程序]

program binarytree (input,output);

type trees = ^boxes;

boxes = record value:integer;

left,right:trees

end;

var valofnode: integer;

root: trees

procedure add (int: integer; var t: trees);

begin if t = nil then

begin ________________ ;

with t^ do

begin value := ____________ ;

left := ____________ ;

right := ____________

end

end

else with t^ do

if ___________ then

add(int,left)

else ____________

end; {add}

begin {main program}

root := nil;

repeat read (valofnode);

________________

until eof

end.