1995年计算机水平考试试题

第第页1995年计算机水平考试试题1995年计算机水平考试试题

发表于：2023-05-26来源：：点击数：标签：

试题1(15分)阅读下列程序流程图,从供选择的答案中找出应该填入()处的字句,并写在答卷的对应栏内.供选择的答案:(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

试题1(15分)

阅读下列程序流程图,从供选择的答案中找出应该填入()处的字句

,并写在答卷的对应栏内.

供选择的答案:

(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

设N=4,数组A的初值为2,0,-3,7(即A[1]=2,A[2]=0,A[3]=-3,A[4]=7).

1程序执行完后,A的值为().

2若原流程图中,仅把I)框改为I-J,则程序执行完后,A的值为().

3若原流程图中,仅把III)框改为J:N-1,则程序执行完后,A的值为().

4若原流程图中,仅把II)框改为A[I]-A[J]

A[J]-T

T-A[I]

则程序执行完后,A的值为().

试题2(15)

阅读下列求S=X的流程图,从供选择的答案中找出应填入a-g处的字句.

供选择的答案

1,2:a.读入Xb.读入Sc.读入jd.读入Ne.读入X

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

4:a.S*X-Sb.M*X-Sc.S+M-Sd.S+M-Se.S+X-Sf.M+X-S

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

阅读下列pascal程序,把应该填入_______处的字句写在答卷的对应栏内.

试题3(15分)

[程序的说明]本程序以如下格式打印杨辉三角形(又称pascal三角形)的前10行.

1

11

121

1331

14641

15101051

1615201561

[程序]

programpascaltriangle(output);

constlastrow=10;

varrow,col:2..lastrow;

fe:1..lastrow;

pascal:array[1..lastrow]ofinteger;

beginpascal[1]:=1;

writeln(pascal[1]);

forrow:=2tolastrowdo

beginpascal[row]:=1;

forcol:=_________do

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

forfe:=1to_______do

write(pascal[fe]);

__________

end

end.

试题4(20分)

[程序的说明]本程序用来打印读入的正文,并统计和打印该正文中所包含的行,

句和字的数目以及娒扛鲎帜赋鱿值钠刀*.规定句号(.)作为句子的结束,不作它

用;字仅由字母组成且每个字不跨行.

[程序]

programtextprocess(input,output);

varch:char;g:boolean;i:integer;

letter:array[`A'..`Z']ofinteger;

beging:=false;

forch:=`A'to`Z'doletter[ch]:=0;

wordnum:=0;sentencenum:=0;

linenum:=0;

read(ch);

whilenoteofdo

ifnoteolnthen

if________then

beginwhile(ch=_______)and(ch=_______)do

beginwrite(ch);

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

____________;

g:=true

end;

ifgthen

begin___________;

wordnum:=wordnum+1

end

elsebeginwrite(ch);read(ch)

end

end

___________begin_________________________;

write(ch);read(ch)

end

elsebegin_________________________;

writeln;read(ch)

end;

writeln;writeln;

writeln(`linenum=',linenum);

writeln(`sentencenum=',sentencenum);

writeln(`wordnum=',wordnum);

forch:=______to______do

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

writeln

end.

试题5(25分)*

[程序的说明]读入一串整数,按递增次序枸成一个二叉树.例如:对以下八个数:

97,-426,278,9,-627,301,156,98构成如右图所示的二叉树.

[程序]

programbinarytree(input,output);

typetrees=^boxes;

boxes=recordvalue:integer;

left,right:trees

end;

varvalofnode:integer;

root:trees

procedureadd(int:integer;vart:trees);

beginift=nilthen

begin________________;

witht^do

beginvalue:=____________;

left:=____________;

right:=____________

end

end

elsewitht^do

if___________