noip2014初赛普及组Pascal试题及答案.docVIP

noip2014初赛普及组Pascal试题及答案

PAGE1

writeln(s:6:4);

end.

程序运行后输出结果错误，导致错误结果的程序行是()。

A.s:=1.0;B.forn:=10downto2do

C.s:=s+1divn;D.writeln(s:6:4);

14.设变量x为real型且己赋值，则以下语句中能将x中的数值保留到小数点后两位，并将第三位四舍五入的是().

A.x:=(x*100)+0.5/100.0;

B.x:=(x*100+0.5)/100.0;

C.x:=trunc(x*100+0.5)/100.0;

D.x:=(x/100+0.5)*100.0;

15.有以下程序：

var

s,a,n:integer;

begin

s:=0;

a:=1;

readln(n);

repeat

s:=s+1;

a:=a-2;

untila=n;

writeln(s);

end.

若要使程序的输出值为2，则应该从键盘给n输入的值是（）。

A.-1B.-3

16.一棵具有5层的满二叉树中结点数为（）。

A.31B.32C.33

17.有向图中每个顶点的度等于该顶点的()。

A.入度B.出度

C.入度与出度之和D.入度与出度之差

18.设有100个数据元素，采用折半搜索时，最大比较次数为（）。

A.6B.7C.8

19.若有如下程序段，其中s、a、b、c均己定义为整型变量.且a、c均已赋值，c0。

s:=a;

forb:=1tocdo

s:=s+1;

则与上述程序段功能等价的斌值语句是()。

A.s:=a+bB.s:=a+cC.s:=s+cD.s:=b+c

20.计算机界的最高奖是()。

A.菲尔兹奖B.诺贝尔奖C.图灵奖D.普利策奖

二、问题求解(共2题，每题5分，共计10分；每题全部答对得5分，没有部分分)

1.把M个同样的球放到N个同样的袋子里，允许有的袋子空着不放，问共有多少种不同的放置方法？(用K表示)。

例如：M=7，N=3时，K=8；在这里认为（5，1，1）和（1，5，1）是同一种放置方法。

问：M=8，N=5时，K=。

2.如图所示，图中每条边上的数字表示该边的长度，则从A到E的最短距离是。

三、阅读程序写结果(共4题，每题8分，共计32分)

1.var

a,b,c,d,ans:integer;

begin

readln(a,b,c);

d:=a-b;

a:=d+c;

ans:=a*b;

writeln(Ans=’,ans);

end.

输入:234

输出:_

2.var

n:integer

functionfun(n:integer):integer;

begin

ifn=1then

exit(1);

ifn=2then

exit(2);

exit(fun(n-2)-fun(n-1));

end;

begin

readln(n);

writeln(fun(n));

end.

输入:7

输出:

3.var

st:string;

len,i:integer;

begin

readln(st);

len:=length(st);

fori:=1tolendo

if(st[i]=’a)and(st[i]=’z)then

st[i]:=chr(ord(st[i])-ord(a)+ord(A));

writeln(st);

end.

输入:Hello,mynameisLostmonkey.

输出:

4.con