2019年noip普及组初赛模拟试卷(附答案)

选择一个正确答案代码（A/B/C/D）,填入每题的括号内(每题分,多选无分, 共30 分)

题号 1 2 ３ 4 5 6 7 8 9 10 选择 C D C D D B B A B C

题号11 12 13 14 15 16 17 18 19 20 选择 C D D A B C C D C B 二．问题求解（共2题，每题5分，共计10分）

1. 当m=4，n=4时选法数=35

2. 共有多少种选法1360

二. 阅读程序，并写出程序的正确运行结果：（共4题，每题8分，共32分）

1. 程序的运行结果是: 126

2. 程序的运行结果是: 115 112

3．程序的运行结果是:11

4. 程序的运行结果是:DCBA CDBA CBDA CBAD BDCA BCDA BCAD BADC BACD ADCB ACDB ACBD ABDC ABCD

Num=14

四.根据题意, 将程序补充完整(每空分，共28分)

1.

①readln(d,i);

②d-1

③x*2+1

④a[x]:=（4）true;

2.

①j<=trunc(sqrt(k))

②L-1

③a[v]<=m

④inc(v)

⑤s=2*L-1

一、选择题：共20题，每题分，共计30分

1. 关于计算机语言，正确的说法是(C)。

A．BASIC语言是一种高级语言，每台计算机都必须配备

B．汇编语言是一种比BASIC语言更高级的计算机语言

C．机器语言是计算机可以直接识别的语言，但编程比较困难

D．PASCAL语言是BASIC语言的更高版本

2. 计算机接入网络后，它的功能会大大拓展，主要表现在（ D ）。

A．共享资源与分担负荷B．数据通讯

C．可以使用他人的资源D．以上三项功能都有

【分析与解答】计算机网络能够实现的功能是：数据通讯，资源共享，实现信息的分布式处理和提高计算机系统的可靠性与实用性。

故本题答案为D。

3. 若某数的原码为A7H，则其对应的补码为( C )。

A. D7H D. 07H

【分析与解答】因为该数原码的最高有效位为1，所以可知它是一个负数。而负数的补码应该在它原码的基础上按位取反(符号位除外)，然后再在末尾加1获得。(负数的补码也可以这样获得：在它所对应的正数的原码基础上按位取反，然后再在末尾加1。)

故本题答案为D9H。

4. 下列关于数组的叙述，正确的是(D)。

A．下标是数组元素

B．数组中的下标不能是表达式

C．一个n×n的二维数组A(n,n),其元素个数与2个一维数组A(n)相同

D．数组元素存放的都是同一种类型的数据

5. 下面的CPU型号中运算速度最快的是(D)

A、准32位2G 、

B、32位

C、32位2G

D、64位

6. 十进制数等值于二进制数( B )。

A．B．C．

D．

7. 在计算机里如果用四个字节来表示有符号的整数，那么整数的范围最大的是：B

^31+1到2^31-1 B. -2^31到2^31-1 C. -2^31到2^31 D. -2^31+1到2^31

8. 在TCP/IP网络中，数据一旦传送到目的节点，通过什么机制可以将其传送给指定的应用程序？(A)

A、端口号

B、API头部信息

C、SNAP头部信息

D、OSI层序号

9. 以下关于Internet的叙述中：

①Internet互联网是一种局域网

②WWW(World Wide Web)是Internet上最广泛的应用之一

③Internet使用TCP／IP协议把异构的计算机网络进行互连

④连接到Intemet上的每一台计算机都有惟一的IP地址

正确的叙述是( B )。

A．①②B．②③④C．③④D．①②③④

【分析与解答】Internet是一个在全球范围内将成千上万个网络连接起来而形成的互联网络。在Internet上的每一台计算机都采用一种统一的通信协议TCP／IP协议进行连接，且具有惟一的IP地址进行标识，使这些网络中的各种信息资源成为一个共享的数据资源网，以供网络上的用户共享。WWW是基于Internet 的信息检索服务系统，由于它具有先进的设计思想与极易使用的界面，使其成为Internet上最广泛的应用之一。

故本题答案为B。

10.一个文本屏幕有40列及80行，屏幕的左上角以(1,1)表示，而右下角则以(80,40)表示，屏幕上每一个字符占用两字节(byte)，整个屏幕则以线性方式存储在电脑的存储器内，内屏幕左上角开始，位移为SA，然后逐列逐列存储。求位於屏幕(X,Y)的第一个字节的位移是(C)

A.(Y*80+X)*2-1+SA

B.(Y*80+X-1)*2+SA

C. ((Y-1)*80+X-1)*2+SA

D. ((Y-1)*80+X)*2-1+SA

11.冒泡法排序的算法如下:

比较相邻的两个数据，若是逆序，交换两个数据的位置，否则比较下一对，直到将全部序列排好为止。若用冒泡法将数据3，2，6，5按从小到大进行排列,则需要进行数据比较的次数是(C)。

12.设待排序的记录为(49，38，65，97，76，13，27 , 49, 55, 4)，经过下过程将序列排序

第一趟：13, 27, 49, 55, 4, 49, 38, 65, 97, 76

第二趟：13, 4, 49, 38, 27, 49, 55, 65, 97, 76

第三趟：4, 13, 27, 38, 49, 49, 55, 65, 76, 97

问它所用的方法是：(D)

A. 冒泡排序

B. 直接选择排序

C. 直接插入排序

D. 希尔排序

13. 在编程时（使用任一种高级语言，不一定是Pascal）,如果需要从磁盘文件中输入一个很大的二维数组（例如1000*1000 的double 型数组），按行读（即外层循环是关于行的）与

按列读（即外层循环是关于列的）相比，在输入效率上（D ）。

A. 没有区别

B. 有一些区别，但机器处理速度很快，可忽略不计

C. 按行读的方式要高一些

D. .取决于数组的存储方式。

14. 与十进制数对应的八进制数是（ A ）。

A. B. C.

D. 前3 个答案都不对

15. 已知6 个结点的二叉树的先根遍历是1 2 3 4 5 6（数字为结点的编号，以下同），后根遍历是3 2 5 6 4 1，则该二叉树的可能的中根遍历是（ B ）

A. 3 2 1 4 6 5

B. 3 2 1 5 4 6

C. 3 1 2 5 4 6

D. 2 3 1 4 6 5

16. Ip v6地址是由( C ) 位二进制数码表示的。

A)16 B)32 C) 128 D) 64

17. 表达式(1+34)*5-56/7 的后缀表达式为（ C ）。

A） 1+34*5-56/7 B） -*+1 34 5/56 7 C） 1 34 +5*56 7/- D） 1 34 5* +56 7/-

18. 计算机是由（D）、控制器、存储器、输入设备和输出设备构成的

O

19. 在PASCAL表达式中（23 xor 18 mod 5 and 7）的结果是( C)

20.揭露绝密电子监听计划——棱镜计划的人是（B ）

A. 布拉德利·曼宁

B. 爱德华·斯诺登

C. 朱利安·阿桑奇

D. 尼尔·埃尔斯伯格

二、问题解答：(共2题，每题5分，共10分)

1. 一个商场有m种颜色的小球，每种小球足够多，在这m种小球中挑选n个小球的选法有多少种？如m=2，n=3 时有4种选法分别是：两种小球的个数分别为03，12，21，30．问：当m=4，n=4时选法数=35。

解：球的颜色组合问题，由下表计算共35种选法。

2. 有30个连续的自然数，在其中选三个数，这三个数的和能整除3，共有多少种选法？3*C(10,3)+C(10,1)*C(10,1)*C(10,1)=1360

三、写出程序的运行结果(共4题，每题8分，共32分)

1. const

u：array[1．．4] of integer = (0，5，3，1)；

v：array[1．．4] 0f integer = (0，7，6，5)；

var a，b，c，d，e，f，x，y，z：integer；

begin

read (a，b，c，d，e，f)；

z ：= f + e + d + (c+3) div 4；y ：= 5 * d + u [ c mod 4 ]；

if (b>y) then

begin

z ：= z+ (b-y+8) div 9；

x ：= ((b-y+8) div 9 * 9- (b-y)) * 4+11*e+V[c mod 4]；

end

else

x ：= (y-b) *4+11*e+v[c mod 4]；

if (a>x) then

z ：= z + (a-x+35) div 36；

writeln(z)；

end．

输入: 4 7 9 20 56 47

输出:

126

2. Var S:string; i:integer;m1,m2:char;

begin readln(s);

n1:= ‘ ‘;

m2:=’ ‘;

for i:=1 to length(s) do

if s[i] > m1 then

begin

m2:=m1;

m1:=s[i];

end

else if s[i] > m2 then

m2:=s[i];

writeln(ord(m1), ‘ ‘, ord(m2));

end.

输入noip 2013 shanghai

输出115 112

NN=7; Type

Arr1=array[0..30] of char;

var s:arr1;

k,p:integer;

function fun1(s:arr1; a:char;n:integer):integer;

var j:integer; begin

j:=n;

while (a0) do dec(j);

fun1:=j;

end;

Function fun2(s:arr1; a:char; n:integer):integer; var j:integer; begin

j:=1;

while (a>s[j])and(j

fun2:=j;

end;

begin

for k:=1 to NN do s[k]:=chr(ord('A')+2*k+1);

k:=fun1(s,'M',NN)+fun2(s,'M',NN);

writeln(k);

end.

输出：11

4. const n=4;

type tt=array[1..100]of char;

var inp,t:tt;

k,num:integer;

procedure push(out,s:tt;it,ot,st:integer);

var k:integer;

c:tt;

begin

if it>0 then begin

c:=s;

c[st+1]:=inp[it];

push(out,c,it-1,ot,st+1);

end;

if st>0 then begin

c:=out;

c[ot+1]:=s[st];

push(c,s,it,ot+1,st-1);

end;

if ot=n then begin

num:=num+1;

for k:=1 to n do write(out[k]);

write(' ');

end;

end;

begin

for k:=n downto 1 do inp[k]:=chr(65-k+n);

num:=0;

push(t,t,n,0,0);

writeln;

writeln('num=',num);

end.

输出DCBA CDBA CBDA CBAD BDCA BCDA BCAD BADC BACD ADCB ACDB ACBD ABDC ABCD

Num=14

四、完善程序(前8空每空 3 分，最后一空4分共28 分)

1. 许多小球一个一个地从一棵满二叉树上掉下来组成另一棵满二叉树。每一时刻，一个正在下降的球第一个访问的是非叶子节点；继续下降时，或者走右子树，或者走左子树，直到访问到叶子节点。决定球运动方向的是每个节点的布尔值。最初，所有的节点的布尔值都是flase。当球访问到一个节点时，如果这个节点是FALSE，则这个球把它变成TRUE，然后从左子树走，继续它的旅程。如果节点是TRUE，则球会改变它为FALSE，接下来从右子树走。

若给定fbt的深度D，现在第I个小球下落，且I不超过给定的fbt的叶子数，写一个程序求小球停止时的叶子序号。

输入格式：输入文件共一行，包含两个用空格隔开的整数D和I，其中2≤D≤20，1≤I≤524288。

输出格式：共一行，输出第I个小球下落停止时的叶子序号。

输入样例：4 4 输出样例12

[程序]：

var d,i,j,k,x:longint;

a:array[1..5242]of boolean;

begin （1）readln(d,i);

fillchar(a,sizeof(a),false);

for j:=1 to i do

begin x:=1 ;

for k:=1 to （2）d-1 do

if a[x] then

begin a[x]:=false;

x:=（3）x*2+1;

end

else

begin

a[x]:=（4）true;

x:=x*2;

end;

end;

writeln(x);

end.

2.金蝉素数

【问题描述】某古寺的一块石碑上依稀刻有一些三位与四位的神秘自然数。专家研究发现：这些数是素数，且从低位去掉一位，或两位，……后都仍为素数，从高位去掉一位，或两位，……后也都仍为素数，更奇妙的是同时去掉它的最高位与最低位数字后还是素数。因此，人们把这些神秘的素数称为金蝉素数，喻意金蝉脱壳之后仍为美丽的金蝉。

试求出石碑上的金蝉素数。

【程序清单】

var a: array[1..400]of integer;

s,u,i,j,k,l,v,t,m,w,n:integer;

begin

a[1]:= 2; a[2] := 3; a[3] := 5;

a[4]:= 7; u := 4;

For k:= 11 To 9999 do

if k mod 2=1 then begin

j:=3;

while (1) and(k mod j<>0) do j:=j+1;

If j >trunc(Sqrt(k)) Then begin

IF a[u]<1000 THEN begin u:=u+1;

a[u]:=k end;

IF k>100 THEN begin

L:=trunc(ln(k)/ln(10))+1;

t:=1;s:=0;

For i := 1 To (2) do begin

t := t * 10; w := trunc(k / t);

m := k - w * t;

V := 1; n := 10000;

IF i=L-1 THEN n:=trunc(m/10);

WHiLE (a[v]<=W) OR (3) do begin

If a[V] = w Then s := s + 1;

IF a[v]=m THEN S:=S+1;

IF a[v]=n THEN S:=S+1;

(4);

end;

end;

If (5) Then writeln(k);

END

end

end; End.

(1)j<=trunc(sqrt(k)) (2)L-1 (3) a[v]<=m (4)inc(v) (5)s=2*L-1