NOIPpascal第十三届全国青少学年信息学奥林匹克联赛初赛试题要点.docx
- 文档编号:30660094
- 上传时间:2023-08-19
- 格式:DOCX
- 页数:10
- 大小:23.23KB
NOIPpascal第十三届全国青少学年信息学奥林匹克联赛初赛试题要点.docx
《NOIPpascal第十三届全国青少学年信息学奥林匹克联赛初赛试题要点.docx》由会员分享,可在线阅读,更多相关《NOIPpascal第十三届全国青少学年信息学奥林匹克联赛初赛试题要点.docx(10页珍藏版)》请在冰豆网上搜索。
NOIPpascal第十三届全国青少学年信息学奥林匹克联赛初赛试题要点
第十三届全国青少年信息学奥林匹克联赛初赛试题
( 普及组 Pascal 语言 二小时完成)
● ● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●●
一、 单项选择题(共20题,每题1.5分,共计30分。
每题有且仅有一个正确答案。
)
1.在以下各项中,( )不是CPU的组成部分。
A.控制器 B.运算器 C.寄存器 D.主板
2.在关系数据库中,存放在数据库中的数据的逻辑结构以( )为主。
A.二叉树 B.多叉树 C.哈希表 D.二维表
3.在下列各项中,只有( )不是计算机存储容量的常用单位。
A.Byte B.KB C.UB D.TB
4.ASCII码的含义是( )。
A.二→十进制转换码 B.美国信息交换标准代码
C.数字的二进制编码 D.计算机可处理字符的唯一编码
5.一个完整的计算机系统应包括( )。
A.系统硬件和系统软件 B.硬件系统和软件系统
C.主机和外部设备 D.主机、键盘、显示器和辅助存储器
6.IT的含义是( )。
A.通信技术 B.信息技术 C.网络技术 D.信息学
7.LAN的含义是( )。
A.因特网 B.局域网 C.广域网 D.城域网
8.冗余数据是指可以由其它数据导出的数据。
例如,数据库中已存放了学生的数学、语文和英语的三科成绩,如果还存放三科成绩的总分,则总分就可以看作冗余数据。
冗余数据往往会造成数据的不一致。
例如,上面4个数据如果都是输入的,由于操作错误使总分不等于三科成绩之和,就会产生矛盾。
下面关于冗余数据的说法中,正确的是( )。
A.应该在数据库中消除一切冗余数据
B.用高级语言编写的数据处理系统,通常比用关系数据库编写的系统更容易消除冗余数据
C.为了提高查询效率,在数据库中可以保留一些冗余数据,但更新时要做相容性检验
D.做相容性检验会降低效率,可以不理睬数据库中的冗余数据
9.在下列各软件,不属于NOIP竞赛(复赛)推荐使用的语言环境有( )。
A.gcc B.g++ C.Turbo C D.Free Pascal
10.以下断电后仍能保存数据的有( )。
A.硬盘 B.高速缓存 C.显存 D.RAM
11.在下列关于计算机语言的说法中,正确的有( )。
A.高级语言比汇编语言更高级,是因为它的程序的运行效率更高
B.随着Pascal、C等高级语言的出现,机器语言和汇编语言已经退出了历史舞台
C.高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上
D.C是一种面向对象的高级计算机语言
12.近20年来,许多计算机专家都大力推崇递归算法,认为它是解决较复杂问题的强有力的工具。
在下列关于递归算法的说法中,正确的是( )。
A.在1977年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归,原因之一是该方法可能会占用更多的内存空间
B.和非递归算法相比,解决同一个问题,递归算法一般运行得更快一些
C.对于较复杂的问题,用递归方式编程一般比非递归方式更难一些
D.对于已经定义好的标准数学函数 sin(x),应用程序中的语句“y=sin(sin(x));”就是一种递归调用
13.一个无法靠自身的控制终止的循环成为“死循环”,例如,在C语言程序中,语句“while
(1) printf(“*”);”就是一个死循环,运行时它将无休止地打印*号。
下面关于死循环的说法中,只有( )是正确的。
A.不存在一种算法,对任何一个程序及相应的输入数据,都可以判断是否会出现死循环,因而,任何编译系统都不做死循环检查
B.有些编译系统可以检测出死循环
C.死循环属于语法错误,既然编译系统能检查各种语法错误,当然也应该能检查出死循环
D.死循环与多进程中出现的“死锁”差不多,而死锁是可以检测的,因而,死循环也可以检测的
14.在Pascal语言中,表达式 (23 or 2 xor 5)的值是( )。
A.18 B.1 C.23 D.32
15.在Pascal语言中,判断整数a等于0或b等于0或c等于0的正确的条件表达式是( )。
A.not ((a<>0) or (b<>0) or (c<>0))
B.not ((a<>0) and (b<>0) and (c<>0))
C.not ((a=0) and (b=0)) or (c<>0)
D.(a=0) and (b=0) and (c=0)
16.地面上有标号为A、B、C的三根柱,在A柱上放有10个直径相同中间有孔的圆盘,从上到下依次编号为1,2,3……,将A柱上的部分盘子经过B柱移入C柱,也可以在B柱上暂存。
如果B柱上的操作记录为“进、进、出、进、进、出、出、进、进、出、进、出、出”。
那么,在C柱上,从下到上的编号为( )。
A.2 4 3 6 5 7 B.2 4 1 2 5 7 C.2 4 3 1 7 6 D.2 4 3 6 7 5
17.与十进制数1770对应的八进制数是( )。
A.3350 B.3351 C.3352 D.3540
18.设A=B=True,C=D=False,一下逻辑运算表达式值为假的有( )。
A.(﹁A∧B)∨(C∧D∨A) B.﹁(((A∧B)∨C)∧D)
C.A∧(B∨C∨D)∨D D.(A∧(D∨C))∧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,则该二叉树的后根遍历是( )。
A.4 6 5 2 7 3 1 B.4 6 5 2 1 3 7 C.4 2 3 1 5 4 7 D.4 6 5 3 1 7 2
二、问题求解(共2题,每题5分,共计10分)。
1、(子集划分)将n个数(1,2,…,n)划分成r个子集。
每个数都恰好属于一个子集,任何两个不同的子集没有共同的数,也没有空集。
将不同划分方法的总数记为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),再分这两种情况对原固定的数进行分析。
)
2、(最短路线)某城市的街道是一个很规整的矩形网络(见下图),有7条南北向的纵街,5条东西向的横街。
现要从西南角的A走到东北角的B,最短的走法共有多少种?
___________
三、阅读程序写结果(共4题,每题8分,共计32分。
)
1、program j301;
var i,a,b,c,x,y:
integer;
p:
array[0..4] of integer;
begin
y:
=20;
for i:
=0 to 4 do read(p);
readln;
a:
=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;
b:
=p[0]+p[1] div ((p[2]+p[3]) div p[4]);
c:
=p[0]*p[1] div p[2];
x:
=a+b-p[(p[3]+3) mod 4];
if (x>10)
then y:
=y+(b*100-a) div (p[p[4] mod 3]*5)
else
y:
=y+20+(b*100-c) div (p[p[4] mod 3]*5);
writeln(x,',',y);
end.
{注:
本例中,给定的输入数据可以避免分母为0或数组元素下表越界。
}
输入:
6 6 5 5 3 输出:
______________________
2、program j302;
var a,b:
integer;
var x,y:
^integer;
procedure fun(a,b:
integer);
var k:
integer;
begin k:
=a; a:
=b; b:
=k; end;
begin
a:
=3; b:
=6;
x:
=@a; y:
=@b;
fun(x^,y^);
writeln(a,',',b);
end.
输出:
_______________________________
3、program j303;
var a1:
array[1..50] of integer;
var i,j,t,t2,n,n2:
integer;
begin
n:
=50;
for i:
=1 to n do a1:
=0;
n2:
=round(sqrt(n));
for i:
=2 to n2 do
if (a1=0) then
begin
t2:
=n div i;
for j:
=2 to t2 do a1[i*j]:
=1;
end;
t:
=0;
for i:
=2 to n do
if (a1=0) then
begin
write(i:
4); inc(t);
if (t mod 10=0) then writeln;
end;
writeln;
end.
输出:
_____________________________________________
_____________________________________________
4、Program j304;
Type str1=string[100];
Str2=string[200];
Var
S1:
str1; s2:
str2;
Function isalpha(c:
char):
Boolean;
Var i:
integer;
Begin
i:
=ord(c);
if ((i>=65) and (i<=90)) or ((i>=97) and (i<=122)) then
isalpha:
=true
else isalpha:
=false;
end;
function isdigit(c:
char):
Boolean;
var i:
integer;
begin
i:
=ord(c); if (i>=48) and (i<=57) then isdigit:
=true
else isdigit:
=false;
end;
procedure 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(s1[0])) do
begin inc(i); c:
=s1;
if c='-' then begin {1}
a:
=s1[i-1]; b:
=s1[i+1];
if (isalpha(a) and isalpha(b)) or (isdigit(a) and isdigit(b)) then begin
dec(j);
while (ord(upcase(a)) begin s2[j]: =a; inc(j); inc(a); end; end else begin s2[j]: =c; inc(j); end; end{1} else begin s2[j]: =c; inc(j); end; end; s2[0]: =char(j-2); end; begin readln(s1); expand(s1,s2); writeln(s2); end. 输入: wer2345d-h454-82qqq 输出: __________________________ 四、完善程序(前4空,每空2.5分,后6空,每空3分,共28分)。 1、(求字符的逆序)下面的程序的功能是输入若干行字符串,每输入一行,就按逆序输出该行,最后键入-1终止程序。 请将程序补充完整。 Program j401; type str1=string[100]; var line: str1; kz: integer; procedure reverse(var s: str1); var i,j: integer; t: char; begin i: =1; j: =length(s); while (i t: =s; s: =s[j]; s[j]: =t; ①; ② ; end; end; begin writeln(‘continue? -1 for end.’); readln(kz); while (③ )do begin readln(line); ④; writeln(line); writeln(‘continue? -1 for end.’); readln(kz); end; end. 2、(棋盘覆盖问题)在一个2k×2 k个方格组成的棋盘中恰有一个方格与其它方格不同(图中标记为-1的方格),称之为特殊方格。 现用L型(占3个小方格)纸片覆盖棋盘上除特殊方格的所有部分,各纸片不得重叠, 于是,用到的纸片数恰好是(4 k-1)/3。 在下表给出的一个覆盖方案中,k=2,相同的3个数字构成一个纸片。 下面给出的程序使用分治法设计的,将棋盘一分为四,依次处理左上角、右上角、左下角、右下角,递归进行。 请将程序补充完整。 Program j402; type arr1=array[1..65] of integer; arr2=array[1..65] of arr1; var board: 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 board[tr+s-1]: =t; ⑦;end; if (dr else begin board[tr+s-1][tc+s]: =t; ⑧; end; if (dr>=tr+s) and (dc else begin board[tr+s][tc+s]: =t; ⑨; end; if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin board[tr+s][tc+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(board[j]: 3); writeln; end; begin writeln(‘input size(4/8/16/64): ’); readln(size); writeln(‘input the position of special block(x,y): ’); readln(dr,dc); board[dr][dc]: =-1; tile: =1; chessboard(1,1,dr,dc,size); prt1(size); end. 古今名言 敏而好学,不耻下问——孔子 业精于勤,荒于嬉;行成于思,毁于随——韩愈 兴于《诗》,立于礼,成于乐——孔子 己所不欲,勿施于人——孔子 读书破万卷,下笔如有神——杜甫 读书有三到,谓心到,眼到,口到——朱熹 立身以立学为先,立学以读书为本——欧阳修 读万卷书,行万里路——刘彝 黑发不知勤学早,白首方悔读书迟——颜真卿 书卷多情似故人,晨昏忧乐每相亲——于谦 书犹药也,善读之可以医愚——刘向 莫等闲,白了少年头,空悲切——岳飞 发奋识遍天下字,立志读尽人间书——苏轼 鸟欲高飞先振翅,人求上进先读书——李苦禅 立志宜思真品格,读书须尽苦功夫——阮元 非淡泊无以明志,非宁静无以致远——诸葛亮 熟读唐诗三百首,不会作诗也会吟——孙洙《唐诗三百首序》 书到用时方恨少,事非经过不知难——陆游 问渠那得清如许,为有源头活水来——朱熹 旧书不厌百回读,熟读精思子自知——苏轼 书痴者文必工,艺痴者技必良——蒲松龄 声明 访问者可将本资料提供的内容用于个人学习、研究或欣赏,以及其他非商业性或非盈利性用途,但同时应遵守著作权法及其他相关法律的规定,不得侵犯本文档及相关权利人的合法权利。 谢谢合作! 如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。 copyright@ 2008-2022 冰点文档网站版权所有 经营许可证编号:鄂ICP备2022015515号-1=tc+s) then chessboard(tr,tc+s,dr,dc,s)
冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。