noip初赛试题.docx
《noip初赛试题.docx》由会员分享，可在线阅读，更多相关《noip初赛试题.docx（7页珍藏版）》请在冰豆网上搜索。
noip初赛试题
第二十届全国青少年信息学奥林匹克联赛初赛
普及组pascal语言试题
1、以下哪个是面向对象的高级语言（）
Ａ.汇编语言Ｂ.Ｃ++Ｃ.FortranD.Basic
2、1ＴＢ代表的字节数量是（）
Ａ.2的10次方Ｂ.2的20次方Ｃ..2的30次方Ｄ..2的40次方
3、二进制数00100100和00010101的和是（）
Ａ.00101000Ｂ.001010100Ｃ.01000101Ｄ.00111001
4、以下哪一种设备属于输出设备
Ａ.扫描仪B.键盘Ｃ.鼠标Ｄ．打印机
5、下列对操作系统功能的描述最为完整的是（）
Ａ.负责外设与主机之间的信息交换
B.负责诊断机器的故障
C．控制和管理计算机系统的各种硬件和软件资源的使用
D.将源程序编译成目标程序
6、CPU、存储器、Ｉ/O设备是通过（）连接起来的
A.接口Ｂ.总线Ｃ.控制线Ｄ.系统文件
7、断电后会丢失数据的存储器是（）
Ａ.ＲＡＭＢ.ＲＯＭC.硬盘Ｄ.光盘
8、以下哪一种是属于电子邮件收发的协议（）
Ａ.ＳＭＴＰＢ.ＵＤＰC.Ｐ2ＰＤ.ＦＴＰ
9、下列选项中不属于图像格式的是（）
Ａ.JPEG格式Ｂ.TXT格式Ｃ.ＧＩＦ格式Ｄ.ＰＮＧ格式
10.链表不具有的特点是（）
Ａ.不必事先估计存储空间B.可随机访问任一元素C.插入删除不需要移动元素D.所需空间与线性表长度成正比
11.下列各无符号十进制整数中，所用八位二进制表示的数中最大的是（）
A.296B.133c.256d.199
12.下列几个32位IP地址中，书写错误的是（）
A.162.105.142.27B.192.168.0.1C.255.256.129.1D.10.0.0.1
13.要求以下程序的功能是计算：
s=1+1/2+1/3+...+1/10。
Var
N:
integer;
S:
real;
Begin
S:
=1.0;
Forn:
=10downto2do
S:
=s+1divn;
Writeln（s:
6:
4）;
End.
A.s:
=1.0;B.forn:
=10downto2doC.S:
=s+1divn;D.writeln（s:
6:
4）;
14.设变量x为real型且已赋值，则以下句子中能将x中的数值保留到小数点后两位，并将第三位四舍五入的是（）。
A.x:
=（x*100）+0.5/100.0
B.X:
=（x*100+0.5）/100.0
C.x:
=trunc（x*100+0.5）/100.0
D.X:
=（x/100+0.5）*100.0
15.有以下程序：
Var
S,a,n:
integer;
Begin
S:
=0;
A:
=1;
Readln（n）;
Repeat
S:
=s+1;
A:
=a-2;
Untila=n;
Writeln（s）;
end.
若要使程序的输出值为2，则应该从键盘给n输入的值是（）
A.-1B.-3c.-5D.0
16.一棵具有5层的满二叉树中结点数为（）
A.31B.32C.33D.16
17.有向图中每个顶点的度等于该顶点的（）
A.入度B.出度C.入席与出度之和D.入度与出度之差
18.设有100个数据元素，采用折半搜索时，最大比较次数为（）
A.6B.7C.8D.10
19.若有如下程序段，其中s、a、b、c均已定义为整型变量，且a、c均已赋值，c>0。
S:
=a;
Forb:
=1tocdo
S:
=s+1;
则与上述程序段功能等价的赋值语句是（）
A.s:
=a+bB.s:
=a+cC.s:
=s+cDs:
=b+c
20.计算机界的最高奖是（）
A.菲尔兹奖B.诺贝尔奖C.图灵奖D.普利策奖
二、问题求解
1、把M个同样的球放到N个同样的袋子里，允许有的袋子空着不放，问共有多少种不同的放置方法？
（用K表示）。
例如：
M＝7，N＝3时，K＝8；在这里认为（5，1，1）和（1，5，1）是同一种放置方法。
问：
M＝8，N＝5时，K＝。
2、如图所示，图中每条边上的数字表示该边的长度，则从A到E的最短距离是（）
三、程序阅读
1、Var
A,b,c,d,ans:
integer;
Begin
Readln（a,b,c）;
D:
=a-b;
A:
=d+c;
Ans:
=a*b;
Writeln（‘ans=’,ans）;
end.
2、Var
N:
integer;
Functionfun（n:
integer）:
integer;Begin
Ifn=1then
Exit
（1）;
Ifn=2then
Exit
（2）;
Exit（fun（n-2）-fun（n-1））;
End;
Begin
Readln（n）;
Writeln（fun（n））;
End.
3、Var
St:
string;
Len,i:
integer;
Begin
Readln（st）;
Len:
=length（st）;
Fori:
=1tolendo
If（st[i]>=’a’）and（st[i]<=’z’）then
St[i]:
=chr（ord（st[i]）-ord（‘a’）+ord（‘A’））;Writeln（st）;
End.
4、Const
Size=100;
Var
P:
array[1..size]ofinteger;N,tot,cn,i:
integer;
Begin
Readln（n）;
Fori:
=1tondo
P[i]:
=1;
Tot:
=0;
Fori:
=2tondo
Begin；Ifp[i]=1then；Tot:
=tot+1;；Cn:
=i*2;；Whilecn<=ndo；Begin；P[cn]:
=0;；Cn:
=cn+i;；End;；End;；Writeln（tot）;；End.；四、完善程序；1.（数字删除）下面程序的功能是将字符串中的数字；Var；S:
string;；Len,i:
integer;；Function
-
Begin
Ifp[i]=1then
Tot:
=tot+1;
Cn:
=i*2;
Whilecn<=ndo
Begin
P[cn]:
=0;
Cn:
=cn+i;
End;
End;
Writeln（tot）;
End.
四、完善程序
1.（数字删除）下面程序的功能是将字符串中的数字字符删除后输出。
请填空
Var
S:
string;
Len,i:
integer;
Functiondelnum（vars:
string）:
integer;
Var
I,j:
integer;
Begin
J:
=1;
Fori:
=1tolength（s）do
If（s[i]<’0’）
（1）（s[i]>’9’）then
Begin
S[j]:
=s[i];
（2）;
End;
Exit（3）;
End;
Begin
Readln（s）;
Len:
=delnum（s）;
Fori:
=1tolendo
Write（（4））;
Writeln;
End.
2、（最大子矩阵和）给出m行n列的整数矩阵，求最大的子矩阵和（子矩阵不能为空）。
输入第一行包含两个整数m和n，即矩阵的行数和列数。
之后m行，每行n个整数，描述整个矩阵。
程序最终输出最大的子矩阵和。
Const
Size=100;
Var
Matrix:
array[1..size,1..size]ofinteger;
Rowsun:
array[1..size,0..size]ofinteger;
M,n,i,j,first,last,area,ans:
integer;
Begin
Read（m,n）;
Fori:
=1tomdo
Forj:
=1tondo
Read（matrix[i,j]）;
Ans:
=matrix
（1）;
Fori:
=1tomdo
（2）;
Fori:
=1tomdo
Forj:
=1tondo
Rowsun[i,j]:
=（3）;
Forfirst:
=1tondo
Forlast:
=firsttondoBegin
（4）;
Fori:
=1tomdoBegin
Area:
=area+（5）If（area>ans）thenArea:
=area;If（area<0）thenArea:
=0;End;
End;
Writeln（ans）;
end.
升级会员 