nbhkdz.com冰点文库

NOIP2014初赛提高组Pascal试题


NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

第二十届全国青少年信息学奥林匹克联赛初赛
提高组 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 在二进制下是( A. 100.101 3. 下面的故事与( B. 101.011 )。 C. 100.110 D. 100.011

)算法有着异曲同工之妙。

小明同学去上课。他先选择了从家到车站最短的路径,又选择了从家附近的车站到 学校门口的车站行驶距离最短的公交车,最后又选择了从校门口车站到学校的最短路 径。 A. 枚举 B. 递归 C. 贪心 D. 分治

4. 1945 年, ( )将数学中的二进制引入计算机领域,标志着沿用至今的普林斯顿体系结 构的产生。 A. 冯·诺伊曼(John von Neumann) B. 图灵(Alan Turing) C. 欧拉(Leonhard Euler) D. 克劳德·香农(Claude Shannon) 5. 已知一棵二叉树有 1023个度数为2的节点,则其中至少有( A. 2046 B. 2047 C. 2048 )个节点。 D. 2049

6.右图是一个有 5 个顶点、8 条边的连通图。若要使它成为欧拉图,至少 要删去其中的( )条边。

CCF NOIP2014 初赛提高组 Pascal 语言试题 第 1 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

A. 0 7.

B. 1

C. 2

D.

3

以下( )算法时间复杂度最小。 A. Dijistra B. Floyd

C. Prim

D. Kruskal

8.

大根堆具有如下性质: 根节点的关键字既大于或等于左子女的关键字值,又大于或等于 右子女的关键字值,且要求是完全二叉树。那么,大根堆的( )是一个有序序列。 A. 先序遍历 B. 中序遍历 C. 宽度优先遍历 D. 以上都不是

9. HTML5万维网的核心语言、标准通用标记语言下的一个应用超文本标记语言(HTML)的第 五次重大修改。与HTML4.01相比,它不赞成一下哪一种标签的使用。( ) A. <a> B. <div> C. <video> D. <font>

10. OSI 模型(开放式系统互联参考模型, Open System Interconnection),把网络协议从逻辑上分 成了( )层。 A. 4 11. 以下操作系统( A. Android 12. 以下处理器结构( A. Arm 13. 目前以下浏览器( A. Mozilla Firefox 14.以下编程语言( A. QBasic B. 5 C. 6 D. 7

)不属于常见手机操作系统。 B. IOS C. Windows Phone )目前广泛应用于手机平台。 B.x86 C.x86_64 )使用人数最高。 B. Internet Explorer )是面向对象的。 B. ASM

D. Open BSD

D.286

C. Google Chrome

D. Apple Safari

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届全国青少年信息学奥林匹克联赛。

CCF NOIP2014 初赛提高组 Pascal 语言试题 第 2 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

2.

( )的平均时间复杂度为 O(n log n),其中 n 是待排序的元素个数。 A. 快速排序 B. 希尔排序 C. 冒泡排序 D. 基数排序 以 A0 作为起点,对下面的无向图进行广度优先遍历时(遍历的顺序与顶点字母的下标 无关),最后一个遍历到的顶点可能是( )。

3.

A. A1 4.

B. A2

C. A3

D.

A4

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]);
CCF NOIP2014 初赛提高组 Pascal 语言试题 第 3 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

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);
CCF NOIP2014 初赛提高组 Pascal 语言试题 第 4 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

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 输出:
CCF NOIP2014 初赛提高组 Pascal 语言试题 第 5 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

五、完善程序(第 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,')');
CCF NOIP2014 初赛提高组 Pascal 语言试题 第 6 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

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
CCF NOIP2014 初赛提高组 Pascal 语言试题 第 7 页,共 8页

NOIP2014 提高组初赛试题(百度 Pascal 吧公开培训教材)

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.

CCF NOIP2014 初赛提高组 Pascal 语言试题 第 8 页,共 8页


Noip2014初赛提高组C试题及答案(完整版)

Noip2014初赛提高组C试题及答案(完整版)_IT认证_资格考试/认证_教育专区。Noip2014 初赛提高组试题及答案(完整版) 提高组 C 语言试题 一、单项选择题(每题 1.5...

NOIP2014提高组复赛试题

NOIP2014提高组复赛试题_学科竞赛_高中教育_教育专区。CCF 全国信息学奥林匹克...交源程序文件名 对于 C++语言 对于 C 语言 对于 pascal 语言 rps.cpp rps.c...

NOIP2014提高组Pascal初赛试题.pdf

NOIP2014提高组Pascal初赛试题.pdf_IT认证_资格考试/认证_教育专区。第二十届全国青少年信息学奥林匹克联赛初赛提高组 Pascal 语言试题 竞赛时间:2014 年 10 月 12...

NOIP2014提高组第一试题解

NOIP2014提高组第一试题解_学科竞赛_高中教育_教育专区。NOIP2014提高组第一试题NOIP2014 提高组第一试题解【第一题】石头剪刀布 rps 【题目大意】 a 和 b...

noip2014初赛试题

noip2014初赛试题_学科竞赛_初中教育_教育专区。第二十届全国青少年信息学奥林匹克联赛初赛 普及组 pascal 语言试题 1、以下哪个是面向对象的高级语言()A.汇编语言B...

NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组试题及答案PASCAL)

NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组试题及答案PASCAL)_学科竞赛_高中教育_教育专区。NOIP(2014)第二十届全国青少年信息学奥林...

noip2014初赛普及组Pascal试题及答案

noip2014初赛普及组Pascal试题及答案_学科竞赛_初中教育_教育专区。noip2014初赛普及组Pascal试题及答案 第二十届全国青少年信息学奥林匹克联赛初赛 普及组 Pascal 语言...

noip2014普及组初赛试题

noip2014普及组初赛试题_学科竞赛_初中教育_教育专区。noip2014普及组初赛试题 第二十届全国青少年信息学奥林匹克联赛初赛普及组 pascal 语言试题 1、以下哪个是面向...

NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组PASCAL)

NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛试题及答案(提高组PASCAL)_学科竞赛_高中教育_教育专区。NOIP(2014)第二十届全国青少年信息学奥林匹克联赛初赛...