当前位置:首页 >> 学科竞赛 >>

NOIP2015普及组初赛试题及答案(Pascal)


第二十一届全国青少年信息学奥林匹克联赛初赛
普及组 Pascal 语言试题 竞赛时间:2015 年 10 月 11 日 14:30~16:30
选手注意: ? ? 试题纸共有 7 页,答题纸共有 2 页,满分 100 分。请在答题纸上作答,写在试题纸上一律无效。 不得使用任何电子设备(如计算器、手机、电子词典等)或查阅任何书籍资料。

一. 单项选择题 (共 20 题,每题 1.5 分,共计 30 分;每题有且仅有一个正确答案。)

1. 1MB 等于( )。 A. 1000 字节 C. 1000 ? 1000 字节 B. 1024 字节 D. 1024 ? 1024 字节

2. 在 PC 机中,PENTIUM(奔腾)、酷睿、赛扬等是指( )。 A. 生产厂家名称 B. 硬盘型号 C. CPU 的型号 D. 显示器的型号

3. 操作系统的作用是( )。 A. 把源程序译成目标程序 C. 控制和管理系统资源 B. 便于进行数据管理 D. 实现硬件之间的连接

4. 在计算机内部用于传送、存贮、加工处理的数据或指令都是以( )形式进行的。 A. 二进制码 5. 下列说法正确的是( B. 八进制码 )。 C. 十进制码 D. 智能拼音码

A. CPU 的主要任务是执行数据运算和程序控制 B. 存储器具有记忆能力,其中信息任何时候都不会丢失 C. 两个显示器屏幕尺寸相同,则它们的分辨率必定相同 D. 个人用户只能使用 Wifi 的方式连接到 Internet 6. 二进制数 00100100 和 00010100 的和是( )。 A. 00101000 B. 01110011 C. 01000100 D. 00111000

7. 与二进制小数 0.1 相等的十六进制数是( )。 CCF NOIP2015 初赛普及组 Pascal 语言试题
第 1 页 共 8 页

A. 0.8

B. 0.4

C. 0.2

D. 0.1

8. 所谓中断是指( )。 A. 操作系统随意停止一个程序的运行 B. 当出现需要时,CPU 暂时停止当前程序的执行转而执行处理新情况的过程 C. 因停机而停止一个程序的运行 D. 电脑死机 9. 计算机病毒是( )。 A. 通过计算机传播的危害人体健康的一种病毒 B. 人为制造的能够侵入计算机系统并给计算机带来故障的程序或指令集合 C. 一种由于计算机元器件老化而产生的对生态环境有害的物质 D. 利用计算机的海量高速运算能力而研制出来的用于疾病预防的新型病毒 10. FTP 可以用于( )。 A. 远程传输文件 B. 发送电子邮件 C. 浏览网页 D. 网上聊天

11. 下面哪种软件不属于即时通信软件( )。 A.QQ B.MSN C.微信 D.P2P

12. 6 个顶点的连通图的最小生成树,其边数为( )。 A. 6 B. 5 )。 C. 7 D. 4

13. 链表不具备的特点是( A.可随机访问任何一个元素

B.插入、删除操作不需要移动元素 C.无需事先估计存储空间大小 D.所需存储空间与存储元素个数成正比 14. 线性表若采用链表存储结构,要求内存可用存储单元地址( )。 A. 必须连续 C. 一定不连续 B. 部分地址必须连续 D. 连续不连续均可

15. 今有一空栈 S,对下列待进栈的数据元素序列 a,b,c,d,e,f 依次进行进栈,进栈,出栈,进栈,进栈, CCF NOIP2015 初赛普及组 Pascal 语言试题
第 2 页 共 8 页

出栈的操作,则此操作完成后,栈 S 的栈顶元素为( A. f B. c C. a

)。 D. b )。

16. 前序遍历序列与中序遍历序列相同的二叉树为( A.根结点无左子树的二叉树 B.根结点无右子树的二叉树

C.只有根结点的二叉树或非叶子结点只有左子树的二叉树 D.只有根结点的二叉树或非叶子结点只有右子树的二叉树 17. 如果根的高度为 1,具有 61 个结点的完全二叉树的高度为( ) 。 A. 5 B. 6 C. 7 D. 8

18. 下列选项中不属于视频文件格式的是( )。 A.TXT B.AVI C.MOV D.RMVB

19. 设某算法的计算时间表示为递推关系式 T(n) = T(n - 1) + n(n 为正整数)及 T(0) = 1,则该算法 的时间复杂度为( )。 A. O(log n) B. O(n log n) C. O ( n) D. O(n )
2

20. 在 NOI 系列赛事中参赛选手必须使用由承办单位统一提供的设备。下列物品中不允许选手自带的是 ( )。 B.笔 C.身份证 D.准考证

A.鼠标

二. 问题求解(共 2 题,每空 5 分,共计 10 分;每题全部答对得 5 分,没有部分分) 1. 重新排列 1234 使得每一个数字都不在原来的位置上,一共有_________种排法。 2. 一棵结点数为 2015 的二叉树最多有_________个叶子结点。

三. 阅读程序写结果(共 4 题,每题 8 分,共计 32 分) 1. var a, b, c: integer; begin a := 1; CCF NOIP2015 初赛普及组 Pascal 语言试题
第 3 页 共 8 页

b := 2; c := 3; if a > b then begin if a > c then write(a, ' ') else write(b, ' '); end; writeln(c); end.

输出: 2. type point = record x: longint; y: longint; end; EX = record a: longint; b: longint; c: point; end; var e: EX; begin e.a := 1; e.b := 2; e.c.x := e.a + e.b; e.c.y := e.a * e.b; writeln(e.c.x, ',', e.c.y); end.

输出: 3. var CCF NOIP2015 初赛普及组 Pascal 语言试题
第 4 页 共 8 页

str: string; i: longint; count: longint; begin count := 0; readln(str); for i := 1 to length(str) do begin if (str[i] >= 'a') and (str[i] <= 'z') then inc(count); end; writeln('It has ', count, ' lowercases'); end. 输入:NOI2016 will be held in Mian Yang. 输出: 4. type p_char = ^char; var c1, c2: char; p1, p2: p_char; procedure fun(a, b: p_char); begin a := b; inc(a^); end; begin c1 := 'A'; c2 := 'a'; p1 := @c1; p2 := @c2; fun(p1, p2); writeln(c1, c2); end.

输出: CCF NOIP2015 初赛普及组 Pascal 语言试题
第 5 页 共 8 页

四. 完善程序 (前 4 空,每空 3 分,后 4 空,每空 4 分,共 28 分) 1 . (打印月历)输入月份 m( 1 ? m ? 12 ),按一定格式打印 2015 年第 m 月的月历。(第三、四空 2.5 分, 其余 3 分) 例如,2015 年 1 月的月历打印效果如下(第一列为周日):

S

M

T

W

T 1

F 2 9 16 23 30

S 3 10 17 24 31

4 11 18 25

5 12 19 26

6 13 20 27

7 14 21 28

8 15 22 29

const dayNum: array [1..12] of longint = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var m, offset, i: longint; begin read(m); writeln('S', #9, 'M', #9, 'T', #9, 'W', #9, 'T', #9, 'F', #9, 'S'); // #9 为 TAB 制表符 (1) ;

for i := 1 to m - 1 do offset := (2) ;

for i := 1 to offset do write(#9); for i := 1 to begin write( (4) ); (5) = 0) then (3) do

if (i = dayNum[m]) or ( writeln else write(#9); end; end.

CCF NOIP2015 初赛普及组 Pascal 语言试题
第 6 页 共 8 页

2. (中位数)给定 n(n 为奇数且小于 1000)个整数,整数的范围在 0~m( 0 ? m ? 2 )之间,请使用
31

二分法求这 n 个整数的中位数。所谓中位数,是指将这 n 个数排序之后,排在正中间的数。(第五空 2 分, 其余 3 分)

const MAXN = 1000; var n, i, lbound, rbound, mid, m, count:longint; x: array[1..MAXN] of longint; begin read(n, m); for i := 1 to n do read(x[i]); lbound := 0; rbound := m; while begin mid := (lbound + rbound) div 2; (2) ; (1) do

for i := 1 to n do if (3) (4) then ;

if count > n div 2 then lbound := mid + 1 else (5) end; writeln(rbound); end. ;

CCF NOIP2015 初赛普及组 Pascal 语言试题
第 7 页 共 8 页









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

题号 选择 题号 选择

1 D 11 D

2 C 12 B

3 C 13 A

4 A 14 D

5 A 15 B

6 D 16 D

7 A 17 B

8 B 18 A

9 B 19 D

10 A 20 A

二.问题解答

(每题 5 分,共 10 分) 9
1008

1. 答: 2. 答:

三. 阅读程序,并写出程序的正确运行结果:(每题 8 分,共 32 分)

(1) 程序的运行结果是: (2) 程序的运行结果是: (3) 程序的运行结果是: (4) 程序的运行结果是:

3 3,2 It has 18 lowercases Ab

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

1. 1) 2) 3) 4) 5)
offset := 4 (dayNum[i] + offset) mod 7 dayNum[m] i (offset + i) mod 7

2. 1) 2) 3) 4) 5)
lbound < rbound count := 0 x[i] > mid inc(count) rbound := mid

CCF NOIP2015 初赛普及组 Pascal 语言试题
第 8 页 共 8 页


相关文章:
NOIP2015普及组初赛试题及答案(Pascal).doc
NOIP2015普及组初赛试题及答案(Pascal)_学科竞赛_初中教育_教育专
NOIP2015普及组初赛试题及答案(PASCAL).pdf
NOIP2015普及组初赛试题及答案(PASCAL)_电子/电路_工程科技_专业
NOIP2015初赛普及组C++试题及参考答案.doc
NOIP2015初赛普及组C++试题及参考答案_财会/金融考试_资格考试/认证_教育专区。...noip2015初赛普及组试题... 18页 免费 NOIP2015普及组Pascal试... 7页 1...
NOIP2015普及组Pascal试题.pdf
a D. b CCF NOIP2015 初赛普及组 Pascal 语言试题
NOIP2015提高组Pascal试题及参考答案.doc
NOIP2015提高组Pascal试题及参考答案_其它考试_资格...第二十一届全国青少年信息学奥林匹克联赛初赛 提高组...
NOIP2015初赛普及组C++题目及答案.doc
NOIP2015初赛普及组C++题目及答案_学科竞赛_高中教育_教育专区。本文是noip2015普及组c++的题目及答案,有需要的可以下载学习。 第二十一届全国青少年信息学奥林...
NOIP2015初赛普及组C++试题及参考答案.pdf
NOIP2015初赛普及组C++试题及参考答案_学科竞赛_初中教育_教育专区。第二十一届全国青少年信息学奥林匹克联赛初赛普及组 C++语言试题 竞赛时间:2015 年 10 月 11 ...
NOIP2015提高组Pascal试题及参考答案汇总.doc
NOIP2015提高组Pascal试题及参考答案汇总 - 第二十一届全国青少年信息学奥林匹克联赛初赛 提高组 Pascal 语言试题 竞赛时间:2015 年 10 月 11 日 14:30~16...
noip2015 初赛普及组C++试题及参考答案.doc
noip2015 初赛普及组C++试题及参考答案_学科竞赛_初中教育_教育专区。NOIP,信息学奥林匹克,竞赛,普及组,试题,答案 Noip 2015 初赛普及组 C++试题 第二十一届全国...
noip2015普及组答案.pdf
noip2015普及组答案_学科竞赛_初中教育_教育专区。2015年全国信息学奥林匹克竞赛...本省专家审定及 上机验证,可以不上报 CCF NOI 科学委员会复核) Pascal 语言 ...
noip2013普及组初赛试题及答案(pascal)_图文.doc
noip2013普及组初赛试题及答案(pascal)_财会/金融考试_资格考试/认证_教育专区。...NOIP2015普及组初赛试题... 8页 5下载券 NOIP2013普及组PASCAL初... 9...
2015-2016NOIP 初赛试题及答案 C++.pdf
2015-2016NOIP 初赛试题及答案 C++_学科竞赛_初中教育_教育专区。noip 普及组 初赛 试题及答案 第二十一届全国青少年信息学奥林匹克联赛初赛普及组C++语言试题 竞赛...
NOIP2012普及组初赛及答案(Pascal).doc
NOIP2012普及组初赛及答案(Pascal)_学科竞赛_初中教育_教育专区。更新第10题答案 文档贡献者 superfeng78 贡献于2012-10-14 1 /2 相关文档推荐 ...
NOIP2017普及组Pascal试题(无水印).pdf
NOIP2017普及组Pascal试题(无水印)_IT认证_资格考试/认证_教育专区。NOIP,NOIP2017,普及组,Pascal,无水印,NOIP2017普及组Pascal试题 ...
NOIP2016普及组Pascal试题.pdf
NOIP2016普及组Pascal试题_学科竞赛_初中教育_教育...NOIP2015普及组初赛试题... 8页 2下载券 noip2014...2004NOIP初赛试题及答案... 10页 1下载券 ...
NOIP2017普及组Pascal试题.pdf
NOIP2017普及组Pascal试题 - 第二十三届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言试题 选手注意: ? 试题纸共有 7 页,答题纸共有 2 页,满分 100 ...
NOIP2015复赛普及组试题.doc
NOIP2015复赛普及组试题 - 全国信息学奥林匹克联赛(NOIP2015)复赛 普及组 CCF 全国信息学奥林匹克联赛(NOIP2015)复赛 普及组 (请选手务必仔细阅读本页内容) ...
NOIP2012普及组初赛(PASCAL).pdf
NOIP2012普及组初赛(PASCAL) - 第十八届全国青少年信息学奥林匹克联赛初赛 (普及组 Pascal 语言试题) 竞赛时间:2012 年 10 月 13 日 14:30~16:30 ...
NOIP普及组初赛历年试题及答案完善题篇.pdf
NOIP普及组初赛历年试题及答案完善题篇_从业资格考试_资格考试/认证_教育专区。NOIP 普及组初赛历年试题及答案 (完善题篇)完善程序,每年两题,每题每空 2-4 分,...
NOIP2006普及组初赛试题及答案.doc
NOIP2006普及组初赛试题及答案_电力/水利_工程科技_专业资料。NOIP2006普及组第十二届全国青少年信息学奥林匹克联赛初赛试题( 普及组 Pascal 语言 二小时完成 ) 由 ...