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

第二十届全国青少年信息学奥林匹克联赛初赛


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

分,共计 22.5 分;每题有且仅有一个正确 选项) 1. 随着时代的发展,计算机的内存一代比一代大,以 ThinkPad 为例,便携式 PC 早期产品 IBM ThinkPad 235 最多支持 160KB, 而最新的 Lenovo ThinkPad X300 已经搭载 4GB 的内存, 约为 ThinkPad 235 的( )倍 A. 250000 B. 25000 C. 2500 D. 250. 2. 十进制数 4.625 在二进制下是( )。 C. 100.110 D. 100.011 A. 100.101 B. 101.011 3. 下面的故事与( )算法有着异曲同工之妙。 小明同学去上课。他先选择了从家到车站最短的路径,又选择了从家附近的车站到 学校门口的车站行驶距离最短的公交车,最后又选择了从校门口车站到学校的最短路径。 A. 枚举 B. 递归 C. 贪心 D. 分治 4. 1945 年,( )将数学中的二进制引入计算机领域,标志着沿用至今的普林斯顿体系结 构的产生。 A. 冯·诺伊曼(John von Neumann) B. 图灵(Alan Turing) C. 欧拉(Leonhard Euler) D. 克劳德·香农(Claude Shannon) 5. 已知一棵二叉树有 1023 个度数为 2 的节点,则其中至少有( )个节点。 D. 2049 A. 2046 B. 2047 C. 2048 6.右图是一个有 5 个顶点、8 条边的连通图。若要使它成为欧拉图,至少 要删去其中的( )条边。 A. 0 B. 1 C. 2 D. 3 7. 以下( )算法时间复杂度最小。 A. Dijistra B. Floyd C. Prim D. Kruskal 8. 大根堆具有如下性质:根节点的关键字既大于或等于左子女的关键字值,又大于或等于 右子女的关键字值,且要求是完全二叉树。那么,大根堆的( )是一个有序序列。 A. 先序遍历 B. 中序遍历 C. 宽度优先遍历 D. 以上都不是 9. HTML5 万维网的核心语言、标准通用标记语言下的一个应用超文本标记语言(HTML)的 第五次重大修改。与 HTML4.01 相比,它不赞成一下哪一种标签的使用。( ) 10. OSI 模型(开放式系统互联参考模型, Open System Interconnection),把网络协议从 逻辑上分成了( )层。 A. <a> B. <div> C. <video> D. <font> A. 4 B. 5 C. 6 D. 7 11. 以下操作系统( )不属于常见手机操作系统。

A. Android B. IOS C. Windows Phone D. Open BSD 12. 以下处理器结构( )目前广泛应用于手机平台。 A. Arm B.x86 C.x86_64 D.286 13. 目前以下浏览器( )使用人数最高。 A. Mozilla Firefox B. Internet Explorer C. Google Chrome D. Apple Safari 14.以下编程语言( )是面向对象的。 A. QBasic B. ASM C. Smalltalk D. FORTRAN 15. 今年是 2014 年,NOIP 举办的第 20 个年头。我知道,NOIP 是由( )举办的。 A. 中央人民政府 B .共青团中央 C. 中国计算机协会 D.百度 Pascal 吧 二、不定项选择题(共 5 题,每题 1.5 分,共计 7.5 分;每题有一个或多个正确 选项, 多选或少选均不得分) 1. 以下事件( )是今年发生的。 A. 微软发布 Windows NT 6.4 (Windows 10 技术预览版)。 B. 苹果发布可以被掰弯的 iPhone 6 plus 以及可以让手机变板砖的 IOS 8 升级补丁。 C. 微软宣布停止对于 Windows XP 提供技术支持。 D. CCF 举办第 20 届全国青少年信息学奥林匹克联赛。 2. ( O(n log n),其中 n 是待排序的元素个数。 A. 快速排序 B. 希尔排序 C. 冒泡排序 D. 基数排序 3. 以 A0 作为起点,对下面的无向图进行广度优先遍历时(遍历的顺序与顶点字母的下标 无关),最后一个遍历到的顶点可能是( )。

A. A1 B. A2 C. A3 D. A4 4. CCF NOIP 初赛时可以携带进入考场的有( ) A. iWatch B. 草稿纸 C. 学生证 D.水笔 5. 在下列关于青少年信息学竞赛的说法中,你赞成的是( )(本题不回答为 0 分,答题一 律满分)。 A. 举行信息学竞赛的目的,是为了带动广大青少年学科学、爱科学,为造就一大批优秀的 计算机科学与技术人才奠定良好的基础 B. 因为竞赛优胜者不能直接保送上大学,我参与这项活动只是随便玩玩,顺便赚点学校的 奖学金 C. 信息学竞赛不给高考加分,还要狂练题目,要不是爸爸妈妈逼得,我才不来参加 NOIP 呢

D. 为了取得好成绩,不光要看智力因素,还要看非智力因素。为了达到全国一等奖,我可 以偷看旁边同学的答卷,偷偷使用手机上网查答案。 三、问题求解(共 2 题,每题 5 分,共计 10 分;每题全部答对得 5 分,没有部 分分) 1. ‘C’ ‘C’ ‘F’ ‘ ‘ ‘N’ ‘O’ ‘I’ ‘P’ 这 8 个字符可以组成__________ ___个不同的排列方式。 2. 为了欢庆 CCF NOIP 的第 20 个年头,历届复赛满分的选手,共计 20 个,都来到了 CCF 总部。他们要与前来祝贺的国家主席习近平合影。已知习主席必须站在最中间,那么,总计 的站法末尾有__________个 0。 四、阅读程序写结果(共 4 题,每题 8 分,共计 32 分) 1. program ex1(input,output); var a:array [1..11] of char; i,j:integer; temp:char; begin for i:=1 to 11 do read (a[i]); for i:=1 to 11 do for j:=1 to 11-i do if a[j]>a[j+1] then begin temp:=a[j]; a[j]:=a[j+1]; a[j+1]:=temp; end; for i:=1 to 11 do write (a[i]); end. 输入:CCFNOIP2014 输出: 2. var a:array[1..13] of char; i,j,n:integer; x:char; begin for i:=1 to 11 do read(a[i]); readln(x); i:=1; n:=11; j:=trunc((i+n)/2); repeat if a[j]>x then begin n:=j-1; j:=trunc((i+j)/2) end else if a[j]<x then begin i:=j+1; j:=trunc((j+n)/2) end; until (a[j]=x) or (i>=n) ; if a[j]=x then

writeln('',j) else writeln('No Solution!') end. 输入:CCF NOIP 2014A 输出: 3.const n=11 type arr=array[1..n] of integer; var a:arr;i:integer; procedure sift(var a:arr;l,m:integer); var i,j, t:integer; begin i:=l;j:=2*i;t:=a[i]; while j<=m do begin if (j<m) and (a[j]>a[j+1]) then j:=j+1; if t>a[j] then begin a[i]:=a[j];i:=j;j:=2*i; end else exit; a[i]:=t; end; end; begin for i:=1 to n do read(a[i]); for i:=(n div 2) downto 1 do sift(a,i,n); for i:=n downto 2 do begin write(a[1]:4); a[1]:=a[i]; sift(a,1,i-1); end; writeln(a[1]:4); end. 输入:CCFNOIP2014 输出: 4. var s:string;i:integer;total:longint; begin total:=0; readln(st); for i:=0 to 127 do if pos(char(i),st) then inc(total, pos(char(i),st));

end. 输入:CCF NOIP 2014 输出: 五、完善程序(第 1 题 12 分,第 2 题 16 分,共计 28 分) 1. 快速排序 var a:array [1..1000] of integer; procedure qsort(l,h:integer); var i,j,t,m:integer; begin i:=l; j:=h; m:=_____1_____; repeat while ____2____ then inc(i); while ____3____ then dec(j); if i<=j then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(i); dec(j); end; until ____4_____; if i<h then qsort(___5____); if j>l then qsort(____6____); end; 2. 哈弗曼树 Program huffman_tree(input,output); const max=32767;n=20;m=2*n-1 Type tnode=RECORD data:integer; Lc,Rc:integer; END; Var tree:ARRAY[0..m] of tnode; weight:ARRAY[0..n] of integer; im,num:integer; procedure initial; var i:integer; begin write('First input nun(<',n:2,')'); readln(num); writeln('Please input weight:'); for i:=0 to num-1 do read(weight[i]) end; function minimum:integer; var i:integer;

begin min:=max; for i:=0 to num-1 do if (min>weight[i]) then begin min:=weight[i]; im:=i; end; weight[im]:= _____7_______; minimum:= _____8_______; end; procedure huffman; var i,k:integer; begin for i:=num to 2*num-1 do begin tree[i].Lc:=______9_______; tree[i].Rc:=______10_______; tree[i].data:=tree[i].Lc:+tree[i].Rc; weight[im]:=tree[i].data end; writeln; writeln('The result of huffman tree:'); k:=1; for i:= ______11______ downto ______12______ do begin write(tree[i].data:6,':',tree[i].Lc:3,tree[i].Rc:3); if ______13______ then writeln; _____14_______; end writeln; end; procedure printd; var i:integer; begin write('The weight of tree:'); for i:=0 to num-1 do write(weight[i]:3); end; begin initial; printd; Huffman; end.


相关文章:
NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛(普及组试题及答案)
NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛(普及组试题及答案)_学科竞赛_高中教育_教育专区。NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛(普及...
第二十届全国青少年信息学奥林匹克联赛初赛
第二十届全国青少年信息学奥林匹克联赛初赛_电脑基础知识_IT/计算机_专业资料。2014第二十届全国青少年信息学奥林匹克联赛初赛普及组Pascal语言试题 ...
第二十一届(2015)全国青少年信息学奥林匹克联赛初赛试题(含答案)
第二十一届(2015)全国青少年信息学奥林匹克联赛初赛试题(含答案)_学科竞赛_高中教育_教育专区。第二十届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言...
NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组试题及答案PASCAL)
第二十届全国青少年信息学奥林匹克联赛初赛提高组 Pascal 语言试题 竞赛时间:2014 年 10 月 12 日 14:30~16:30 选手注意: ● 试题纸共有 10 页,答题纸共...
noip2014年第二十届全国青少年信息学奥林匹克联赛初赛提高组题目(pascal版)参考答案
noip2014年第二十届全国青少年信息学奥林匹克联赛初赛提高组题目(pascal版)参考答案_学科竞赛_高中教育_教育专区。noip2014年第二十届全国青少年信息学奥林匹克联赛...
NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组PASCAL)
NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组PASCAL)_学科竞赛_高中教育_教育专区。NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试...
NOIP2015第二十一届全国青少年信息学奥林匹克联赛初赛普及组C语言试题
NOIP2015第二十届全国青少年信息学奥林匹克联赛初赛普及组C语言试题_学科竞赛_高中教育_教育专区。NOIP2015第二十届全国青少年信息学奥林匹克联赛初赛普及组C语言...
第十届全国青少年信息学奥林匹克联赛初赛试题及答案
2004 第十届全国青少年信息学奥林匹克联赛初赛试题及答案 第十届全国青少年信息学奥林匹克联赛初赛试题 (普及组 Pascal 语言 二小时完成) 一、选择一个正确答案代码...
noip2015第二十一届全国青少年信息学奥林匹克联赛初赛
第二十届全国青少年信息学奥林匹克联赛初赛 普及组 Pasca1 语 言试题竞赛时间 2015 年 10 月 11 日 14:30~16:30 选手注意: ●试题纸共有 7 页,答题纸...
2015年第二十一届全国青少年信息学奥林匹克联赛提高组初赛试题(C++)
2015年第二十届全国青少年信息学奥林匹克联赛提高组初赛试题(C++)_学科竞赛_高中教育_教育专区。2015 年第二十一届全国青少年信息学 奥林匹克竞赛初赛 提高组一...
更多相关标签:
青少年信息学奥林匹克 | 小学奥林匹克信息学 | 奥林匹克信息学竞赛 | 奥林匹克信息学 | 奥林匹克信息学有用吗 | 奥林匹克信息学 江苏 | 奥林匹克信息学试题 | 福建奥林匹克信息学 |