小学生计算机程序设计竞赛试卷及参考答案

小学生计算机程序设计竞赛试卷及参考答案

1、下列表达式的值为FALSE 的是( )。

A. Not( ‘90' '100 ')

B.Round((Abs(-10.5))) 10

C. Odd(True(98.49))

D.Ord(Chr(Pred(8))) =7

2 、判断变量ch 的值是否为大写字母，下列表达式正确的是( )。

A. ch = 'A' and ch = 'Z'

B.'A' =ch = 'Z'

C.(ch =A)and(ch =Z)

D. not(ch 'A' )or(ch ' Z')

3、表达式Chr(Ord( ‘ a')+5)) 的值是( )。

A.'f '

B.‘E'

C.102

D.101

4、与十进制数2014 等值的二进制数是( )。

A.11111011110

B.11110011110

C.10111111110

D.11111111010

5、[x] 补码=10011101 ，其原码为( )。

A.11001111

B.11100100

C.11100011

D.01100101

6、十进算术表达式：5*512+7*64 ＋4*8 ＋7 的运算结果，用二进制表示为( )。

A. 101111100111

B.111111100101

7、(2014)16 + (924)10 的结果是( )

C. 111110100101

D.111111011011

7、(2014)16 + (924)10 的结果是( )

A. (9036)10

B. (23B0)16

C. (9130)10

D. (100011000110)2

二、计算下列函数(1*15)

1、Sqr (7)的值为( )。

2、Round(19.6) 的值为( )。

3、Round(14.4) 的值为( )。

4、int(-5.7) 的值为( ) 。

5、Abs(-4.1) 的值为( )。

6、-37 mod 6 的值为( )。

7、'A ' 'a'的值为( )。

8、odd(25) 的值( )。

9、Not(17-5 13) 的值为( )。

10、(11 10 )and(7 =7) 的值为( )。

11、Round(-11.1) 的值为( )。

12、Round(-9.7) 的值为( )。

13、Trunc(-17.7) 的值为( )

14、chr(ord( ‘h ')) 的值为( )。

15、已知chr(97) 的值为字母a则chr(99) 的值为字母( )。

三、问题求解(5+6)

1、兄弟两人去钓鱼，一共钓了23 条，哥哥钓的鱼比弟弟的三倍还多3 条，哥哥弟弟各钓了多少条？

哥哥____________________ 弟_ 弟___________________________

2、对一批编号为1～100 ，全部开关朝上（开）的灯进行以下操作：凡是1 的倍数反方向拨一次开关；2 的倍数反方向又拨一次开关；3 的倍数反方向又拨一次开关；⋯⋯100 的倍数反方向又拨一次开关。问：最后为关熄状态的灯的编

号有哪些？

四、看程序写结果

1、

var d, p: integer;

begin

p:=1;

d:=5;

while d 1 do

begin

p:=2*(p+1);

d:=d-1

end;

writeln (p) end.

输出：____________________

2、

var x,y:longint;

begin x:=2014; y:=924;

while (x 0) and (y 0) do begin

if x =y then x:=x-y else y:=y-x

end;

if x=0 then writeln(y) else writeln(x) end.

输出：_____________________________

3、

var i,j,n:integer; b:array[1..10] of 0..2;

begin n:=2014;j:=0;

while n 0 do begin j:=j+1;b[j]:=n mod 3; n:=n div 3; end; for i:=j downto 1 do write(b[i]); writeln;

end. 输出：

4、

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.

输出：___________________________________

5、

var i,k:integer; a:array [0..20] of integer; begin

a[1]:=1; a[2]:=1;

k:=1;

repeat

a[k+2]:=1;

for i:=k+1 downto 2 do a[i]:=a[i]+a[i-1];

k:=k+1;

until k

for i:=1 to 6 do write（a[i]:5）;

writeln

end.

输出：______________________________________

五、完善程序（3*4 ）

1、鸡兔同笼问题：