NOIP1998普及组初赛试题

1第四届全国青少年信息学（计算机）奥林匹克分区联赛初赛试题（初中组）（PASCAL语言竞赛用时：2小时）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一、选择填空（25%）1、操作系统是重要的系统软件,下面几个软件中不属于操作系统的是_______。{1%}（A）MS-DOS（B）UCDOS（C）PASCAL（D）WINDOWS952、MS-DOS系统对磁盘信息进行管理和使用是__________为单位的。{1%}（A）文件（B）盘片（C）字节（D）命令3、在计算机内部用来传送、存贮、加工处理的数据或指令（命令）都是以___形式进行的.{1%}（A）十进制码（B）智能拼音码（C）二进制码（D）五笔字型码4．已知在计算机C:\DOS下有一个正确的FORMAT.COM文件，当执行如下命令：C:\FORMATA:回车得到的回答是BADCOMMANDORFILENAME提示信息，下面解释正确的是_____________。{2%}（A）根目录中没有AUTOEXEC.BAT文件（B）在执行该命令前操作者没执行过PATH命令（C）C:\DOS中的FORMAT.COM文件有错（D）由于AUTOEXEC.BAT或操作者最后执行过的PATH命令缺少路径C:\DOS，或者根本没有执行PATH命令5．将A盘上50个文件用C:\COPYA:*.*命令复制到C盘的当前目录中，在复制到某一个文件时，由于读数据出错，屏幕显示：{2%}ABORT,RETRG,IGNORE,FAIL?键入“I”后，继续复制没再出现过错误信息，最后复制的结果是_________。（A）读数据出错的文件不正确，其他文件正确（B）读数据出错的文件不正确，其它文件也不正确（C）读数据出错的文件正确，其它文件不正确（D）复制的文件完全正确6．下面四个不同进制的数，最小的一个数是。{2%}（A）（11011001）2（B）（75）10（C）（37）8（D）（A7）167．小张用十六进制、八进制和十进制写了如下一个等式：{3%}252-19=33式中三个数是各不相同进位制的数，试问52、19、33，分别为_________.（A）八进制，十进制，十六进制（B）十进制，十六进制，八进制（C）八进制，十六进制，十进制（D）十进制，八进制，十六进制8．如果用一个字节来表示整数，最高位用作符号位，其它位表示数值。例如：{4%}00000001↑符号位表示正10000001↑符号位表示负①试问这样表示法的整数A的范围应该是_____________________。（A）-127≤A≤127（B）-128≤A≤128（C）–128≤A＜128（D）-128＜A≤128②在这样表示法中，以下说法是正确的。（A）范围内的每一个数都只有唯一的格式（B）范围内的每一个数都有两种格式（C）范围内的一半数有两种格式（D）范围内只有一个数有两种表示格式9．下列IF语句中，ENDIF表示相应IF的结束：{4%}y=0ifx0thenY=5elseifx10theny=10ifx100theny=100endifelsey=200endifendif试指出：当X=80时，运行的结果是______；当X=5时，运行结果为_________。（A）Y=9（B）Y=5（C）Y=10（D）Y=100（E）Y=20010．设栈S的初始状态为空，现有5个元素组成的序列{1，2，3，4，5}，对该序列在S栈上依次进行如下操作（从序列中的1开始，出栈后不再进栈）：进栈、进栈、进栈，出栈、进栈、出栈、进栈。试问出栈的元素序列是______________。{4%}（A）{5，4，3，2，1}（B）{2，1}（C）{2，3}（D）{3，4}表示+1表示-13二、问题求解：（20%）1．已知一个数列U1，U2，U3，…，UN，…往往可以找到一个最小的K值和K个数a1，a2，…，ak使得数列从某项开始都满足：UN+K=a1UN+K-1+a2UN+K-2+……+akUN(A)例如对斐波拉契数列1，1，2，3，5，…可以发现：当K=2，a1=1，a2=1时，从第3项起（即N=1）都满足Un+2=Un+1+Un。试对数列12，22，32，…，n2,…求K和a1,a2,…,aK使得（A）式成立。{7%}2．某班有50名学生，每位学生发一张调查卡，上写a，b，c三本书的书名，将读过的书打，结果统计数字如下：只读a者8人；只读b者4人；只读c者3人；全部读过的有2人；读过a，b两本书的有4人；读过a，c两本书的有2人；读过b，c两本书的有3人；{6%}（1）读过a的人数是（2）一本书也没有读过的人数是3．任给自然数n，k，1≤K≤9，按如下计算步骤求序列XJXJ-1……X0的步骤：{8%}（1）j=0（2）如果N=K则转第3步，否则转第7步（3）Xj=NMODK{div表示整数除法，结果取整数；（4）N=NDIVKmod表示整除取余数}（5）j=j+1（6）回第2步（7）Xj=N（8）结束试求当：N=1998，K=3时，XJXJ-1……X0之值。三、阅读程序，写出程序的正确运行结果（39%）1．Programexp1(imput,output);（7%）Vari,s,max:integer;a：array[1..10]ofinteger;beginfori:=1to10doread(a[i]);max:=a[1]；s:=a[1];fori：=2to10dobeginifs0thens：=0;s：=s+a[i];ifsmaxthenmax：=send;writeln(‘max=’,max)end.输入：-213-1478-1-182464输出：max=2．Programexp2(input,output);{10%}Constn=5;Vari,j,k:integer;a:array[1..2*n,1..2*n]ofinteger;BeginK:=1;ForI:=1to2*n-1doIfi=nthenifodd(i)thenforj:=Idownto1dobegina[I-j+1,j]:=k;k:=k+1endelseforj:=1toidobegina[i-j+1,j]:=k;k:=k+1;endelseifodd(i)thenforj:=ndowntoI-n+1dobegina[I-j+1,j]:=k;k:=k+1;endelseforj:=I-n+1tondobegina[I-j+1,j]:=k;k:=k+1;end;forI:=1tondobeginforj:=1tondowrite(a[I,j]:3);writelnend;end.3．Programexp3(input,output);{10%}ConstN=10;VarS,I:integer;FunctionCO(I1:integer):integer;VARJ1,S1:integer;5BeginS1:=N;ForJ1:=(N-1)downto(N-I1+1)doS1:=S1*J1div(N-J1+1);CO:=S1End;BeginS:=N+1;ForI:=2toNdoS:=S+CO(I);Writeln(‘S=’,S);End.4．Programexp4(input,output);{12%}ConstN=3;VARI,J,S,X:integer;P:array[0..n+1]ofinteger;G:array[0..100]ofinteger;BeginForI:=0to100doG[I]:=0;P[0]:=0;P[n+1]:=100;ForI:=1tondoread(P[I]);readln;ForI:=0tondoForJ:=I+1toN+1doG[abs(P[J]-P[I])]:=G[abs(P[J]-P[I])]+1;S:=0;ForI:=0to100doIfG[I]0thenbeginWrite(I,:4);S:=S+1;End;Writeln;writeln(‘S=’,S);Writeln(‘inputdata:’);readln(X);Writeln(G[x])End.输入：102065inputdata:10输出：四、根据题意，补充完善以下程序：（14%）输入一长度不超过80个字符的字符串（称为源串），该字符串由小写英文字母、空格组成，并以'.'结束。单词是由连续字母组成，两个单词之间至少有一个空格。本程序6的功能为：首先找出字符串中所有单词并保留一个空格作为单词分隔，存入数组ch中。然后用键盘输入一个待查找的单词，以字符'$'结束。采用顺序查找的方法在ch中进行查找，若找到，则输出该单词在ch中出现的序号（若有多个位置出现该单词，则只输出第一个序号位置）。若不存在，则输出'NOTFOUND'。程序如下：（14%）PROGRAMEXP1；VARA,B,CH:ARRAY[1..80]OFCHAR;I,J,K,N,M:INTEGER;BEGINN:=0;REPEAT_______1______;READ(A[N]);1%UNTILA[N]='.';READLN;K:=0;FORI:=1TONDOIF(A[I]='a')AND(A[I]='z')THENBEGINK:=K+1;________2_________;2%ENDELSEIFK0THENIFCH[K]'□'THEN{□表示一个空格，以下同}BEGINK:=K+1;CH[K]:='□'END;M:=0_________3________;2%REPEATM:=M+1;READ(B[M]);UNTIL_______4_________;2%I:=1;J:=1;K:=1;B[M]:='□';WHILE(I=N)AND(J=M)DOBEGINIF_________5________THENBEGINI:=I+1;J:=J+1END3%ELSEBEGINWHILECH[I]'□'DO____6____;2%I:=I+1;J:=1;K:=K+1ENDEND;IF_____7________THENWRITELN(K:4)2%7ELSEWRITELN('NOTFOUND')END.