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

2013信息学竞赛初赛模拟试题(二)(pascal)


冲刺 NOIP 初赛模拟试题与解析 ( 提高组 Pascal 语言 二小时完成 ) 一、单项选择题 (共 10 题,每题 1.5 分,共计 15 分,每题有且仅有一个正确 答案)。 1、关于图灵机下面的说法哪个是正确的( ): A)图灵机是世界上最早的电子计算机。 B)由于大量使用磁带操作,图灵机运行速度很慢。 C)图灵机只是一个理论上的计算模型。 D)图灵机是英国人图灵发明的,

在二战中为破译德军的密码发挥了重要作用。 2、某计算机的硬盘容量是 1T,这里 1T=( )字节. A)1000*1000*1000*1000 B)1024*1024*1024 C) 1024*1024*1024*1024 D)1000*1024*1024*1024 3、中缀表达式 A-(B+C/D)*E 的后缀表达式是( )。 A)AB-C+D/E* B) ABC+D/-E* C)ABCD/E*+D)ABCD/+E*4、 设一个[1..100,1..100]的二维数组 A,每个元素 A[i,j]存储时占用两个字节, 将 A 数组按行优先方式存入从 SA 开始的连续存储单元中,则元素 A[66,65]存储 的结束地址是( )。 A)SA+13130 B)SA+13129 C)SA+6565 D)SA+6564 5、计算机辅助教学的简写是( )。 A)CAI B)CAM C)CAD D)CAS 6、二叉树是重要的数据结构,5 个点的不同的二叉树有( )个。 A)30 B)40 C)42 D)46 7、(101.101)2=( )10 A)5.625 B)5.5 C)6.125 D)3.525 8、 设栈 S 的初始状态为空, 元素 a,b,c,d,e,f 依次入栈, 出栈顺序为 b,d,c,f,e,a 那么栈容量至少应该是( )。 A)5 B)4 C)3 D)2 9、有一棵树 T=(K,R),其中 K={A,B,C,D,E,F,G,H,I,J},R={r}, r={<A,B>,<A,C>,<A,D>,<B,E>,<B,F>,<C,G>,<D,I>,<D,J>,<G,H>},那么它按后 根次序周游得到的结点序列是( )。 A)ABEFCGHDIJ B)ABCDEFGIJH

C)EFBHGCIJDA D)EBFACGHIDJ 10、在数据结构中链表是( )。 A)顺序存储的线性表结构 B)非顺序存储的线性表结构 C)顺序存储的非线性表结构 D)非顺序存储的非线性表结构 E) 特殊的树结构 二、不定项选择题(共 10 题,每题 1.5 分,共计 15 分,每题正确答案的个数 不少于 1。多选或少选均不得分)。 1、在 TCP/IP 协议中下列服务属于应用层的是( )。 A)WWW B)FTP C)SMTP D)TCP 2、下列关于十进制数-100 的正确说法是( )。 A)原码为 11100100B B)反码为 9BH C)补码为 64H D)补码为 9CH 3、若 A=true,B=false,C=true,D=false,以下逻辑运算表达式真的有( )。 A)(A^B)V(C^DV?A) B)((?A^B)VC) ^?B C)(BVCVD)VD^A D)A^(DV?C) ^B 4、以下是关于排序的说法正确的是( )。 A)选择排序、冒泡排序、插入排序是稳定的 B)希尔排序、快速排序、堆排序的时间复杂度为 O(nlog2n) C)线形排序、二路归并排序的空间复杂度为 O(n) D)希尔排序、快速排序、堆排序、归并排序是不稳定的 5、在带尾指针(链表指针 clist 指向尾结点)的非空循环单链表中每个结点都 以 next 字段的指针指向下一个节点。假定其中已经有了 2 个以上的结点。下面 哪些说法是正确的( )。 A)如果 p 指向一个待插入的新结点,在头部插入一个元素的语句序列为: p^.next:=clist^.next;clist^.next:=p; B)如果 p 指向一个待插入的新结点,在尾部插入一个元素的语句序列为: p^.next:=clist;clist^.next:=p; C)在头部删除一个结点的语句序列为: p:=clist^.next;clist^.next:=clist^.next^.next;dispose(p); D)在尾部删除一个结点的语句序列为: p:=clist;clist:=clist^.next;dispose(p); 6、下列是关于数据结构的说法正确的是( )。 A)栈的插入和删除只能在栈底进行 B)线性表的线性存储结构优于链式存储结构 C)队列是一个先进先出的线性表 D)队列是只能在一端插入,另一端删除的线性表 7、以下关于图的正确说法是( )。 A)所有顶点的度数之和等于边数的 2 倍 B)在有向图中顶点的入度之和等于出度之和

C)任意一个图一定有偶数个奇点 D)任意一个图一定有奇数个偶点 8、下列( )是 64 位处理器。 A)Intel Itanium B)Intel Pentium III C)AMD Athlon64 D)IBM Power 5 9、下列 IP 地址中错误的是( )。 A)202.300.12.4 B)192.168.0.3 C)100:128:35:91 D)111-102-35-21 10、关于二叉树的正确说法是( )。 A)满二叉树一定是完全二叉树 h B)深度为 h 的二叉树最多有 2 -1 个结点(h>=1),最少有 h 个结点 C)对于任意一棵二叉树,如果其叶结点数为 N0,而度数为 2 的结点总数为 N2, 则 N0=N2+1 D)在二叉树中,第 i 层的结点总数不超过 2i-1; 三.问题求解(共 2 题,每空 5 分,共计 10 分) 1、将 n 个不同颜色的球放入 k 个无标记的盒子中(n>=k,且盒子不允许为空)的 方案数为 s(n,k), 例如: n=4,k=3 时,S(n,k)=6。 n=6,k=3 时, 当 S(n,k)=_____ 。 2、在圆周上有 N 个点(N>=6),在任意两个点之间连一条弦,假设任何 3 条弦在 圆的内部都没有公共点, 问这些弦彼此相交能在园内构成多少个三角形(只要求 写出三角形总数的表达式而无需化简)? 提示: 右图是 N=6 的情况, 图中所示的 4 个三角形从某种意义上说具有一定的代 表性。

四、阅读程序写结果(共 4 题,每题 8 分,共计 32 分) 1.阅读下面一段程序,写出运行结果 var m,n,s:longint; procedure p1(n:longint); begin if n<>0 then begin p1(n div 2); s:=(s*2+n mod 2*m)mod 1023; end end;

begin readln(m,n); s:=0; p1(n); writeln(s); end. 输入:2010 5871 输出: 2.阅读下面一段程序,写出运行结果 var a:array[1..100]of longint; i,j,k,m,n,left,right,temp:longint; begin readln(n,m); for i:=1 to n do read(a[i]); left:=1; right:=n; while left<right do begin k:=a[m]; i:=left; j:=right; repeat while(k<a[j])do j:=j-1; while(k>a[i])do i:=i+1; if(i<=j)then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; i:=i+1; j:=j-1; end; until i>j; if j<m then left:=i; if i>m then right:=j; end; write(a[m]); end. 输入:14 8 94 32 40 90 99 80 46 21 69 28 64 73 85 54 输出: 3.阅读下面一段程序,写出运行结果 var

s1,s2:string; i,j,k,n:longint; a:array[0..2000,0..2000] of longint; function min(w,x,y:longint):longint; var m:longint; begin m:=w; if x<m then m:=x; if y<m then m:=y; min:=m; end; begin readln(k); readln(s1); readln(s2); n:=length(s1); if length(s2)>n then n:=length(s2); for i:=0 to n do begin a[i,0]:=k*i; a[0,i]:=k*i; end; for i:=1 to n do for j:=1 to n do a[i,j]:=min(a[i-1,j]+k,a[i,j-1]+k,a[i-1,j-1]+abs(ord(s1[i]) -ord(s2[j]))); writeln(a[length(s1),length(s2)]); end. 输入: 2 noip ctsc 输出: 4. 阅读下面一段程序,写出运行结果 const maxn=10000; var i,j,k,n,r,p,g:longint; a:array[1..maxn]of longint; function gcd(m,n:longint):longint; var r:longint; begin while n<>0 do begin

r:=m mod n; m:=n; n:=r; end; gcd:=m end; begin readln(n,r); for i:=1 to n-r do a[i]:=n-i+1; for i:=2 to r do begin k:=i; for j:=1 to n-r do if gcd(k,a[j])>1 then begin g:=gcd(k,a[j]); k:=k div g; a[j]:=a[j] div g; if k=1 then break; end end; p:=1;g:=0; for i:=1 to n-r do begin p:=p*a[i]; while p mod 5=0 do begin p:=p div 5; g:=g+1; end; p:=p mod 5 end; writeln(g); end. 输入:2010 202 输出: 五、完善程序(前 5 空,每空 2 分,后 6 空,每空 3 分,共 28 分) 1.最大子矩阵:求元素之和最大的子方阵,在 m*n(m,n<=20)的正整数数字方阵 中, 找出一个 p*q 的子阵(1<=p<=m,1<=q<=n)使其元素之和最大。 例如, 下面 5*4 的数字矩阵中,元素之和最大的一个 2*3 子阵。 5*4 数字阵 3 8 4 22 11 1 7 9 5 21 6 2

10 3 8 9 2 7 12 3 元素之和最大的 2*3 子阵为: 5 21 6 10 3 8 var a:array[1..20,1..20]of integer; m,n,p,q,i,j,max,p1,q1,s,i1,j1:integer; begin for i:=1 to 20 do for j:=1 to 20 do a[i,j]:=0; readln(m,n); for i:=1 to m do begin for j:=1 to n do read(a[i,j]); readln; end; readln(p,q); max:=0; for i:=1 to m-p+1 do for j:=1 to n-q+1 do begin ① ; for i1:=i to p+i-1 do for j1:=j to q+j-1 do ② ; if s>max then begin ③ ; p1:=i; q1:=j; end; end; for i:=p1 to ④ do begin for j:=q1 to ⑤ do write(a[i,j],' '); writeln; end; end.

2.最大利润:政府邀请了你在火车站开饭店, 但不允许同时在两个相连的火车站 开。任意两个火车站有且只有一条路径,每个火车站最多有 50 个和它相连接的 火车站。 告诉你每个火车站的利润,问你可以获得的最大利润为多少? 输入的第一行为一个整数 N(<=100000),表示有 N 个火车站,分别用 1,2,…,N 来 编号。接下来 N 行,每行一个整数表示每个站点的利润,接下来 N-1 行描述火车 站网络,每行两个整数,表示相连接的两个站点。 输出一个整数表示可以获得的最大利润。 var f:array[0..100001,0..2]of longint; map:array[0..100001,0..51]of longint; a:array[0..100001]of longint; vst:array[0..100001]of longint; n:longint; procedure init; var i,x,y:longint; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n-1 do begin readln(x,y); ① ;map[x,map[x,0]]:=y; inc(map[y,0]);map[y,map[y,0]]:=x; end; end; function max(a,b:longint):longint; begin if a>b then max:=a else max:=b; end; procedure solve(x:longint); var i,j:longint; begin vst[x]:=1; ② ; for i:=1 to map[x,0] do if ③ then begin ④ ; f[x,0]:= ⑤ ; f[x,1]:= ⑥ ; end; end; begin init();

solve(1); writeln(max(f[1,0],f[1,1])); end.


相关文章:
2013信息学竞赛初赛模拟试题(二)(pascal)
2013信息学竞赛初赛模拟试题(二)(pascal)_学科竞赛_高中教育_教育专区。冲刺 NOIP 初赛模拟试题与解析 ( 提高组 Pascal 语言 二小时完成 )一、单项选择题 (共 ...
2013信息学竞赛初赛模拟试题(二)(普及组pascal)
2013信息学竞赛初赛模拟试题(二)(普及组pascal)_学科竞赛_初中教育_教育专区。2013 信息学竞赛初赛模拟试题(二)(普及组 pascal)一、选择题(共 20 题,每题 1.5...
NOIP2013第十九届信息学奥林匹克竞赛全国联赛初赛普及组Pascal试题【整理版附答案】
NOIP2013第十九届信息学奥林匹克竞赛全国联赛初赛普及组Pascal试题【整理版附答案】_学科竞赛_高中教育_教育专区。NOIP2013第十九届信息学奥林匹克竞赛全国联赛初赛普及...
小学信息学竞赛试题_PASCAL (2)
小学信息学竞赛试题_PASCAL (2)_学科竞赛_小学教育_教育专区 暂无评价|0人阅读|0次下载|举报文档 小学信息学竞赛试题_PASCAL (2)_学科竞赛_小学教育_教育专区。...
NOIP2013信息学奥林匹克联赛初赛试题(提高组PASCAL)
青少年信息学奥林匹克联赛初赛提高组 Pascal 语言试题 竞赛时间:2013 年 10 月 13 日 14:30~16:30 选手注意: ● 试题纸共有 12 页,答题纸共有 2 页,满分...
信息学奥林匹克联赛初赛模拟试题(二)
信息学奥林匹克联赛初赛模拟试题(二)_IT认证_资格考试...PASCAL 9、TCP/IP 协议共有( A) 3 B) 4 )层...2013年注会设计统考真题及答案104份文档 2014...
2012信息学奥林匹克程序设计普及组初赛试卷及答案pascal版
青少年信息学奥林匹克联赛初赛普及组 Pascal 语言试题竞赛时间:2012 年 10 月 13 日 14:30~16:30 选手注意: ● 试题纸共有 10 页,答题纸共有 2 页,满分 ...
信息学竞赛普及组初赛模拟试题2
文档信息举报文档 chang_196700贡献于2013-10-20 0.0分 (0人评价)暂无用户...信息学竞赛普及组初赛模拟试题(二) (pascal 语言)限时 2 小时完成,满分 100 ...
2013第十九届信息学奥赛初赛试题(普及组PASCAL)
2013第十九届信息学奥赛初赛试题(普及组PASCAL)_学科竞赛_高中教育_教育专区 暂无评价|0人阅读|0次下载|举报文档 2013第十九届信息学奥赛初赛试题(普及组PASCAL)_...
更多相关标签:
信息学竞赛初赛试题 | pascal语言初赛试题 | 信息学竞赛初赛 | 华杯赛初赛模拟试题 | noip2016初赛模拟试题 | noip初赛模拟试题 | 信息学竞赛试题 | 合肥市信息学竞赛试题 |