1、1第二十届全国青少年信息学奥林匹克联赛初赛普及组 Pascal 语言试题竞赛时间:2014 年 10 月 12 日 14:30-16:30一、单项选择题(共 20 题，每题 1.5 分,共计 30 分;每题有且仅有一个正确选项)1. 以下哪个是面向对象的高级语言（ ） 。A汇编语言 B. C+ C. Fortran D. Basic2. 1TB 代表的字节数量是（ ） 。A. 2 的 10 次方 B. 2 的 20 次方 C. 2 的 30 次方 D. 2 的 40 次方3. 二进制数 00100100 和 00010101 的和是（ ） 。A. 00101000 B. 001010100 C
2、. 01000101 D. 001110014. 以下哪一种设备属于输出设备（ ） 。 A. 扫描仪 B.键盘 C.鼠标 D.打印机5. 下列对操作系统功能的描述最为完整的是( )。A 负责外设与主机之间的信息交换B.负责诊断机器的故障C.控制和管理计算机系统的各种硬件和软件资源的使用D.将源程序编译成目标程序6. CPU、存储器、 I/O 设备是通过( )连接起来的。A.接口 B.总线 C.控制线 D.系统文件7. 断电后会丢失数据的存储器是（ ） 。A. RAM B. ROM C. 硬盘 D. 光盘8. 以下哪一种是属于电子邮件收发的协议( ).A. SMTP B. UDP C. P2P
3、D. FTP9. 下列选项中不属于图像格式的是( )。A. JPEG 格式 B. TXT 格式 C. GIF 格式 D. PNG 格式10. 链表不具有的特点是( )。A. 不必事先估计存储空间 B. 可随机访问任一元索C. 插入删除不需要移动元素 D. 所储空间与线性表长度成正比11. 下列各无符号十进制整数中，能用八位二进制表示的数中最大的是( )。A. 296 B. 133 C. 256 D. 19912. 下列几个 32 位 IP 地址中，书写错误的是( )。A. 162.105.142.27 B. 192.168.0.1 C. 256.256.129.1 D. 10.0.0.113.
4、 要求以下程序的功能是计算: s=1+1/2+1/3+.+1/10。varn: integer;s:real;begins:=1.0;for n:=10 downto 2 dos:=s+1 div n;writeln(s:6:4);end.程序运行后输出结果错误，导致错误结果的程序行是( )。A. s:=1.0; B. for n:=10 downto 2 doC. s:=s+1 div n; D. writeln(s:6:4);14. 设变量 x 为 real 型且己赋值，则以下语句中能将 x 中的数值保留到小数点后两位，并将第三位四舍五入的是 ( ).A. x:=(x*100)+0.5/1
5、00.0;B. x:=(x*100+0.5)/100.0;C. x:=trunc(x*100+0.5)/100.0;D. x:= (x/100+0.5)*100.0;15. 有以下程序：vars,a,n: integer;begins:=0;a:=1;readln(n);repeats:=s+1;a:=a-2;until a=n;writeln(s);2end.若要使程序的输出值为 2，则应该从键盘给 n 输入的值是（ ） 。A. -1 B. -3 C. -5 D. 016. 一棵具有 5 层的满二叉树中结点数为（ ） 。A. 31 B. 32 C. 33 D. 1617. 有向图中每个顶点的
6、度等于该顶点的( )。A. 入度 B. 出度 C. 入度与出度之和 D. 入度与出度之差18. 设有 100 个数据元素，采用折半搜索时，最大比较次数为（ ） 。A. 6 B. 7 C. 8 D. 1019. 若有如下程序段， 其中 s、a、b、c 均己定义为整型变量.且 a、 c 均已赋值，c0。s:=a;for b:=1 to c dos:=s+1;则与上述程序段功能等价的斌值语句是( )。A. s:=a+b B. s:=a+c C. s:=s+c D. s:=b+c20. 计算机界的最高奖是( )。A.菲尔兹奖 B.诺贝尔奖 C.图灵奖 D.普利策奖二、问题求解(共 2 题，每题 5 分
7、，共计 10 分；每题全部答对得 5 分，没有部分分)1.把 M 个同样的球放到 N 个同样的袋子里，允许有的袋子空着不放，问共有多少种不同的放置方法？(用 K 表示) 。例如：M=7，N=3 时，K=8；在这里认为（5，1，1）和（1，5，1）是同一种放置方法。问：M=8，N=5 时，K= 。2.如图所示，图中每条边上的数字表示该边的长度，则从 A 到 E 的最短距离是 。三、阅读程序写结果(共 4 题，每题 8 分，共计 32 分)1. vara, b, c, d, ans:integer;beginreadln(a,b,c);d:=a-b;a:=d+c;ans:=a*b;writeln(
8、Ans=,ans);end.输入:2 3 4输出:_ 2. varn: integerfunction fun(n:integer):integer;beginif n=1 thenexit(1);if n=2 thenexit(2);exit(fun(n-2)-fun(n-1);end;beginreadln(n);writeln(fun(n);end.输入:7 输出: 3.varst: string;3len, i:integer;beginreadln(st);len:=length(st);for i:=1 to len doif (sti=a) and (sti9) thenbegi
9、nsj:=si;(2) ;end;exit( (3) );end;beginreadln(s);len:=delnum(s);for i:=1 to len dowrite( (14) );writeln;end.2. (最大子矩阵和)给出 m 行 n 列的整数矩阵，求最大的子矩阵和(子矩阵不能为空)。输入第一行包含两个整数 m 和 n，即矩阵的行数和列数。之后 m 行，每行 n 个整数，描述整个矩阵。程序最终输出最大的子矩阵和。(最后一空 4 分，其余 3 分，共 16 分)4constSIZE=100;varmatrix: array 1.SIZE, 1.SIZE of integer;r
10、owsum: array 1.SIZE, 0.SIZE of integer;/rowsumi, j记录前 i 行前 j 个数的和M,n, i, j, first, last, area, ans:integer;beginread(m, n);for i := 1 to m dofor j:=1 to n doread(matrixi, j);ans:=matrix (1) ;for i:=1 to m do(2) ;for i:=1 to m dofor j:=1 to n dorowsumi, j:=_ (3) ;for first := 1 to n dofor last:=first to n dobegin(4) ;for i:=1 to m dobeginarea:=area+ (5) ;if (areaans) thenans:=area;if (area0) thenarea:=0;end;end;writeln(ans);end.5
