2014鄞州区小学生计算机程序设计初赛卷.doc

鄞州区小学生计算机程序设计竞赛（2014）（两小时完成）请将正确答案在答题卷上填写，在本试题卷上答题无效一、 选择题(2*7)1、下列表达式的值为FALSE的是（ ）。A. Not(90100) B.Round(Abs(-10.5)=72、判断变量ch的值是否为大写字母，下列表达式正确的是（ ）。A. ch=A and ch=Z B.A=ch=A)and(ch=Z) D. not(chZ)3、表达式Chr(Ord(a)+5)的值是（ ）。A.f B.E C.102 D.1014、与十进制数2014等值的二进制数是（ ）。A.11111011110 B.11110011110 C.10111111110 D.111111110105、x补码=10011101，其原码为（ ）。A.11001111 B.11100100 C.11100011 D.011001016、十进算术表达式：5*512+7*644*87的运算结果，用二进制表示为（ ）。A. 101111100111 B.111111100101 C. 111110100101 D.1111110110117、(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、A13)的值为( )。10、（1110）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、对一批编号为1100，全部开关朝上(开)的灯进行以下操作：凡是1的倍数反方向拨一次开关；2的倍数反方向又拨一次开关；3的倍数反方向又拨一次开关；100的倍数反方向又拨一次开关。问：最后为关熄状态的灯的编号有哪些？_四、看程序写结果1、var d, p: integer;begin p:=1; d:=5; while d1 do begin p:=2*(p+1); d:=d-1 end; writeln (p)end.输出：_2、var x,y:longint;begin x:=2014; y:=924; while (x0) and (y0) 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:array1.10 of 0.2;beginn:=2014;j:=0;while n0 do begin j:=j+1;bj:=n mod 3; n:=n div 3;end;for i:=j downto 1 do write(bi);writeln;end. 输出： 4、var i,j,s:integer; b :array0.5 of integer;begin s:=1; for i:=1 to 5 do bi:=i; j:=1; while j0 do begin j:=5; while (j0) and (bj=10+j-5) do j:=j-1; if j0 then begin s:=s+1; bj:=bj+1; for i:=j+1 to 5 do bi:=bj+i-j end; end; writeln(s=,s);end.输出：_5、var i,k:integer;a:array 0.20 of integer;begin a1:=1; a2:=1; k:=1; repeat ak+2:=1; for i:=k+1 downto 2 do ai:=ai+ai-1; k:=k+1; until k=5; for i:=1 to 6 do write(ai:5); writelnend.输出：_五、完善程序（3*4）1、鸡兔同笼问题：鸡有一头二脚，兔有一头四脚；鸡兔同笼共有头m个、脚n个，问笼中鸡、兔各有多少？例如输入：4 10 输出： 31var n,m:Qword;beginreadln(m,n);writeln( );writeln( );end.2、最小公倍数求两个正整数m、n的最小公倍数k。例如输入：12 9 输出：36var 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 aCA-BC-BA-CB-AB-CA-Cvark,n,i:longint;procedure try(a,b,c:char;m:longint);beginif m=1 then