计算机奥赛模拟训练试卷(四)

1、计算机奥赛模拟训练试卷（四）说明：本卷总分100分 时间为2小时一、 选择1个正确答案代码，填入每题括号内（每题1.5分，多题无分，共30分）。1、下列4个不同数制表示的数中，最大的一个数是（ ）A. 十进制数220.1 B. 二进制数11011011.1 C. 八进制数334.1 D. 十六进制数DC.12、Office2000中的“剪贴板”是（ ）。 A. 硬盘中的一块区域 B. 内存中的一块区域 C. Cache中的一块区域 D. CPU中的一块区域3、产生100至300之间的随机整数（Random），且包含100、300两个整数的表达式是（ ）。 A. Random（100）+200

2、B. Random（200）+100 C. Random（201）+100 D. Random（300）4、调制解调器又称为Modem，可用于连结计算机和电话线拨号上网。调制是指（ ）。 A. 把电信号转换成光信号 B. 把光信号转换成电信号 C. 把模拟信号转换成数字信号 D. 把数字信号转换成模拟信号5、若采用32*32点阵的汉字字模，存放1600个汉字信息需要的存储容量是（ ）KB。 A. 25 B. 200 C. 800 D. 16006、为了删除当前盘目录下第3个字符为C的所有文件，下列DOS命令中正确的是（ ） A. DEL ?*.* B. DEL ?C.* C. DEL *c*.

3、* D. DEL ?c*.*7、OSI的七层协议中，最底层是( )。 A. 会话层 B. 数据链路层 C. 物理层 D. 网络层8、设x为值大于零的实型变量，计算机Pascal中X8的表达式为（ ）。 A. ln(8*exp(x) B. exp(8*ln(x) C. x8 D. sqr(sqr(sqr(x)*x9、十进制数-103的补码是（ ）。 A. 10011001 B. 11100111 C. 10110011 D. 0001100110、为了区分汉字与ASCII码，计算机中汉字编码的最高位为（ ）。 A. 0 B. 1 C. 2 D. 411、“网络通信协议”，如Internet采用的

4、TCP/IP等协议是一组（ ）。 A. 软件 B. 存储器 C. 外部设备 D. 约定的规则12、下列软件依次对应于图像浏览、屏幕撷取、文件压缩、杀毒软件的排列顺序是（ ）。 HyperCam Winrar Norton Antivirus ACDsee A. B. C. D. 13、在微型计算机系统中，I/O接口的位于（ ）之间。 A. CPU和内存储器 B. 外部设备与内存储器 C. 总线与输出输入设备 D. 主机和输出输入设备14、在微型计算机中，常用（ ）码实现十进制与二进制数之间的自动转换。 A. BCD码 B. ASCII码 C. 海明码 D. 机内码15、微机中使用的鼠标是直接连

5、接在主机（ ）上的。 A. 显示器接口 B. 打印机接口 C. 并行接口 D. 串行接口16、使用WORD菜单时，若选中的菜单项尾部有（ ）标记，说明此菜单还有下一级子菜单。 A. 组合键 B. 向右小三角形箭头 C. 省略号 D. 带括号的字母17、一个栈的输入顺序为1、2、3、4、5，下列序列中可能是栈的输出序列是（ ）。 A. 54312 B. 24135 C. 21543 D. 1253418、函数f(x)=3x2-2x-1在（-2，2）中的最小值为（ ）。 A. 1 B. -1 C. 4/3 D. 8/319、已知A=11001010B，B=000001111B，C=01011100

6、B，ABC=（ ）B。 A. 11001110 B. 01110110 C. 1110110 D. 0100110020、一棵二叉树的中序遍历序列为：DGBAECHF，后序遍历序列为：GDBEHFCA，则前序列遍历序列是（ ）。 A. ABCDFGHE B. ABDGCEFH C. ACBGDHEF D. ACEFHBGD二、 问题求解（16分）第1题（5分），将n个不同颜色的球放入K个无标号的盒子中（n=k，且盒子不允许为空）的方案数为S（n，k），例如：n=4，k=3时，S（n，k）=6。当n=6，k=3时，S（n，k）=_。第2题（5分），有5本不同的数学书分给5个男同学，有4本不同的英

7、语书分给4个女同学，将全部书收回来后再从新发给他们，与原方案都不相同的方案有_种。 第3题（6分），把三角形各边分成n等分，过每一分点分别做各边的平等线，得到一些由三角形和这些平等线所组成的平等四边形。N为已知整数，能组成_个平等四边形。 三、 给出程序的运行结果（22分）第1题（6分），program LM_31; var d,p:integer; Begin P:=1;D:=11;While d1 do begin p:=2*(p+1); d:=d-1; End;Writeln(p);End.输出：_第2小题（8分），program LM_32;Varg:integer;k,t:real;

8、BeginK:=0;g:=0;For m:=1 to 49 do Begin g:=g+1; 第3题（8分），program LM_33; var n,I,tem,t:longint; s:string; begin write(Input n:);readln(n); s:=1; repeat I:=length(s); While si=1 do Begin Si:=0;dec(i); End; If I0 then si:=1; Else s:=1+s; Val(s,t,tem); Until t mod n=0; Writeln(n,*,t div n,=,s);end.输入：6输出：

9、_k:=k+1/(g*(g+1);End; Writeln(k:10:2); End. 输出：_ 四、完善程序（每空2分，共32分）第1题（14分），以下程序是将一组整数按从小到大的顺序排列。排序的方法是将长度为n的数a分为两个长度分别为（n div 2）与（n-n div 2）的子数组，a1,a2。然后递归调用过程，将a1，a2分别排序，最后将a1，a2归并成数组a。例如a=（3，1，2，4），那么a1=（3，1），a2=（2，4）。调用排序过程将a1,a2排序，得到a1=（1，3），（2，4）然后进行合并排序。从键盘输入数的长度n以及n个整数，存在数组a中，调用子过程sort进行排序，最后

10、输出排序结果。Program LM_41; Const maxn=100; Type arr=array1.maxn of integer; n,I:integer; procedure sort(n:integer;var a:arr); var I,p1,p2,n1,n2:integer; A1,a2:arr; Begin If n=1 thex exit; Fillchar(a1,sizeof(a1),0); Fillchar(a2,sizeof(a2),0); N1:=0; n2:=0; N1:=n div 2; n2:=(_); For I:=1 to n1 do a1i:=ai;

11、For I:=1 to n2 do a2i:=_ _; _; sort(n2,a2); p1:=1;p2:=1; n:=0; while (p=n1) and (_) do begin n:=n+1; if _ then begin an:=a1p1;inc(p1);end else begin _;inc(p2);end; end; if p1=n1 then for I:=_ _ to n1 do begin n:=n+1;an:=ai; end else for I:=p2 to n2 do begin n:=n+1;an:=a2i;end;End;Begin Write(n=); Re

12、adln(n); For I:=1 to n do read(ai); Readln; Sort(n,a); For I:=1 to n do write(ai, ); Writeln;End.第2题（8分），有（1=n=100）个同学种m(1=n=m=100)种小树苗，例如：4个同学每小时种4种树苗的数量估算如下表所示，编程输出每人种1种苗所用的总时间最少的安排方案和所花费的时间。学生 苗树ABCD15245243533524243233Program LM_42; Const Maxn=100;maxm=100; Var A:arr1.maxn,1.maxm of integer; M,n

13、:integer; I,j,t:integer; Procedure work(k,t1:integer); Var I:integer; Begin If _then Begin If t1t then t1:=t; Exit ; End; For I:=_ _to_do Work(k+1,_ _); End; Begin Readln(n); For I:=1 to n do Begin For j:=1 to m do read(aI,j); Readln; End; t:=maxint;Work(1,0); Writeln(t) End.第3题（10分），程序的任务是用09中的数字填入

14、如下乘法运算的*处，数字可重复使用，且所用的数字至少有一个是素数，要求输出满足下列算式的方案数。 * * * * * * * * * * * * * * * program LM_43; const p:set of 0.9=2,3,5,7;var s:set of 0.9;n:integer;ans:longint;f:text; procedure init;I:integer;T:byte;Begin Readln(n); S:= ; For I:=1 to n do Begin Read(t); S:=s+t; End; Close(f);End; Function ok(x,l:in

15、teger):Boolean; 此函数判断X是否符合条件Var t:byte;Begin Ok:=false; If _1 then exit; While x0 do Begin T:=x mod 10; If not(t in s ) then exit; X:=x div 10; End; Ok:=true;End; Funtion inset(x:integer):boolean; 此函数判断X中是否包含素数字Var t:byte;Begin Inset:=false; While _do Begin T:=x mod 10; If t in p then Begin Inset:=ture; Exit; End; _ End;End; Procedure work;Var I,i1,i2,i3,j1,j2:integer;Begin Ans:=0; For i1:=1 to 9 do If i1 in s then For i2:=1 to 9 do If i2 in s then For i3:=1 to 9 do If i3 in s then Begin _; for j1:=1 to 9 do if