nbhkdz.com冰点文库

2016年-第二十二届全国青少年信息学奥林匹克联赛初赛普及组Pascal

时间:2016-10-27


第二十二届全国青少年信息学奥林匹克联赛初赛
普及组 Pascal 语言试题 竞赛时间:2016 年 10 月 22 日 14:30-16:30 一、单项选择题(共 20 题,每题 1.5 分,共计 30 分) 1. 以下不是微软公司出品的软件是() A. Powerpoint B. Word C. Excel D. Acrobat Reader 2. 如果 256 种颜色用二进制编码来表示,至少需要()位 A. 6 B.7 C.8 D.9 3.以下不属于无线通信技术的是() A. 蓝牙 B. WiFi C. GPRS D. 以太网 4. 以下不是 CPU 生产厂商的是() A. intel B. AMD C. Microsoft D. IBM 5. 以下不是存储设备的是() A. 光盘 B. 磁盘 C. 固态硬盘 D. 鼠标 6. 如果开始时计算机处于小写输入状态, 现在有一只小老鼠反复按照 CapsLock、 字母键 A、 字母键 S 和字母键 D 的顺序循环按键,即 CapLock、A、S、D、CapsLock、A、S、D、……, 屏幕上输出的第 81 个字符是字母() A. A B. S C. D D.a 7. 二进制 00101100 和 00010101 的和是() A. 00101000 B. 01000001 C. 01000100 D. 00111000 8. 而二进制小数 0.1 相等的八进制是() A. 0.8 B. 0.4 C. 0.2 D. 0.1 9. 以下是 32 位机器和 64 位机器的区别的是() A. 显示器不同 B. 硬盘大小不同 C. 寻址空间不同 D. 输入法不同 10. 以下关于字符串的判定语句中正确的是() A. 字符串是一种特殊的线性表 B. 串的长度必须大于零 C. 字符串不可以用数组来表示 D. 空格字符组成的串就是空串 11. 一颗二叉树如右图所示,若采用顺序存储结构,即用一维数组元素 存储该二叉树中的结点(根结点的下标为 1,若某结点的下标为 i,则其 左孩子位于下标 2i 处,右孩子位于下标(2i+1)处) ,则图中所有结点 的最大下标为() A. 6 B.10 C.12 D. 15

12. 若有如下程序段,其中 s、a、b、c 均已定义为整型变量,且 a、c 均已赋值(c 大于 0). s := a; for b:=1 to c do s:=s+1; 则与上述程序段修改 s 值的功能等价的赋值语句是() A. s:=a+b B. s:=a+c; C. s:=s+c; D. s:=b+c; 13. 有以下程序: var k,n :longint; begin k:=4; n:=0; while n<k do begin inc(n); for n mod 3 <> 0 then continue; dec(k); end; writeln(k, ’,’ ,n); end. 程序运行后的输出结果是() A. 2,2 B. 2,3 C. 3,2 D. 3,3 14. 给 定 含 有 n 个 不 同 的 数 的 数 组 L=<x1,x2,…,xn> 。 如 果 L 中 存 在 xi(1<i<n) , 使 得 x1<x2<…<xi-1<xi>xi+1>…>xn,则 L 是单峰的,并称 xi 是 L 的“峰顶”。现在已知 L 是单峰的, 请把 a-c 三行代码补全到算法中使得算法正确找到 L 的峰顶。 a. Search(k+1,n) b. Search(1,k-1) c. return L[k] Search(1,n) 1. k := [n/2] 2. if L[k] > L[k-1] and L[k] > L[k+1] 3. then _______ 4. else if L[k] > L[k-1] and L[k]<L[k+1] 5. then ___________ 6. else _______________ 正确的填空顺序是() A. c,a,b B. c,b,a C. a,b,c D. b,a,c 15. 设简单无向图 G 有 16 条边且每个顶点的度数都是 2,则图 G 有()个顶点 A.10 B. 12 C. 8 D. 16

16. 有 7 个一模一样的苹果,放到 3 个一样的盘子中,一共有()种方法。 A. 7 B. 8 C.21 D. 37 17. 下图表示一个果园灌溉系统,有 A,B,C,D 四个阀门,每个阀门可以打开或关上,所有管 道粗细相同,以下设置阀门的方法中,可以让果树浇上水的是()

A. B 打开,其它都关上 B. AB 都打开,CD 都关上 C. A 打开,其它都关上 D. D 打开,其它都关上 18. Lucia 和她的朋友以及朋友的朋友都在某社交网站上注册了帐号, 下图是他们之间的关系 图,两个人之间有边相连代表这两个人是朋友,没有边相连代表不是朋友。这个社交网站的 规则是:如果某人 A 向他(她)的朋友 B 分享了某张相片,那么 B 就可以对该相片进行评 论; 如果 B 评论了该相片, 那么他 (她) 的所有朋友都可以看见这个评论以及被评论的相片, 但是不能对该相片进行评论(除非 A 也向他(她)分享了该相片) 。现在 Lucia 已经上传了 一张相片,但是她不想让 Jacob 看见这张相片,那么她可以向以下朋友()分享该相片。

A. Dana, Michael, Eve C. Michael, Eve, Jacob

B. Dana, Eve, Monica D. Micheal, Peter, Monica

19. 周末小明和爸爸妈妈三个人一起想动手做三道菜。小明负责洗菜,爸爸负责切菜,妈妈 负责炒菜。假设做每道菜的顺序都是:先洗菜 10 分钟,然后切菜 10 分钟,最后炒菜 10 分 钟。那么做一道菜需要 30 分钟。注意:两道不同的菜的相同步骤不可以同时进行。例如第 一道菜和第二道菜不能同时洗,也不能同时切。那么做完三道菜的最短时间需要()分钟。

A. 90

B. 60

C. 50

D.40

20. 参加 NOI 比赛,以下不同带入考场的是() A. 钢笔 B. 适量的衣服 C. U 盘 D. 铅笔 二、问题求解(每题 5 分,共计 10 分) 1. 从一个 4×4 的棋盘(不可旋转)中选取不在同一行也不在同一列上的两个方格,共有 ________种方法。 2、约定二叉树的根节点高度为 1,一颗结点数为 2016 的二叉树最少有___________个叶子 结点;一颗结点数为 2016 的二叉树最小的高度值是__________. 三、阅读程序写结果(共 4 题,每题 8 分,共计 32 分) 1. var tmp, max, min, sum, count:longint; begin count := 0; read(tmp); iftmp=0 then exit; max:= tmp; min:=tmp; sum:=tmp; inc(count); whiletmp<> 0 do begin read(tmp); iftmp<> 0 then begin inc(sum, tmp); inc(count): if tmp> max then max := tmp; iftmp<min then min := tmp; end; end; writeln(max,’,’,min,’,’,sum div count); end. 输入:1 2 3 4 5 6 0 7 输出:_____________ 2、 var i, x, y:longint; begin

i:=100; x:=0; y:=0; whilei>0 do begin dec(i); x:=i mod 8; if x=1 then inc(y); end; writeln(y); end. 输出:__________ 3、 var a: array[1..6] of longint=(1,2,3,4,5,6); pi,pj,t,i:longint; begin pi := 1; pj:=1 6; while pi<pj do begin t:= a[pi]; a[pi]:=a[pj]; a[pj]:=t; inc(pi); dec(pj); end; for i:=1 to 6 do write(a*i+,’,’); writeln; end. 输出:_______________ 4. const max = 100; var i, length1,length2:longint; s1,s2:string[max]; begin s1:= ‘I have a dream’; s2:=’I Have A Dream’; length1 := length(s1); length2:= length(s2);

for i:=1 to length1 do if (s1*i+>=’a’) and (s1*i+<=’z’) then s1[i]:=chr(ord(s1[i])-ord(‘a’)+ord(‘A’)); for i:=1 to length2 do if (s2*i+>=’a’) and (2*i+ <= ‘z’) then s2[i]:=chr(ord(s2[i])-ord(‘a’)+ord(‘A’)); if s1 = s2 then writeln(‘=’) else if s1>2 then writeln(‘>’) else writeln(‘<’); end. 输出:_________________ 四、完善程序(共 2 题,每题 14 分,共计 28 分) 1. (读入整数)请完善下面的程序,使得程序能够读入两个 longint 范围内的整数,并将这 两个整数分别输出,每行一个。 (第一、五空 2.5 分,其余 3 分) 输入的整数之间和前后只会出现空格或者回车。输入数据保证合法。 例如: 输入: 123 -789 输出: 123 -789 var a,b:longint; functionreadint:longint; var num:longint ; //存储读取到的整数 negative:longint; //负数标识 c:char; //存储当前读取到的字符 begin num:=0; negative := 0; read(c); while((c<’0’) or c>’9’)) and (c<>’-‘) do _____?_________; if (c=’-‘) then negative :=1 else _____?________; read(c); while ___?_______ do begin

_____?___________; read(c); end; if negative =1 then ____?_________; exit(num); end; begin a:= reading(); b:=readint(); writeln(a); writeln(b); end. 2. (郊游活动) 有 n 名同学参加学校组织的郊游活动,已知学校给这 n 名同学的郊游总经费 为 A 元,与此同时第 i 位同学自己携带了 Mi 元。为了方便郊游,活动地点提供 B(>=n)辆自 行车供人租用, 租用第 j 辆自行车的价格为 Cj 元, 每位同学可以使用自己携带的钱或者学校 的郊游经费,为了方便帐务管理,每位同学只能为自己租用自行车,且不会借钱给他人,他 们想知道最多有多少位同学能够租用到自行车(第四、五空 2.5 分,其余 3 分) 本题采用二分法, 对于区间[l,r], 我们去中间点 min 并判断租用到自行车的人数能否达到 mid, 判断的过程是利用贪心算法实现的。 const maxn = 1000000; type arr = array[1..MAXN] of longint; var n,B,A,l,r,ans,min,i:longint; M,C:arr; function check(nn:longint):boolean; var count,i,j:longint; begin count:=0; i:=____?________; j:=1; whilei<=n do begin if ____?________ then inc(count,C[j]-M[i]); inc(i); inc(j);

end; exit(____?______); end; procedure sort(var a:arr; l:longint; r:longint); var i,j,x,y:longint; begin i:=l; j:=r; x:=a[(l+r) div 2]; whilei<= j do begin while a[i] < x do inc(i); while a[j] >x do dec(j); ifi<=j then begin y:=a[i];a[i]:=a[j];a[j]:=y; inc(i); dec(j); end; end; ifi<r then sort(a,i,r); if l<j then sort(a,l,j); end; begin read(n,B,A); for i:=1 to n do read(M[i]); for i:=1 to B do read(C[i]); sort(M,1,n); sort(C,1,B); l:=0; r:=n; while l<r do begin min := (l+r) div 2; if ____?_____ then begin ans:=mid; l:=mid+1; end else r:=____?______; end;

writeln(ans); end.


赞助商链接

第二十一届(2015)全国青少年信息学奥林匹克联赛初赛试...

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

第20届全国青少年信息学奥林匹克联赛pascal初赛试题及答案

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

...第二十届全国青少年信息学奥林匹克联赛初赛(普及组...

第二十届全国青少年信息学奥林匹克联赛初赛( 普及组 Pascal 语言 二小时完成 ) ●● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●● 一. 单项选择...

第十八届全国青少年信息学奥林匹克联赛初赛试卷与答案(...

第十八届全国青少年信息学奥林匹克联赛初赛试卷与答案(pascal) - noip2012普及组初赛试题和答案,第一时间上传,欢迎下载,第三和第四题还没有输入!

全国信息学奥赛NOI培训教程(Pascal 2016)

全国青少年信息学(计算机)奥林匹克分区联赛竞赛大纲 一、初赛内容与要求: (#表示普及组不涉及,以下同) 计基算本机常的识 * 诞生与发展 * 计算机的工作原理# *...

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

NOIP2015普及组初赛试题及答案(Pascal)_学科竞赛_初中教育_教育专区。第二十届全国青少年信息学奥林匹克联赛初赛普及组 Pascal 语言试题 竞赛时间:2015 年 10 月...

...第十三届全国青少年信息学奥林匹克联赛初赛试题

第十三届全国青少年信息学奥林匹克联赛初赛试题( 普及组 Pascal 语言 二小时完成)●一、 案。) 1.在以下各项中,( A.控制器 A.二叉树 A.Byte )不是 CPU ...

2006第十二届全国青少年信息学奥林匹克联赛初赛试题及...

十二届全国青少年信息学奥林匹克联赛初赛试题 ( 普及组 Pascal 语言 二小时完成 )●● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●●一、 单项...

第十六届全国青少年信息学奥林匹克联赛初赛试题及答案(...

第十六届全国青少年信息学奥林匹克联赛初赛试题提高组 ( 提高组 Pascal 语言 二小时完成 )●● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●● 全部...

2005全国青少年信息学奥林匹克联赛初赛试题 普及组 pas...

2005全国青少年信息学奥林匹克联赛初赛试题 普及组 pascal 语言_IT/计算机_专业资料...(3736)8 B. (2016)10 C. (1111110000)2 D. (3006)10 E. (7B0)16 19...