信息学初赛模拟试题七、八及答案.pdf

第 1 页 共 13 页 信息学初赛模拟试题信息学初赛模拟试题（七）（七） 一一、 选择一个正确答案代码选择一个正确答案代码 （A/B/C/D） ， 填入每题的括号内填入每题的括号内 （本题共本题共 2020 小题小题， 每题每题 1.51.5 分共分共 3030 分分。 1 11 10 0 小题为单选题，小题为单选题，11112020 小题为不定项选择题，每题有一个或多个答案小题为不定项选择题，每题有一个或多个答案。 ） 1、如果按字长来划分，微型机可以分为 8 位机、16 位机、32 位机和 64 位机。所谓 32 位机是指该计 算机所用的 CPU（） A、同时能处理 32 位二进制数B、具有 32 位的寄存器 C、只能处理 32 位二进制定点数D、有 32 个寄存器 E、存储方式是 32 位 2、下列表达式正确的是（） A、 （1）10（1）2B、 （12）10（10）16C、 （15）8 （10）16 D、 （101）2 （15）16E、 （121）10=（79）16 3、关闭一个活动应用程序窗口，可按快捷键（） A、Ctrl + F4B、Alt + F4C、Alt +EscD、Ctrl+ EscE、Shift+ Esc 4、结构化程序设计的三种结构是（） A、顺序结构、选择结构、转移结构B、分支结构、等价结构、循环结构 C、多分结构、赋值结构、等价结构D、分支结构、顺序结构、选择结构 E、循环结构、顺序结构、选择结构 5、编译程序是指（） A、将高级语言源程序翻译成机器语言程序（目标程序） B、将机器语言源程序翻译成高级语言程序（目标程序） C、对源程序边扫描边翻译执行 D、对目标程序装配连接 E、运行源程序并修改错误 6、在 pascal 语言中下列运算符（）的优先级别最高 A、 ANDB、 NOTC、n) or (tai+1 then s1:=s1+1; writeln(jamp=,s1);swap:=0; for i:=1 to 2*n-1 do for j:=i+1 to 2*n do if aiaL+1 then s:=s+1; if sswap then beginswap:=s;i1:=i;j1:=jend; temp:=ai;ai:=aj;aj:=temp end; ifswap0thenwriteln(maxswap=,swap-s1, i=,i1, j=,j1) end End. 输入：00100111 3、program ex3(output); type arr=array14,14of 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 ax,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. 第 4 页 共 13 页 四、完善程序：四、完善程序： (本题共本题共 7 空，每空空，每空 4 分，分，28 分分) 1、孪生素数是指两个相差为 2 的素数，例如：3 和 5，5 和 7，11 和 13 等。下面的程序可输入出 15 对孪生素数，其中函数 f 判断整数 a 是否素数。 Program p(output); var k,n:interger function f(a:interger):boolean; var k:integer; flag:boolean; begin flag:=_; k:=2; while (knil do begin p:=head; q:=p.next; while qrj) and (j0) do begin rj+1:=rj;j:=j-1;end; rj+1:=k; end; for I:=1 to n do write(rI,); writeln end. 输入: 8 4 9 3 5 输出： 第 2 题（10 分） program test32; var a:array11000 of word; n,i,j,dep:word; begin write(N(1-1000)=); readln(n); 100120 第 9 页 共 13 页 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 begin j:=3; while (j0) do begin dep:=dep mod n+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; begin x:=0.375; while i=1 then begin ai:=1;y:=y-1 end else ai:=0; end; write(0.); for i:=1 to n do write(ai); writeln; x:=x-0.01 end end. 输出： 四、完善程序四、完善程序（每空 2 分，共 28 分） 第 1 题（6 分） 问题描述 彼得在邮局值夜班，十分无聊，他对邮局内的 200 个信筒（编号为 1 到 200） ，全部打开。然后每隔一 个信筒关闭一个（2，4，6，） 。然后每隔两个信筒进行检查（3，6，9，） ，若开着，则关上；若关着， 第 10 页 共 13 页 则打开，接着再每隔 3 个（4，8，12，）作类似工作。问最后结果哪些信筒开着，哪些信筒关着。 Program test41; const maxn=200; var i,j:integer; open:array1maxn of integer; begin for i:=1 to maxn do openi:=1; for i:=2 to maxn do begin j:=i; whiledo begin openj:=; j:=end end; for i:=1 to maxn do if openi=1 then write(i:4); writeln end. 第 2 题（12 分） 问题描述 本程序将自然数 1,2,N*N（）按顺时针方向依次写在 N 阶方阵中。N=5 时方阵如下: 12345 161718196 152425207 142322218 131211109 programtest42; const maxn=10; var i,j,k,m,n:integer; a:array 1maxn,1maxn of integer; begin write(Input n:); readln(n); m:=1; k:=1; repeat i:=k; j:=k; repeat ai,j:=m; j:=j+1; m:=m+1 until; repeat ai,j:=m; i:=i+1; m:=m+1 第 11 页 共 13 页 until; repeat ai,j:=m; j:=j-1; m:=m+1 until; repeat ai,j:=m; i:=i-1; m:=m+1 until; k:=k+1 until kn div 2; ifthen; for i:=1 to n do begin for j:=1 to n do