信息学初赛模拟试题(七、八)及答案(14页).doc
《信息学初赛模拟试题(七、八)及答案(14页).doc》由会员分享,可在线阅读,更多相关《信息学初赛模拟试题(七、八)及答案(14页).doc(14页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、-信息学初赛模拟试题(七、八)及答案-第 14 页信息学初赛模拟试题(七)一、选择一个正确答案代码(A/B/C/D),填入每题的括号内 (本题共20小题,每题1.5分共30分。110小题为单选题,1120小题为不定项选择题,每题有一个或多个答案。)1、如果按字长来划分,微型机可以分为8位机、16位机、32位机和64位机。所谓32位机是指该计算机所用的CPU( )A、同时能处理32位二进制数 B、具有32位的寄存器C、只能处理32位二进制定点数 D、有32个寄存器E、存储方式是32位2、下列表达式正确的是( ) A、 (1)10(1)2 B、(12)10 (10)16 C、 (15)8 (10)
2、16D、(101)2 (15)16 E、(121)10 =(79)163、关闭一个活动应用程序窗口,可按快捷键( ) A、Ctrl + F4 B、Alt + F4 C、Alt +Esc D、Ctrl+ Esc E、Shift+ Esc4、结构化程序设计的三种结构是( ) A、顺序结构、选择结构、转移结构 B、分支结构、等价结构、循环结构C、多分结构、赋值结构、等价结构 D、分支结构、顺序结构、选择结构E、循环结构、顺序结构、选择结构5、编译程序是指( ) A、将高级语言源程序翻译成机器语言程序(目标程序)B、将机器语言源程序翻译成高级语言程序(目标程序)C、对源程序边扫描边翻译执行D、对目标程
3、序装配连接E、运行源程序并修改错误6、在pascal语言中下列运算符( )的优先级别最高 A、 AND B、 NOT C、 D、* E、OR7、在线性表中,那些结点只有一个直接前驱和一个直接后续( ) A、头结点 B、尾结点 C、中间的结点 D、所有结点 E、不确定8、具有12个记录的序列,采用冒泡排序法最少的比较次数是( ) A、 1 B、144 C、11 D、66 E、09、有N个结点的图的邻接矩阵存储法中,链表的表头结点有( )个。 A、 N B、 2N C、N/2 D、N*N E、N-210、表达式SQRT(ABS(-100)*SQR(ROUND(3.7)的值是( )。 A、 30 B
4、、40 C、30.0 D11、二叉树的后序遍历为 abcdef ,这棵二叉树可能是:12、具有4个顶点的无向完全图有( )条边。 A、6 B、12 C、16 D、2013、二进制数1101101.11011转换成十六进制数为( ) A、6D.D8 B1 C、CD.D8 D、CD.D1 E14、有如下公式,则 f (f (2*f(3)-1)*2)为( ) 2 (n2) f (n)= f(n-1)+f(n-2)-1 (n3)A、 14 B、 2 C、145 D、146 E、14715、现有一栈:a,b,c,d,e,f 则有可能是出栈的序列是( ) A、 a,b B、a,c ,e,b C、 b,c,
5、e D、 f,e,d,c,a,b E、a,b,c,d,e,f16、下列软件属于系统软件的是( ) A、WORD B、 WINDOWS 98 C、DOS D、 UNIX E、FLASH17、800个2424点阵汉字字型库所需要的存储容量是( ) A、 7.04KB B 、56.25KB C、 7200B D、 450KB E、720MB18、对于矩阵 Dij为aij的地址,每个元素占三个字节空间。若按照行顺序存储,则计算Dij正确的式子是( )。 A. D11+3(n(i-1)+(j-1) B. Dkp+3(n(i-k)+(j-p) C. D11+m(i-1)+(j-1) D. D11+n(j-
6、1)+(i-1) E. D11+m(j-1)+(i-1)19、设有说明 type byte=0.7; word=0.15; num=real; var a:byte;b,c:word;d:integer;e:num;f:char; 则下列合法的赋值语句是( ) A、b:=a; B、 d:=c; C、 f:=b; D、a:=f; E、e:=d;20、有如下函数说明: function st(a,b,c:integer):integer begin a:=2*b-2 st:=a+4 div b mod c; end 则下列结果正确定是( )A、st (2,st(1,2,3),4)=6 B、st (
7、2,st(1,2,3),4)=7 C、st (st(1,2,3),2,4)=6 D、st (st(1,2,3),2,4)=4 E、st (2,4 st(1,2,3)=7二、问题解答: (本题共2小题,每题5分,共10分)1、 有一群儿童,他们的年龄之和50岁,其中最大的13岁,有一个是10岁;除去这个10岁儿童之外,其余儿童的年龄都是整数且恰好组成一个等差数列请按由小到大的顺序写出这几个儿童的岁数:_2、有n个不同的整数,从中取出两组来, 要求第一组数里的最小数大于第二组的最大数。问有多少种方案?_三、阅读程序,并写出程序正确的运行结果:(本题共4小题,每题8分,共32分)1、program
8、expl (input,output);var i,s,max : integer ; a:array110 of integer ;begin for i:=1 to 10 do read (ai); max :=a1 ; s:=a1 ; for i:=2 to 10 do beginif smax then max:=s;end; writeln(max=,max)end输入:44 15 -55 4 -8 2 8 9 6 -92、progam exp2(input,output); var p,q,s,t:integer; begin readln(p); for q:=p+1 to 2*
9、p do begin t:=0; s:=(p*q)mod(q-p); if s=0 thenbegint:=p+q+(p*q)div(q-p);write(t:4);end;end;readlnend.输入:124、Program EXP4(input,output); const n=4;type se=array1.n*2 of char;var i,j,i1,j1,k,s,t,s1,L,swap:integer; temp :char; a :se;Begin for i:=1 to n*2 do read(ai);readln; s:=0; t:=0; for i:=1 to n*2
10、do if ai=1 then s:=s+1 else if ai=0 then t:=t+1;if (sn) or (tn) then writeln(error)else begin s1:=0;for i:=1 to 2*n-1 do if aiai+1 then s1:=s1+1;writeln(jamp=,s1); swap:=0;for i:=1 to 2*n-1 dofor j:=i+1 to 2*n doif aiaj then begin temp:=ai;ai:=aj;aj:=temp; s:=0; for L:=1 to 2*n-1 do if aLaL+1 then s
11、:=s+1; if sswap then begin swap:=s; i1:=i; j1:=j end; temp:=ai;ai:=aj;aj:=tempend;if swap0 then writeln(maxswap=,swap-s1, i=,i1, j=,j1)endEnd.输入:001001113、program ex3(output); type arr=array1.4,1.4of integer; var a:arr; x,y:integer; begin for x:=1 to 4 do for y:=1 to 4 do if (x+y=5) or (x-y=3)then a
12、x,y:=1 else ax,y:=0; for x:= 1 to 4 do begin for y:= 1 to 4 do write(ax,y:3); writeln end;end.四、完善程序: (本题共7空,每空4分,28分)1、孪生素数是指两个相差为2的素数,例如:3和5,5和7,11和13等。下面的程序可输入出15对孪生素数,其中函数f判断整数a是否素数。Program p(output);var k,n:intergerfunction f(a:interger):boolean;var k:integer; flag:boolean;begin flag:=_; k:=2;
13、while (k=a div 2) and _do if a mod k=0 then _ else k:=k+1; f:=flag end begin n:=0; k:=2; repeat if f(k) and _ then begin n:=n+1; writeln(k,k+2) end k:=k+1 until n=15 end2、已知有类型说明 : type t1 =rec; rec=record data:integer; next:t1 end;设head为t1型变量,并指向一个不少于2个节点的单链表。过程p1可删除phead所指的链表所有重复节点(即若有多个节点的data域的值
14、相等,则只保留最前面的一个节点)。例如:若原链表为则执行pl(head);后链表为:请完成过程 pl procedure pl(head:t1); var q,p,t1; begin while headnil do begin p:=head; q:=p.next; while qnil do if q.data =head.data then beginxt; dispose(_); q:=p.next end else begin p:=p.next; q:=_ end; head:=head.next end; end;参考答案一、 选择题题号12345678910答案AEBEABCC
15、AD题号11121314151617181920答案ABAAAACEBCDBABABEBDE二、问题求解1、7,9,10,11,132、n2n-1+1 三、看程序写结果 1、max=59 2、181 110 87 76 66 62 61 60 3、0 0 0 10 0 1 00 1 0 01 0 0 0 4、jamp=3 maxswap=3 i=1 j=7四、完善程序1、true flag 或 flag=true flag:=false2、p.next q p.next; 信息学初赛模拟试题(八)(中学组PASCAL语言,两小时完成)请将正确答案在答卷上填写,在本试题卷上答题无效一、选择题(每
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 信息学 初赛 模拟 试题 答案 14
限制150内