《2022年NOIP2022普及组初赛试题答案 .pdf》由会员分享，可在线阅读，更多相关《2022年NOIP2022普及组初赛试题答案 .pdf（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、vip 会员免费noip 普及组初赛试题一、单项选择题（共 20 题，每题 1.5 分，共计 30 分。每题有且仅有一个正确答案。 ）1 在以下各项中，（ ）不是 CPU 的组成部分。A控制器 B运算器C寄存器 D主板2在关系数据库中，存放在数据库中的数据的逻辑结构以（）为主。A二叉树 B多叉树C哈希表 D二维表3在下列各项中，只有（）不是计算机存储容量的常用单位。AByte BKB CUB DTB 4ASCII 码的含义是（） 。A二十进制转换码 B美国信息交换标准代码C数字的二进制编码 D计算机可处理字符的唯一编码5一个完整的计算机系统应包括（） 。A系统硬件和系统软件B硬件系统和软件系统
2、C主机和外部设备 D主机、键盘、显示器和辅助存储器6IT 的含义是（） 。A通信技术B信息技术C网络技术D信息学7LAN 的含义是（） 。A因特网 B局域网 C广域网 D城域网8冗余数据是指可以由其它数据导出的数据。例如，数据库中已存放了学生的数学、语文和英语的三科成绩，如果还存放三科成绩的总分，则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如，上面4 个数据如果都是输入的，由于操作错误使总分不等于三科成绩之和， 就会产生矛盾。下面关于冗余数据的说法中， 正确的是 （ ） 。A应该在数据库中消除一切冗余数据B用高级语言编写的数据处理系统，通常比用关系数据库编写的系统更容易消除冗余
3、数据C为了提高查询效率，在数据库中可以保留一些冗余数据，但更新时要做相容性检验D做相容性检验会降低效率，可以不理睬数据库中的冗余数据9在下列各软件，不属于NOIP 竞赛（复赛）推荐使用的语言环境有（） 。Agcc Bg+ CTurbo C DFree Pascal 10以下断电后仍能保存数据的有（） 。A硬盘B高速缓存 C显存 DRAM 11在下列关于计算机语言的说法中，正确的有（） 。A高级语言比汇编语言更高级，是因为它的程序的运行效率更高B随着 Pascal 、C 等高级语言的出现，机器语言和汇编语言已经退出了历史舞台C高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上DC 是
4、一种面向对象的高级计算机语言12近 20 年来，许多计算机专家都大力推崇递归算法，认为它是解决较复杂问题的强有力的工具。在下列关于递归算法的说法中，正确的是（） 。A在 1977 年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归，原因之一是该方法可能会占用更多的内存空间B和非递归算法相比，解决同一个问题，递归算法一般运行得更快一些C对于较复杂的问题，用递归方式编程一般比非递归方式更难一些精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 10 页 - - - - - - -
5、- - - vip 会员免费D对于已经定义好的标准数学函数sin(x)，应用程序中的语句 “y=sin(sin(x);”就是一种递归调用13一个无法靠自身的控制终止的循环成为“ 死循环 ” ，例如，在C 语言程序中，语句“while(1) printf(“*”); ”就是一个死循环，运行时它将无休止地打印*号。下面关于死循环的说法中，只有（）是正确的。A不存在一种算法， 对任何一个程序及相应的输入数据，都可以判断是否会出现死循环，因而，任何编译系统都不做死循环检查B有些编译系统可以检测出死循环C死循环属于语法错误， 既然编译系统能检查各种语法错误，当然也应该能检查出死循环D死循环与多进程中出现
6、的“ 死锁” 差不多，而死锁是可以检测的，因而，死循环也可以检测的14在 Pascal 语言中，表达式（23 or 2 xor 5 ）的值是（） 。A18 B1 C23 D32 15在 Pascal 语言中，判断整数a 等于 0 或 b 等于 0 或 c 等于 0 的正确的条件表达式是（ ） 。Anot (a0) or (b0) or (c0) Bnot (a0) and (b0) and (c0) Cnot (a=0) and (b=0) or (c0) D(a=0) and (b=0) and (c=0) 16地面上有标号为A、B、C 的三根柱，在A 柱上放有 10 个直径相同中间有孔的圆
7、盘，从上到下依次编号为1，2，3 ，将 A 柱上的部分盘子经过B 柱移入 C 柱，也可以在 B 柱上暂存。如果 B 柱上的操作记录为 “ 进、进、出、进、进、出、出、进、进、出、进、出、出 ” 。那么，在 C 柱上，从下到上的编号为（） 。A2 4 3 6 5 7 B2 4 1 2 5 7 C2 4 3 1 7 6 D2 4 3 6 7 5 17与十进制数 1770 对应的八进制数是（） 。A3350 B3351 C3352 D3540 18设 A=B=True ，C=D=False ，一下逻辑运算表达式值为假的有（） 。A(AB)(CDA) B(AB)C)D) CA(BCD)D D(A(DC
8、)B 19(2070)16 + (34)8 的结果是（） 。A（8332） 10 B（208A） 16 C（100000000110 ） 2 D (20212)8 20已知 7 个节点的二叉树的先根遍历是1 2 4 5 6 3 7 （数字为节点的编号，以下同） ，中根遍历是 4 2 6 5 1 7 3 ，则该二叉树的后根遍历是（） 。A4 6 5 2 7 3 1 B4 6 5 2 1 3 7 C4 2 3 1 5 4 7 D4 6 5 3 1 7 2 二、问题求解（共2 题，每题 5 分，共计 10 分） 。1、 （子集划分）将 n 个数（ 1，2，n）划分成 r 个子集。每个数都恰好属于一个
9、子集， 任何两个不同的子集没有共同的数， 也没有空集。将不同划分方法的总数记为S(n,r)。例如， S(4,2)=7 ，这 7 种不同的划分方法依次为 (1),(234) ，(2),(134) ，(3),(124) ，(4),(123)， (12),(34)， (13),(24)， (14),(23)。 当n=6 ， r=3时 ，S(6,3)=_。（提示：先固定一个数，对于其余的5 个数考虑 S(5,3) 与 S(5,2) ，再分这两种情况对原固定的数进行分析。）精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - -
10、-第 2 页，共 10 页 - - - - - - - - - - vip 会员免费2、 （最短路线）某城市的街道是一个很规整的矩形网络（见下图），有 7 条南北向的纵街，5 条东西向的横街。现要从西南角的A 走到东北角的 B，最短的走法共有多少种？_ (图画不了 ) 三、阅读程序写结果（共4 题，每题 8 分，共计 32 分。 ）1、program j301; var i,a,b,c,x,y:integer; p:array0.4 of integer; begin y:=20; for i:=0 to 4 do read(pi); readln; a:=(p0+p1)+(p2+p3+p4)
11、 div 7; b:=p0+p1 div (p2+p3) div p4); c:=p0*p1 div p2; x:=a+b-p(p3+3) mod 4; if (x10) then y:=y+(b*100-a) div (pp4 mod 3*5) else y:=y+20+(b*100-c) div (pp4 mod 3*5); writeln(x,y); end. 注：本例中，给定的输入数据可以避免分母为0 或数组元素下表越界。 输入： 6 6 5 5 3 输出： _ 2、program j302; var a,b:integer; x,y:integer; procedure fun(a,
12、b:integer); var k:integer; begin k:=a; a:=b; b:=k; end; begin a:=3; b:=6; 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 10 页 - - - - - - - - - - vip 会员免费x:=a; y:=b; fun(x,y); writeln(a,b); end. 输出： _ 3、program j303; var a1:array1.50 of integer; i,j,t,t2,n,n2:integer; beg
13、in n:=50; for i:=1 to n do a1i:=0; n2:=round(sqrt(n); for i:=2 to n2 do if (a1i=0) then begin t2:=n div i; for j:=2 to t2 do a1i*j:=1; end; t:=0; for i:=2 to n do if (a1i=0) then begin write(i:4); inc(t); if (t mod 10=0) then writeln; end; writeln; end. 输出： _ _ 4、program j304; type str1=string100; S
14、tr2=string200; var s1:str1; s2:str2; function isalpha(c:char):Boolean; 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 10 页 - - - - - - - - - - vip 会员免费var i:integer; begin i:=ord(c); if (i=65) and (i=97) and (i=48) and (i=57) then isdigit:=true else isdigit:=false; end; p
15、rocedure expand(s1:str1;var s2:str2); var i,j:integer; a,b,c:char; begin j:=1; c:=char(1); i:=0; while (i=ord(s10) do begin inc(i); c:=s1i; if c=- then begin a:=s1i-1; b:=s1i+1; if (isalpha(a) and isalpha(b) or (isdigit(a) and isdigit(b) then begin dec(j); while (ord(upcase(a)ord(upcase(s1i+1) do be
16、gin s2j:=a; inc(j); inc(a); end; end else begin s2j:=c; inc(j); end; 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 10 页 - - - - - - - - - - vip 会员免费end else begin s2j:=c; inc(j); end; end; s20:=char(j-2); end; begin readln(s1); expand(s1,s2); writeln(s2); end. 输入： wer234
17、5d-h454-82qqq 输出： _ 四、完善程序（前4 空，每空 2.5 分，后 6 空，每空 3 分，共 28 分） 。1、 （求字符的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入 -1 终止程序。请将程序补充完整。Program j401; type str1=string100; var line:str1; kz:integer; procedure reverse(var s:str1); var i,j:integer; t:char; begin i:=1; j:=length(s); while (ij) do begin t:=s; s
18、:=sj; sj:=t; ; ; end; end; begin writeln(continue? -1 for end.); readln(kz); while ( )do begin 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 10 页 - - - - - - - - - - vip 会员免费readln(line); ; writeln(line); writeln(continue? -1 for end.); readln(kz); end; end. 2、 （棋盘覆盖问题）在
19、一个2k 2 k 个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为 -1 的方格） ，称之为特殊方格。现用L 型（占 3 个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4 k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的 3 各数字构成一个纸片。下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。(图画不了 .郁闷) Program j402; type arr1=array1.65 of integer; arr2=array1.65 of arr1; var board
20、:arr2; tile:integer; size,dr,dc:integer; procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer); var t,s:integer; begin if (size=1) then ; t:=tile; inc(tile); s:=size div 2; if then chessboard(tr,tc,dr,dc,s) else begin boardtr+s-1:=t; ；end; if (dr=tc+s) then chessboard(tr,tc+s,dr,dc,s)
21、 else begin boardtr+s-1tc+s:=t; ; end; if (dr=tr+s) and (dc=tr+s) and (dc=tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin boardtr+stc+s:=t; ; end; end; procedure prt1(n:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write(boardj:3); writeln; end; end; begin writeln(inpu
22、t size(4/8/16/64):); readln(size); writeln(input the position of special block(x,y):); readln(dr,dc); boarddrdc:=-1; tile:=1; chessboard(1,1,dr,dc,size); prt1(size); end. NOIP 普及组（ Pascal 语言）参考答案与评分标准一、单项选择题：（每题 1.5 分）题号1 2 3 4 5 6 7 8 9 10 答案D D C B B B B C C A 题号11 12 13 14 15 16 17 18 19 20 答案C A
23、 A A B D C D A A 二、问题求解：（每题 5 分）190 2210 三、阅读程序写结果1. 15, 46 （对 1 个数给 4 分，无逗号扣 1 分）2. 3, 6 3. 2 3 5 7 11 13 17 19 23 29 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 10 页 - - - - - - - - - - vip 会员免费 31 37 41 43 47 4. wer2345defgh45456782qqq 四、完善程序 (前 4 空（ -） ，每空 2.5 分，后
24、6 空（ -） ，每空 3 分) 1 inc(i) 或 i:=i+1 dec(j) 或 j:=j-1 kz-1 reverse(line) 2. exit (drtr+s)and(dctc+s) chessboard(tr,tc,tr+s-1,tc+s-1,s) chessboard(tr,tc+s,tr+s-1,tc+s,s) chessboard(tr+s,tc,tr+s,tc+s-1,s) chessboard(tr+s,tc+s,tr+s,tc+s,s) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 10 页 - - - - - - - - - - 文档编码：KDHSIBDSUFVBSUDHSIDHSIBF-SDSD587FCDCVDCJUH 欢迎下载 精美文档欢迎下载 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 10 页 - - - - - - - - - -