1、CCF NOIP2015 初赛普及组 Pascal 语言试题第 1 页共 4 页第二十一届全国青少年信息学奥林匹克联赛初赛普及组 Pascal 语言试题竞赛时间:2015 年 10 月 11 日 14:3016:30选手注意 : 试题纸共有 7 页 ,答题纸共有 2 页 ,满分 100 分。请在答题纸上作答 ,写在试题纸上的一律无效。 不得使用任何电子设备 (如计算器、手机、电子词典等 )或查阅任何书籍资料。一、单项选择题( 共 20 题 ,每题 1.5 分 ,共计 30 分 ;每题有且仅有一个正确选项 )1.1MB 等于( )。A.1000 字节 B,1024 字节 C. 1000X1000
2、 字节 D. 1024X1024 字节2. 在 PC 机 中 ,PENTIUM(奔腾 )、 酷睿、赛扬等是指( )。A.生产厂家名称 B. 硬盘的型号 C. CPU 的 型号 D. 显示器的型号3.操作系统的作用是 ( )。A.把源程序译成 目标程序 B.便于进行数据管理C.控制和管理系统资源 D.实现硬件之间的连接4.在计算机内部用来传送、存贮、加工处理的数据或指令都是以 ( )形式进行的。A.二进制码 B.八进制码 C.十进制码 D.智能拼音码5.下列说法正确的是 ( )。A.CPU 的主要任务是执行数据运算和程序控制B.存储器具有记忆能力 ,其 中信息任何时候都不会丢失C.两个显示器屏幕
3、尺寸相同 ,则 它们的分辨率必定相同D.个人用户只能使用 WIFI 的方式连接到 lnternet6.二进制数 00100100 和 00010100 的和是( )。A.00101000 B.01110011 C.01000100 D.001110007.与二进制小数 0.1 相等的十六进制数是 ( )。A. 0.8 B. 0.4 C. 0.2 D.0.18.所谓的“中断”是指( )。A.操作系统随意停止一 个程序的运行B.当出现需要时 ,CPU 暂时停止当前程序的执行转而执行处理新情况的过程C.因停机而停止一 个程序的运行 D.电脑死机9.计算机病毒是 ( )。A.通过计算机传播的危害人体健
4、康的一种病毒B.人为制造的能够侵入计算机系统并给计算机带来故障的程序或指令集合C.一种由于计算机元器件老化而产生的对生态环境有害的物质D.利 用计算机的海量高速运算能力而研制出来的用于疾病预防的新型病毒10.FTP 可以用于 ( )。A.远程传输文件 B.发送电子邮件 C.浏览网页 D.网上聊天11.下面哪种软件不属于即时通信软件( )。A.QQ B.MSN C.微信 D.P2P12.6 个顶点的连通 图的最小生成树 ,其边数为 ( )。A. 6 B. 5 C. 7 D. 413.链表不具备的特点是 ( )。A.可随机访问任何一个元素 B.插入、删除操作不需要移动元素C.无需事先估计存储空间大
5、小 D.所需存储空间与存储元素个数成正比CCF NOIP2015 初赛普及组 Pascal 语言试题第 2 页共 4 页14.线性表若采用链表存储结构 ,要求内存中可用存储单元地址 ( )。A.必须连续 B.部分地址必须连续 C.一 定不连续 D.连续不连续均可15.今有一空栈 S,对下列待进栈的数据元素序列 a,b,c,d,e,f 依次进行进栈 ,进栈,出栈 ,进栈 ,进栈 ,出栈的操作 ,则此操作完成后 ,栈 S 的栈顶元素为( )。A. f B. c C. a D. b16.前序遍历序列与中序遍历序列相同的 二 叉树为 ( )。A.根结点无左子树的二叉树 B.根结点无右子树的二叉树C.只
6、有根结点的二叉树或非叶子结点只有左子树的二叉树D.只有根结点的二叉树或非叶子结点只有右子树的 二叉树17.如果根的高度为 1,具有 61 个结点的完全二叉树的高度为 ( )。A. 5 B. 6 C. 7 D. 818.下列选项中不属于视频文件格式的是( )。A. TXT B. AVl C. MOV D. RMVB19.设某算法的计算时间表示为递推关系式 T(n)=T(n-1)+n(n 为正整数 )及 T(0)=1,则该算法的时间复杂度为( )。A.O(logn) B. O(nIogn) C.O(n) D.O(n2)20.在 NOI 系列赛事中参赛选手必须使用由承办单位统一提供的设备。下列物品中
7、不允许选手自带的是( )。A.鼠标 B.笔 C.身份证 D.准考证二、问题求解( 共 2 题 ,每题 5 分,共计 10 分 ;每题全部答对得 5 分 ,没有部分分 )1.重新排列 1234 使得每一个数字都不在原来的位置上 ,一共有 种排法。2.一棵结点数为 2015 的二叉树最多有 个叶子结点。三、阅读程序写结果( 共 4 题 ,每题 8 分 ,共计 32 分 )1.Var a, b, c: 1ongint;begina:=1; b:=2; c:=3;if ab then beginif a c then write(a, )e1se write(b, );end;write1n(c);e
8、nd.输出 :2.type point=recordx: 1ongint; y: 1ongint;end;EX =recorda: longint; b: longint; c: point;end;var e: EX;begine.a:=1; e.b:=2;e.c.x:=e.a +e.b;e.c.y:=e.a*e.b;CCF NOIP2015 初赛普及组 Pascal 语言试题第 3 页共 4 页writeln(e.c.x,e.c.y);end.输出 :3. var str:string;i : longint;count: longint;begincount :=0;readln(str);for i := 1 to length(str) dobeginif (stri =a) and (stri n div 2 then lbound := mid + 1e1se ;end;Writeln(rbound);End.
