资源描述
第二十届全国青少年信息学奥林匹克联赛初赛（ 普及组 Pascal语言 二小时完成 ） 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 一 单项选择题 （共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.01000101 D.00111001 4、以下哪一种设备属于输出设备（ ）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 D.FTP9、下列选项中不属于图像格式的是（ ）A.JPG格式 B. TXT格式 C.GIF格式 D.PNG格式10.链表不具有的特点是（ ） A不必事先估计存储空间 B可随机访问任一元素 C插入删除不需要移动元素 D所需空间与线性表长度成正比11、下列各无符号十进制整数中，能用八位二进制表示的数中最大的是（ ）。A296 B133 C256 D19912.下列几个32位IP地址中，书写错误的是（ ）。A.162.105.130.27 B.192.168.0.1 C.256.256.129.1 D.10.0.0.1 13.要求以下程序的功能是计算：s=1+1/2+1/3+1/10。Var N:integer; S:real;Begin S:=1.0; For n :=10 downto 2 do S:=s+1 div n; Writeln(s:6:4);End.程序运行后输出结果错误，导致错误结果的程序行是（ ）。A. S:=1.0; B. For n :=10 downto 2 do C. S:=s+1 div n; D. Writeln(s:6:4);14.设变量x为real型且已赋值，则以下语句中能将x中的数值保留到小数点后两位，并将第三位四舍五入的是（ ）。A. x:=(x*100)+0.5/100.0B. x:=(x*100+0.5)/100.0 C. x:=trunc(x*100+0.5)/100.0 D. x:=(x/100+0.5)*/100.015.有以下程序：Var S,a,N:integer;Begin S:=0; a:=1; Readln(n); RepeatS:=s+1;A:=a-2;Until a=n; Writeln(s);End.若要使程序的输出值为2，则应该从键盘给n输入的值是（ ）A. -1 B. -3 C. -5 D. 016.一颗具有5层的满二叉树中结点数为（ ）A31 B32 C33 D1617.有向图中每个顶点的度等于该顶点的（ ） 。A.入度 B.出度 C.入度和出度之和 D. 入度和出度之差18.设有100个数据元素，采用折半搜索时，最大比较次数为（ ）。A6 B7 C8 D1019.若有如下程序段，其中s、a、b、c均为定义的整型变量，且a、c均已赋值，c0。 S:=a; For b :=1 to c do S:=s+1; 则与上述程序段功能等价的赋值语句是（ ）As:=a+b Bs:=a+c Cs:=s+b Ds:=b+c20.计算机的最高奖是（ ）：A菲尔兹奖 B诺贝尔奖 C图灵奖 D普利兹奖二问题求解（共2题，每空5分，共计10分）1、把M个同样的球放到N个同样的袋子里，允许有的袋子空着不放，问共有多少种不同的放置方法？（用K表示）。例如：M=7，N=3时，K=8；在这里认为（5,1,1）和（1,5,1）是同一种放置方法。问：M=8，N=5时，K= 。2、如图所示，图中每条边上的数字表示该边的长度，则从A到E的最短距离是 。ABCEGDF6317224421864三阅读程序写结果（共4题，每题8分，共计32分）1 var a,b,c,d,ans:integer;begin readln(a,b,c); d:=a-b; a:=d+c; ans:=a*b; writeln(Ans=,ans); end.输入：2 3 4输出： 2.varN:integer;Function fun(n:integer):integer;Begin If n=1 then exit(1); If n=2 then exit(2);Exit(fun(n-2)-fun(n-1);End;Begin Readln(n); Writeln(fun(n);End.输入：7输出： 3、var st:string; len,i:integer;beginreadln(st); len:=length(st); for i:=1 to len do if (sti=a)and (sti=z) then sti:=chr(ord(sti)-ord(a)+ord(A);writeln(st)end.输入：Hello,my name is Lostmonkey.输出： 4、Const Size=100;varp:array1.size of integer;n,tot,cn,i：integer；beginreadln(n);for i:=1 to n do pi:=1;tot:=0;for i:=2 to n do begin if pi=1 then tot:=tot+1; cn:=i*2; while cn=n do begin pcn:=0; cn:=cn+I; end;end; writeln(tot);end.输入：30输出： 四完善程序 (前4空，每空3分，后4空，每空4分，共28分)1 、（数字删除）下面程序的功能室将字符串中的数字字符删除后输出，请填空（每空3分，共12分）：var s:string;len,i:integer;function delnum (var s:string):integer;var I,j:integer;begin j:=1;for I:=1 to length(s) do if (si9) then beginsj:=sI; (2) ;end; exit( (3) );end;beginreadln(s);len:=delnum(s);for I:=1 to len do write( (4) );writeln;end.2.(最大子矩阵和)给出m行n列的整数矩阵，求最大的子矩阵和（子矩阵不能为空）。输入第一行包含两个整数m和n，即矩阵的行数和列数。之后m行，每行n个整数，描述整个矩阵。程序最终输出最大的子矩阵和。(最后一空4分，其余3分，共16分)const SIZE=100;varmatrix: array 1.SIZE, 1.SIZE of integer;rowsum: array 1.SIZE, 0.SIZE of integer;/rowsumi, j记录前i行前j个数的和M,n, i, j, first, last, area, ans:integer;begin read(m, n);for i := 1 to m do for j:=1 to n do read(matrixi, j);ans:=matrix (1) ;for i:=1 to m do (2) ;for i:=1 to m do for j:=1 to n do rowsumi, j:=_ (3) ;for first := 1 to n do for last:=first to n do begin (4) ; for i:=1 to m do begin area:=area+ (5) ; if (areaans) then ans:=area; if (area0) then area:=0;end;end;writeln(ans);end.第 7 页 共 8 页 答 卷 部 分一. 选择一个正确答案代码（A/B/C/D）,填入每题的括号内 (每题1.5分,多选无分, 共30 分)题号12345678910选择BDDDCBAABB题号11121314151617181920选择DCCCBACBBC二问题解答 （每题5分，共10分） 1. 答：18 2. 答：11 三. 阅读程序，并写出程序的正确运行结果：（每题8分，共32分）(1) 程序的运行结果是: Ans=9(2) 程序的运行结果是: -11 (3) 程序的运行结果是: HELLO,MY NAME IS LOSTMONKEY.(4) 程序的运行结果是: 10 四.根据题意, 将程序补充完整 (前8空，每空3分，最后1空4分，共28分)2.1.1) 1,1 2) RowsumI,0:=0 3) RowsumI,j-1+matrixI,j 4) Area:=0; 5) RowsumI,last- RowsumI,first-1 1) or 2) J:=j+1 3) J 4) Si 第 8 页 共 8 页
展开阅读全文