搜索
第1页共8页第二十届全国青少年信息学奥林匹克联赛初赛（普及组Pascal语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一．单项选择题（共20题，每题1.5分，共计30分。每题有且仅有一个正确答案。）1、以下哪个是面向对象的高级语言（）。A.汇编语言B.C++C.FortranD.Basic2、1TB代表的字节数量是（）。A.2的10次方B.2的20次方C.2的30次方D.2的40次方3、二进制数00100100和00010101的和是。A.00101000B.001010100C.01000101D.001110014、以下哪一种设备属于输出设备（）A.扫描仪B.键盘C.鼠标D.打印机5、下列对操作系统功能的描述最为完整的是（）A.负责外设与主机之间的信息交换B.负责诊断机器的故障C.控制和管理计算机系统的各种硬件和软件资源的使用D.将源程序编译成目标程序6.CPU、存储器、I/O设备是通过（）连接起来的。A.接口B.总线C.控制线D.系统文件7、断电后会丢失数据的存储器是（）。A.RAMB.ROMC.硬盘D.光盘8、以下哪一种是属于电子邮件收发的协议（）。A.SMTPB.UDPC.P2PD.FTP9、下列选项中不属于图像格式的是（）A.JPG格式B.TXT格式C.GIF格式D.PNG格式10.链表不具有的特点是（）A．不必事先估计存储空间B．可随机访问任一元素C．插入删除不需要移动元素D．所需空间与线性表长度成正比11、下列各无符号十进制整数中，能用八位二进制表示的数中最大的是（）。A．296B．133C．256D．19912.下列几个32位IP地址中，书写错误的是（）。第2页共8页A.162.105.130.27B.192.168.0.1C.256.256.129.1D.10.0.0.113.要求以下程序的功能是计算：s=1+1/2+1/3+……+1/10。VarN:integer;S:real;BeginS:=1.0;Forn:=10downto2doS:=s+1divn;Writeln(s:6:4);End.程序运行后输出结果错误，导致错误结果的程序行是（）。A.S:=1.0;B.Forn:=10downto2doC.S:=s+1divn;D.Writeln(s:6:4);14.设变量x为real型且已赋值，则以下语句中能将x中的数值保留到小数点后两位，并将第三位四舍五入的是（）。A.x:=(x*100)+0.5/100.0B.x:=(x*100+0.5)/100.0C.x:=trunc(x*100+0.5)/100.0D.x:=(x/100+0.5)*/100.015.有以下程序：VarS,a,N:integer;BeginS:=0;a:=1;Readln(n);RepeatS:=s+1;A:=a-2;Untila=n;Writeln(s);End.第3页共8页若要使程序的输出值为2，则应该从键盘给n输入的值是（）A.-1B.-3C.-5D.016.一颗具有5层的满二叉树中结点数为（）A．31B．32C．33D．1617.有向图中每个顶点的度等于该顶点的（）。A.入度B.出度C.入度和出度之和D.入度和出度之差18.设有100个数据元素，采用折半搜索时，最大比较次数为（）。A．6B．7C．8D．1019.若有如下程序段，其中s、a、b、c均为定义的整型变量，且a、c均已赋值，c0。S:=a;Forb:=1tocdoS:=s+1;则与上述程序段功能等价的赋值语句是（）A．s:=a+bB．s:=a+cC．s:=s+bD．s:=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页三．阅读程序写结果（共4题，每题8分，共计32分）1．vara,b,c,d,ans:integer;beginreadln(a,b,c);d:=a-b;a:=d+c;ans:=a*b;writeln('Ans=',ans);end.输入：234输出：2.varN:integer;Functionfun(n:integer):integer;BeginIfn=1thenexit(1);Ifn=2thenexit(2);Exit(fun(n-2)-fun(n-1));End;BeginReadln(n);Writeln(fun(n));End.输入：7输出：3、varst:string;len,i:integer;beginreadln(st);len:=length(st);fori:=1tolendoif(st[i]=’a’)and(st[i]=’z’)thenst[i]:=chr(ord(st[i])-ord(‘a’)+ord(‘A’));writeln(st)end.输入：Hello,mynameisLostmonkey.输出：第5页共8页4、ConstSize=100;varp:array[1..size]ofinteger;n,tot,cn,i：integer；beginreadln(n);fori:=1tondop[i]:=1;tot:=0;fori:=2tondobeginifp[i]=1thentot:=tot+1;cn:=i*2;whilecn=ndobeginp[cn]:=0;cn:=cn+I;end;end;writeln(tot);end.输入：30输出：四．完善程序(前4空，每空3分，后4空，每空4分，共28分)1、（数字删除）下面程序的功能室将字符串中的数字字符删除后输出，请填空（每空3分，共12分）：vars:string;len,i:integer;functiondelnum(vars:string):integer;varI,j:integer;beginj:=1;forI:=1tolength(s)doif(s[i]’0’)(1)(s[i]’9’)thenbegin第6页共8页s[j]:=s[I];(2);end;exit((3));end;beginreadln(s);len:=delnum(s);forI:=1tolendowrite((4));writeln;end.2.(最大子矩阵和)给出m行n列的整数矩阵，求最大的子矩阵和（子矩阵不能为空）。输入第一行包含两个整数m和n，即矩阵的行数和列数。之后m行，每行n个整数，描述整个矩阵。程序最终输出最大的子矩阵和。(最后一空4分，其余3分，共16分)constSIZE=100;varmatrix:array[1..SIZE,1..SIZE]ofinteger;rowsum:array[1..SIZE,0..SIZE]ofinteger;//rowsum[i,j]记录前i行前j个数的和M,n,i,j,first,last,area,ans:integer;beginread(m,n);fori:=1tomdoforj:=1tondoread(matrix[i,j]);ans:=matrix(1);fori:=1tomdo(2);fori:=1tomdoforj:=1tondorowsum[i,j]:=_(3);forfirst:=1tondoforlast:=firsttondo第7页共8页begin(4);fori:=1tomdobeginarea:=area+(5);if(areaans)thenans:=area;if(area0)thenarea:=0;end;end;writeln(ans);end.第8页共8页答卷部分一.选择一个正确答案代码（A/B/C/D）,填入每题的括号内(每题1.5分,多选无分,共30分)题号12345678910选择BDDDCBAABB题号11121314151617181920选择DCCCBACBBC二．问题解答（每题5分，共10分）1.答：182.答：11三.阅读程序，并写出程序的正确运行结果：（每题8分，共32分）(1)程序的运行结果是:Ans=9(2)程序的运行结果是:-11(3)程序的运行结果是:HELLO,MYNAMEISLOSTMONKEY.(4)程序的运行结果是:10四.根据题意,将程序补充完整(前8空，每空3分，最后1空4分，共28分)1.2.1)[1,1]2)Rowsum[I,0]:=03)Rowsum[I,j-1]+matrix[I,j]4)Area:=0;5)Rowsum[I,last]-Rowsum[I,first-1]1)or2)J:=j+13)J4)S[i]