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/8A.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均已赋值，c>0。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的最短距离是。ABCEGDF6317244218644/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/84、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:...
