小学生计算机程序设计竞赛试卷及参考答案
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、鸡兔同笼问题：
鸡有一头二脚，兔有一头四脚；鸡兔同笼共有头m 个、脚n 个，问笼中鸡、兔各有多少？例如输入：4 10
输出：
3
1
var n,m:Qword;
begin
readln（m,n）;
writeln（① ）;
writeln（② ）;
end.
2、最小公倍数
求两个正整数m、n 的最小公倍数k。
例如输入：12 9 输出：36
var a,b,t:Qword;
function gcd(m,n:Qword):Qword;
begin
if m mod n=0 then gcd:=n else gcd:= ③ ; end;
begin
readln(a,b);if a b then begin t:=a;a:=b;b:=t;end;writeln( ④ );
end.
3、汉诺塔问题
将A 柱上的圆盘移到C 柱。
移动规则如下：1 、一次只能移动一个
盘；2、不允许把大盘放在小盘上。
第一行只有一个正整数：k ，表示总移动次数
接下来的k 行，每行是一种移动方法。
例如输入3 输出
7
A- C
A- B
C- B
A- C
B- A
B- C
A- C var k,n,i:longint; procedure try（a,b,c:char;m:longint）; begin
if m=1 then writeln（⑤ ）
else
begin try（⑥ ）; writeln（a, ' - ‘,c）; try（⑦ ）;
end; end;
begin readln（n）;
k:=1;
for i:=1 to n do
⑧; writeln（⑨ ）; try（⑩ ）;
end.
计算机程序设计竞赛答案
一、选择题：(2 *7 ) 题号1 2 3 4 5 6 7 答案A 或B D A A C A B
二、计算下列函数( 1*15 ) 题号1 2 3 4 5
答案49 20 14 -5.0 ⋯E+000 4.1
题号6 7 8 9 10
答案-1 True True True True
题号11 12 13 14 15 答案-11 -10 -17 h c
三、问答题( 5+6 )
1、18 5
2、 1 4 9 16 25 36 49 64 81 100
四、看程序写结果( 6*5 )
1、46
2、2
3、2202121
4、s=252
5、 1 5 10 10 5 1
五、完善程序(3*10)
1、① (m*4-n)div 2 ② m-(m*4-n)div 2
2 、③ gcd(n,m mod n) ④ a*b div gcd(a,b)
3、⑤ a,' - ‘,c ⑥ a,c,b,m-1 (a,c,b, m div 2)
⑦ b,a,c,m-1(b,a,c,m div 2) ⑧ k:=k*2
⑨ k-1 ⑩ ‘A','B','C',n ( ‘A','B','C',K-1)。