2009年水集办事处小学生计算机程序设计竞1

2009年水集办事处小学生计算机程序设计竞赛 初赛试题　pascal语言 说明：请将答案填在答题卡上，只交答题卡，时间 9：00—11：00 一、选择题（每题1分，共10分） 1、在WORD中，将一段文字移到整个文档最后，正确的操作步骤的顺序是（ ） （1）打开编辑菜单，选择粘贴命令 （2）选择要移动的一段文字使其反黑 （3）打开编辑菜单，单击复制命令 （4）把光标移到文档的最后 A （1）（2）（3）（4） B （3）（2）（4）（1） C （2）（3）（4）（1） D （3）（1）（2）（4） 2、http://wendang.chazidian.com中的“cn”代表了（ ） A 国家（中国） B 省市 C 用户 D 服务器 3、64K存储器含（ ）个字节 A 64000 B 65536 C 64536 D 32768 4、计算机病毒一般寄生在（ ）中 A 中央处理器 B 存储器 C 输入设备 D 输出设备 5、启动WINDOWS后，不是桌面上常见的图标是（ ） A 我的电脑 B 回收站 C 控制面板 D 我的文档 6、在WINDOWS中，使用鼠标打开某个对象快捷菜单的操作方法是（ ） A 单击对象 B 双击对象 C 拖动对象 D 右击对象 7、用A表示某个人的总成绩，用B表示这个人的语文成绩，用C表示这个人的数学成绩。那么，用来表达总分不低于170分，同时数学成绩不低于90分，或者语文成绩不低于86分的逻辑表达式是（ ） A A>=170 AND B>=86 OR C>=90 B 总分超过170，并且语文超过86或数学超过 90 C A>=170 AND (B>=86 OR C>=90) D （A>=170 AND B>=86）OR C>=90 8、已知一个数字方阵，共M排（1—M），每排N个（1—N）。现要求将这个数字方阵存放到一个长条形盒中（盒中长度不限），且盒中原来从头已经放有K个数字。如果按排取数存放，则数字方阵中第I排第J个数字，应该放在盒中的（ ）位置 A (I-1)*N+J-1 B K+(I-1)*N+J C K+(J-1)*M+I D (J-1)*M+I-1 9、下列存储器中，存取速度最快的是：（ ）。 A　软盘 B　硬盘 C　光盘 D　内存 10、为了让计算机完成了一个完整的任务而编制的一串指令序列称之为 。 A．命令 B．口令 C．程序 D．软件 二、填空题（每小题5分，共15分） 1．有一根长度是a的不均匀棒子。 现要找一个支点A，使得该支点正好可使棒子处于平衡状态。 X ^ 左 * 右 0 A a 请完善下面的算法： 第一步：C0=0，C1=a 第二步：A=（C0+C1）/2 第三步：取上一步支点A，此时有三种情况： （1） 以A为支点，棒

平衡，算法结束。 （2）右边重，则需令 等于 ，回第二步重复； （3）左边重，则需令 等于 ，回第二步重复； 2、有5本日文书，7本英文书，10本中文书，从中取两本不同文字的书，问有多少种方案？ 3、小明有X个玻璃杯，他想在每个杯子里放入若干个小球，并使各个杯子中的小球互不相同，但允许有一个空杯。 问：小明至少要有多少小球，才可达到目的。 三、写出下列程序的运行结果（共36分，每小题6分） 1. program f1_301; var i,j,k:integer; a:array[1..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>=10; FOR J:=1 TO 11 DO WRITE(A[J]:5); END. 2. program f1_302; var a,s,d,t:integer; begin a:=5612; s:=0; repeat t:=a; a:=t div 10; d:=t mod 10; s:=s+d; until a=0; writeln(s); end. 3. program f1_303; var u:string; L,n,k:integer; begin u:='http://wendang.chazidian.com'; L:=LENGTH(U); N:=0; FOR K:= 1 TO L DO IF COPY(U,K,1)='T' THEN N:=N+1; WRITELN('URL:',COPY(U,8,L-7)); WRITELN('N=',N); end. 4. program f1_304; var n,s,j:integer; begin s:=0; n:=3; for j:=1 to n do begin s:=s+j*(j+1); writeln(j,'*',j+1,'=',j*(j+1)); end; writeln('TOTAL=',S) end. 5. program f1_305; var n,k:integer; begin n:=15; k:=0; repeat k:=k+1; n:=n-k; until n<=0; if k mod 2=0 then writeln(k-n,'/',n+1) else writeln(n+1,'/',k-n); end. 6、 program f1_306; var i,j,k,s:integer; begin s:=0; for i:=3 downto 1 do begin for j:=1 to 3 do begin k:=0; repeat k:=k+1;s:=s+k; until k=j; end; s:=s-(k+1); end; write(‘s=’,s); end. 四、程序填空（每空3分，共39分） 1、上楼梯问题 [问题描述] 有一个N级的楼梯，N从键盘输入，上楼梯时一次可以上1级，也可以上2级，也可以上3级，问N级的楼梯共有几种不同的上楼方案。 [程序说明] 用递推方法求解。 [程序清单] program f1_401; var n,a,b,c,d,i:integer; begin write('n='); readln(n); if n=1 then c:=1; if n=2 then c:=2; if n= 3 then c:=4; if n>3 then begin a:=1;b:=2; c:=4; for i:=4 to n do begin d:= (1) ; a:=b; (2) ; (3) ; end; end; writeln(c); end. 2、编写用筛选法求1-n(n≤200)以内素数的程序 分析: 由希腊著名数学家埃拉托色尼提出的所谓“筛选法”，步骤如下： ①设所有待求素数的范围为2－N； ②找出其中最小数（必为素数），设为K，输出； ③在2至N的所有数中，将K的所有倍数从中去掉； ④重复②～

④直到所有的数都被去掉，即找到了所有的素数。 编程时，用数组作标记的方法，a(k)=1表示保留某个数，a(k)=0表示去掉某个数。 源程序如下： program f1_402; var n,i,j,k,t,ok:integer; a:array[1..200] of integer; begin write('n='); readln(n); for i:=2 to n do (4) ; t:=1; repeat ok:=0; (5) ; repeat j:=j+1; if a[j]=1 then begin write(j,' '); ok:=1; for k:=j to n do if (6) then a[k]:=0; end; until (j>n) or ( (7) ); (8) ; until t>n; end. 3．找数问题 [问题描述] 读入若干个不相同且不为0的数X，以0作为输入结果标记，不用排序求出其中第R个大的数（R从键盘输入）， 即有R-1个数比它大，其余的数都比它小。 例如：输入3，14，22，15，17，6，0，3，则输出其中第3个大的数为15。 [算法说明] 以数组A[1．．200]记录读入的数，并以0为结束（0本身不是数列中的数）。然后从第一个数开始，将它与其余的数进行比较并记录出比它大的数的个数（存于变量Y中），若Y=R-1时，得到所求结果，否则对下一个数进行同样的处理。 [程序清单] program f1_403; var i,j,k,p,x,y,r:integer; a:array[1..20] of integer; begin j:=0; readln(x); while (9) do begin j:=j+1; a[j]:=x; (10) ; end; readln(r); p:=1; i:=1; while p=1 do begin (11) ; y:=0; for k:=1 to j do if x<a[k] then (12) ; if (13) then begin writeln(x); p:=0; end else begin i:=i+1; end; end; end.