98高初试题.doc

98 全国分区联赛 高中组（初赛）第四届全国青少年信息学（计算机）奥林匹克分区联赛初赛试题（高中组）( Pascal 语言 竞赛用时：2小时) 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 一选择填空：1、操作系统是一类重要的系统软件，下面几个软件中不属于操作系统的是 。(A)MSDOS (B)UCDOS (C)PASCAL (D)WINDOWS 952、在计算机内部，用来传送、存储、加工处理的数据或指令(命令)都是以 形式进行的。(A)十进制码 (B)智能拼音码 (C)二进制码 (D)五笔字型码3、已知计算机C:DOS下有一个正确的FORMAT.COM文件，当执行如下命令：C:> FORMAT A: <回车>得到的回答是bad command or file name提示信息，下面解释正确的是 。(A)根目录中没有AUTOEXEC.BAT文件；(B)在执行该命令前操作者没执行过PATH命令；(C)C:DOS中的FORMAT.COM文件有错(D)由于AUTOEXEC.BAT或操作者最后执行过的PATH命令中缺少路径C:DOS，或者根本没有执行过PATH命令。4、将A盘上50个文件用：C:>COPY A:*.* 命令复制到C盘的当前目录中。在复制到某一个文件时，由于读数据出错，屏幕显示：Abort, Retry, Ignore, Fail?键入“I”后，继续复制没再出现过出错信息。最后复制的结果是_。(A)读数据出错的文件不正确，其他文件正确；(B)读数据出错的文件不正确，其他文件也不正确；(C)读数据出错的文件正确，其他文件不正确；(D)复制的文件全正确；5、表达式(4 MOD (3)与(4 MOD 3)的值为：_。(A)1，1 (B)1，1 (C)1，1 (D)1，16、小张用十六进制，八进制和十进制写了如下一个等式：5219=33式中三个数是各不相同进位制的数，试问52，19，33，分别为_。(A)八进制，十进制，十六进制 (B)十进制，十六进制，八进制(C)八进制，十六进制，十进制 (D)十进制，八进制，十六进制7、某班有50名学生，每位学生发一张调查卡，上写a, b, c三本书的书名，将读过的书打，结果统计数字如下：只读a者8人；只读b者4人；只读c者3人；全部读过的有2人；读过a，b两本书的有4人；读过a，c两本书的有2人；读过b，c两本书的有3人；问：(1)读过a的人数是_。 (2)一本书也没读过的人数是_。(A)12人 (B)30人 (C)10人 (D)24人 (E)31人8、下列if语句中，endif表示相应if的结束： y=0if x<0 then y=5 else if x<10 then y=10 if x<100 then y=100 endif else y=200 endif endif试指出：当x=80时，运行的结果为_，x=5时结果为_。 (A)y=9 (B)y=5 (C)y=10 (D)y=100 (E)y=2009、如果用一个字节来表示整数，最高位用作符号位，其他位表示数值。 例如：0000000表示 + 11表示 1 符号位表示正 10000001 符号位表示负 试问这种表示法的整数a的范围应是_。(A)127a127 (B)128a128(C)128a<128 (D)128<a128在这样表示法中，以下_说法是正确的。(A)范围内的每一个数都只有唯一的格式 (B)范围内的每一个数都有两种格式(C)范围内的一半数有两种格式 (D)范围内只有一个数有两种表示格式10、设栈S的初始状态为空，现有5个元素组成的序列1，2，3，4，5，对该序列在S栈上依次进行如下操作(从序列中的1开始，出栈后不再进栈)：进栈，进栈，进栈，出栈，进栈，出栈，进栈，试问出栈的元素序列是_。(A)5，4，3，2，1 (B)2，1 (C)2，3 (D)3，4二、问题求解：1、已知一个数列U1 , U2 , U3 , Un , 往往可以找到一个最小的k值和k个数a1 , a2 , ak ,使得数列从某项开始都满足：un+k=a1un+k1+a2un+k2+akun (A)例如对斐波拉契数列1，1，2，3，5，可以发现：当k=2，a1=1，a2=1时，从第3项起(即n1)都满足un+2=un+1+un。试对数列13，23，33，n3，求k和a1，a2，ak使得(A)成立。 2、给出一棵二叉树的中序遍历：DBGEACHFI与后序遍历：DGEBHIFCA画出此二叉树。 3、用邻接矩阵表示下面的无向图：三、阅读程序写出程序的正确运行结果：1 program exp1(input,output); VAR i, s, max:integer; a :array1.10 of integer;Begin for i:=1 to 10 do read(ai); max:=a1; s:=a1; for i:=2 to 10 do begin if s<0 then s:=0; s:=s+ai; if s>max then max:=s end; writeln('max=',MAX)End.输入：8 9 1 24 6 5 11 15 28 9输出：max=2 program exp2(input,output); CONST N=10;VAR S,I:INTEGER;FUNCTION CO(I1:INTEGER):INTEGER; VAR J1,S1:INTEGER; BEGIN S1:=N;FOR J1:=(N-1) DOWNTO (N-I1+1) DO S1:=S1*J1 DIV (N-J1+1); CO:=S1; END;BEGIN S:=N+1; FOR I:=2 TO N DO S:=S+CO(I); WRITELN('S=',S);END.3Program exp3(input,output); VAR I,J,S:INTEGER; B :ARRAY0.5 OF INTEGER;BEGIN S:=1; FOR I:=1 TO 5 DO BI:=I; J:=1; WHILE J>0 DO BEGIN J:=5; WHILE (J>0) AND (BJ=10+J-5) DO J:=J-1; IF J>0 THEN BEGIN S:=S+1; BJ:=BJ+1; FOR i:=J+1 TO 5 DO Bi:=BJ+i-J END; END; WRITELN('S=',S);END.4Program EXP4(input,output); const n=4;type se=array1.n*2 of char;var i,j,i1,j1,k,s,t,s1,L,swap:integer; temp :char; a :se;Begin for i:=1 to n*2 do read(ai); readln; s:=0; t:=0; for i:=1 to n*2 doif ai='1' then s:=s+1 else if ai='0' then t:=t+1; if (s<>n) or (t<>n) then writeln('error') else begin s1:=0; for i:=1 to 2*n-1 do if ai<>ai+1 then s1:=s1+1; writeln('jamp=',s1); swap:=0; for i:=1 to 2*n-1 do for j:=i+1 to 2*n do if ai<>aj then begin temp:=ai; ai:=aj; aj:=temp; s:=0; for L:=1 to 2*n-1 do if aL<>aL+1 then s:=s+1;if s>swap then begin swap:=s; i1:=i; j1:=j end; temp:=ai;a i:=aj; aj:=temp end; if swap>0 then writeln('maxswap=',swap-s1,' i=',i1,' j=',j1) end End.输入：10101100 输出：四、根据题意，补充完善以下程序：1 FBZ串问题。已知一个由0，1字符组成的长为2n的字符串。请按.以下规则将已给出的字符串分解成FBZ串： 若其中字符全为1，则称其为B串； 若其中字符全为0，则称其为Z串； 若不全为0，同时也不全为1，则称F串。若此串为F串，则应将此串分解为2个长为2n1的子串。对分解后的子串，仍按以上规则继续分解，直到全部为B串或为Z串为止。例如n=3时，给出01串为：10111001最后输出：FFFBZBFFBZFZB问题：给出0，1串，分解成FBZ串。程序如下：Program EXP5; const n=8; vari , j , st11 , st12 , st2 , s , t : integer;str1 :array 1.n*2 , 1.n of char;str2 :array 1.40 of char; Begin for i:=1 to n*2 do for j:=1 to n do str1 i , j := ; st11:=1; st12:=1; st2:=0; for i:=1 to n do read(str11, i ); readln; while do begin s:=0; t:=0; for i:=1 to n do begin if str1 st12 , i =1 then s:=s+1; if str1 st12 , i =0 then t:=t+1; end; if then begin st2:=st2+1; str2st2:=B end else if then begin st2:=st2+1; strst2:=Z end else begin st2:=st2+1; str2st2:=F; j:=(s+ t) div 2; for s:=n*22 downto do for t:=1 to n do str1s+2,t:=str1s,t; st11:=st11+2; for i:=1 to j do begin str1st12+1, i :=str1st12 , i ; str1st12+2, i := ； end; for i:= do begin str1st12+1,i:= ; str1st12+2,i:= end; end; st12:=st12+1; end; for i:=1 to st2 do write(str2i); writeln; End.·7·