信息学竞赛初赛模拟试题-16套(08~).doc

《信息学竞赛初赛模拟试题-16套(08~).doc》由会员分享，可在线阅读，更多相关《信息学竞赛初赛模拟试题-16套(08~).doc（6页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、|信息学初赛模拟试题（八）（中学组 PASCAL 语言，两小时完成）请将正确答案在答卷上填写，在本试题卷上答题无效一、选择题（每小题 1.5 分，共 30 分）1、 一台计算机一经设计出厂，其指令系统_A、已确定 B、再经软件人员编制而成 C、可继续其功能 D、属系统软件2、把整数 7 转换为字符7的表达式是_A、 Chr（7）-ord（0 ） B、chr（7-ord （0） ）B、 Chr（7+ord（0 ） ） D、chr（7+ord（0） ）3、_接口是一种通用型系统级接口，它连接的外设可以是硬盘驱动器、光盘驱动器和扫描仪等。A、RS232 B、IDE C、EIDE D、SCSI4、1G

2、B=_ 字节。A、2 20 B、2 30 C、10 6 D、10 95、主存储器系统中使用 Cache 的目的是_A、增加主存容量 B、存放常用的系统程序C、存放 BIOS D、提高 CPU 存取主存的速度6、从以下叙述中选出最确切叙述_A、CPU 是计算机核心部件，它的主要功能是完成算术和逻辑运算操作；B、根据系统总线传送信息的类型不同，它可分为地址线、数据线和控制线。C、 在指令字中，除给出指令的操作码外，还必须给出操作的对象。D、 显示器是构成计算机显示系统的硬件部件。7、 高级语言中，程序控制一般分为三种基本结构，其中_结构可提供作条路径选择。A、循环 B、分支 C、递归 D、过程8、

3、在子程序的程序头，一般要写出一些变量，这些变量被称为_A、形式参数 B、实际参数 C、局部参数 D、全局参数9、二分法查找_存储结构。A、只适合于顺序 B、只适合于链式 C、既适合于顺序也适合于链式 D、既不适合于顺序也不适合于链式10、当选定文件或文件夹，不将文件或文件夹放到“回收站”中，直接删除的操作是_A、 按 Delete（ Del）键B、 用鼠标直接将文件或文件夹拖放到“回收站”中C、 按 Shift + Delete （Del）键D、 用“我的电脑”或“资源管理器”窗口中的“文件”菜单中的删除命令11、有一个二维数组 A，行下标的范围是 0 到 8，列下标的范围是 1 到 5，每个

4、数组元素用相信的 4 个字节存储。存储器按字节编址。假设存储数组元素 A0，1 的第一个字节的地址是 0。若按列存储，则 A2，4 的第一个字节的地址是_ A、28 B、108 C、116 D、132 12、与二进制 1110111.111 对应的十六进制数是_A、77.E B、77.7 C、E7.E D、E7.7|13、URL 的一般格式为_A、/ B、：/C、：/ D、/：14、_是实现两个异种网络互连的设备。A、网桥 B、网关 C、集线器 D、路由器15、_可能把模拟声音信号转换成数字声音信号。A、A/D B、D/A C、R/W D、I/O16、现有十六进制数 x、y，它们的值分别是 x

5、=BD，y=9D，则表达式 x*y 的值为_A、73E9 B、50ED C、7E00 D、CE1117、设 T 是哈夫曼树，且各片树叶的权分别是：1，2，3，4，5，6，则此树的非树叶结点的权之和是_A、27 B、30 C、45 D、5118、设要将序列中的关键码按字母的升序重新排列，则_是以第一个元素为分界元素的快速排序一趟扫描的结果。A、 F，H，C ，D，P ，A，M，Q ，R ，S，Y ，XB、 P，A， C，S，Q，D，F，X，R ，H，M，YC、 A，D，C，R ，F，Q ，M，S，Y，P ，H，XD、 H，C，Q，P ，A，M，S，R，D ，F，X ，Y19、设 X=23 0.0

6、110，则规格化后阶码为A、011 B、010 C、100 D、11120、线性表具有两种存储方式，即顺序方式和链接方式。现有一个具有五个元素的线性表L=23，17，47，05，31，若它以链接方式存储在下列 100119 号地址空间中，每个结点由数据（占 2 个字节）和指针（占 2 个字节）组成，如下所示：05 U 17 X 23 V 31 Y 47 Z则该线性表的首结点的起始地址为_A、100 B、104 C、108 D、110二、问题求解（每小题 6 分，共 12 分）1、 圆周上有 10 个点，每两点间连一弦，如果其中任意三条弦在圆内都不共点，由这些弦在圆内的交点为顶点的三角形的个数为

7、_。2、表达式 3*5+2 是二叉树中用何种遍历的表达式? 并画出该表达式二叉树。三、写出程序的运行结果：（共 28 分）第 1 题（8 分）program test31;const n=5;var I,j,k:integer;r:array0.10 of integer;beginfor I:=1 to n do read(rI);for I:=2 to n do100 120|begink:=rI;j:=I-1;while (krj) and (j0) dobegin rj+1:=rj;j:=j-1;end;rj+1:=k;end;for I:=1 to n do write(rI,);w

8、ritelnend.输入: 8 4 9 3 5输出：第 2 题（10 分）program test32;var a:array1.1000 of word;n,i,j,dep:word;beginwrite(N(1-1000)=); readln(n);if (n=0) or (n1000) then begin writeln(Input error.); readln; halt; end;fillchar(a,sizeof(a),0); a1:=1; dep:=1;for i:=2 to n do beginj:=3; while (j0) do begindep:=dep mod n+

9、1;if adep=0 then dec(j);end;adep:=i;end;for i:=1 to n do write(ai:5);writeln; end.输入：8输出：第 3 题（10 分）program test33;const n=5;var i:integer;x,y:real;a:stringn;beginx:=0.375;while i=1 then begin ai:=1;y:=y-1 endelse ai:=0;end;write(0.);for i:=1 to n do write(ai);writeln;x:=x-0.01endend.输出：四、完善程序（每空 2

10、分，共 28 分）第 1 题（6 分）问题描述彼得在邮局值夜班，十分无聊，他对邮局内的 200 个信筒（编号为 1 到 200） ，全部打开。然后每隔一个信筒关闭一个（2，4，6，） 。然后每隔两个信筒进行检查（3，6，9，） ，若开着，则关上；若关着，则打开，接着再每隔 3 个（4，8，12，）作类似工作。问最后结果哪些信筒开着，哪些信筒关着。Program test41;const maxn=200;var i,j:integer;open:array1.maxn of integer;beginfor i:=1 to maxn do openi:=1;for i:=2 to maxn d

11、obeginj:=i;while dobegin openj:= ; j:= endend;for i:=1 to maxn do if openi=1 then write(i:4);writelnend.第 2 题（12 分）问题描述本程序将自然数 1,2,N*N（）按顺时针方向依次写在 N 阶方阵中。N=5 时方阵如下:|1 2 3 4 516 17 18 19 615 24 25 20 714 23 22 21 813 12 11 10 9program test42; const maxn=10;var i,j,k,m,n:integer;a:array 1.maxn,1.maxn

12、of integer;beginwrite(Input n:); readln(n);m:=1; k:=1;repeati:=k;j:=k;repeatai,j:=m;j:=j+1;m:=m+1until ;repeatai,j:=m;i:=i+1;m:=m+1until ;repeatai,j:=m;j:=j-1;m:=m+1until ;repeatai,j:=m;i:=i-1;m:=m+1until ;k:=k+1until kn div 2;if then ;for i:=1 to n dobeginfor j:=1 to n do write(ai,j:3);writelnenden

13、d.|第 3 题（12 分）问题描述从 1 到 n 的整数中（1，2，,n）取出 r 个整数(a1,a2,a r ),其中 a1a2,ar 程序将打印出全部满足上述关系的 a1,a2,ar 的组合。当 n=5，r=3 时，程序输出如下：1 2 31 2 41 2 51 3 41 3 51 4 52 3 42 3 52 4 53 4 5program test43;const maxn=10; maxr=maxn;var i,k,m,n,l,r,t:integer;a:array 0.maxr of integer;beginwrite(Input n,r=); readln(n,r);for i:=1 to r do ai:=i;for i:=1 to r do write(ai:3);writeln;l:=0;while dobeginm:=r-l;k:= ;if amkthen begin ;for i:= to r do ai:= ;for i:=1 to r do write(ai:3); ; writeln endelse l:=l+1;endend.