第十三届全国青少年信息学奥林匹克联赛初赛试题

1、/（Pascal 一单项选择题（共20 题，每题1.5 分，共计30 分。每题有且仅有一个正 2在关系数据库中，存放在数据库中的数据的逻辑结构以（ ）3在下列各项中，只有（ ）/（Pascal 一单项选择题（共20 题，每题1.5 分，共计30 分。每题有且仅有一个正 2在关系数据库中，存放在数据库中的数据的逻辑结构以（ ）3在下列各项中，只有（ ）。4ASCII码的含义是器6IT的含义是（ 7LAN的含义是。下面关于冗余数据的说法中，正确的是（ A应该在NOIP竞赛（复赛使用的语言环境有（ CTurboDFree在下列关于计算机语言的说法中，正确的有（ DC12. 20的工具。在下列关于递归

2、算法的说法中，正确的是（ A. 1977. D对于已经定义好的标准数学函数 sin(x)在下列关于计算机语言的说法中，正确的有（ DC12. 20的工具。在下列关于递归算法的说法中，正确的是（ A. 1977. D对于已经定义好的标准数学函数 sin(x)，应用程序中的语句“y=sin(sin(x);一个无法靠自身的控制终止的循环成为“死循环”，例如，在 C “le(1)prf(*”);”就是一个死循环，运行时它将无休止地打印*号。下面关于死循环的说法中，只有（ ）是正确的。14Pascal（23or2xor5）的值是（ Anot(a0)(b0)Bnot(a0)and(b0)andCnot(a

3、=0)and(b=0)or(c0) D(a=0) and (b=0) and (c=0)16A、B、CA10从上到下依为1，2，3，将A 柱上的部分盘子经过 B 柱移入 C 柱，也可以在 B 为（ C2 4 3 17 A24 3 6 5B2 4 1 25 D24 3 67有（ 19(2070)16(34)8 的结果是（83320B（20842651有（ 19(2070)16(34)8 的结果是（83320B（2084265173，则该二叉树的后根遍历是（ A465273B465213C423154D465317二、问题求解（2510分1（子集划分）n个数（1，2，n）r 个子集。每个数都恰好属

4、于一个子集， 。2（最短路线）某城市的街道是一个很规整的矩形网络（见下图），有 条南北向的纵街 BA 1、program p:array0.4fori:=0to4dore a:=(p0+p1)+(p2+p3+p4)divb:=p0+p1div(p2+p3)divp4); c:=p0*p1 div p2;x:=a+b-p(p3+3)modif theny:=y+(b*100-a)div(pp4mody:=y+20+(b*100-c)div(pp4mod输入：6 6 5 5theny:=y+(b*100-a)div(pp4mody:=y+20+(b*100-c)div(pp4mod输入：6 6 5

5、 5输出2、program procedurek:=a;a:=b;b:=k;a:=3;x:=a; 输出3、program a1:array1.50fori:=1tondoa1i:=0; fori:=2ton2do if(a1i=0)t2:=ndivforj:=2tot2do for i:=2 to n do if(a1i=0)write(i:4);if(tmod10=0) then 输出4、Program j304; S1:str1;s2:str2; Var i:;if(i=65)输出4、Program j304; S1:str1;s2:str2; Var i:;if(i=65)and(i=9

6、7)and(i=48)and(i=57)thenelsevar i,j:eger; a,b,c:char;j:=1; c:=char(1); i:=0; begin inc(i); c:=s1i;if c=- then begin 1 if(isalpha(a)andisalpha(b)or(isdigit(a)andisdigit(b)thenbegin begin s2j:=c; inc(j); end; elsebegins2j:=c;inc(j);end;end;s20:=char(j-2);end; begin readln(s1); expand(s1,s2); wri四、完善程序

7、（4空，每2.5 分，后 6 空，每空 3 分，共28 分行，最后键入-1 终止程序。Program四、完善程序（4空，每2.5 分，后 6 空，每空 3 分，共28 分行，最后键入-1 终止程序。Programtype str1=string100; var line:str1; kz:var I,j:eger; t:char;i:=1; j:=length(s); t:=si;si:=sj;n(continue?-1forwhile; 223321341154455Program arr2=array1.65 ofvarboard:arr2;eger;procedurechessboard

8、(tr,tc:eger;dr,dc:eger; var size:var t,s:if(size=1) s:=size div 2;then)else;if (dr=tc+s) then chessboard(tr,tc+s,dr,Program arr2=array1.65 ofvarboard:arr2;eger;procedurechessboard(tr,tc:eger;dr,dc:eger; var size:var t,s:if(size=1) s:=size div 2;then)else;if (dr=tc+s) then chessboard(tr,tc+s,dr,else

9、begin boardtr+s-1tc+s:=t; if(dr=tr+s)and(dc=tr+s)and(dc=tc+s)thenchessboard(tr+s,tc+s,dr, else begin boardtr+stc+s:=t;); procedureprt1(n:var I,j:forI:=1tondobegin for j:=1 to n do writ n(inputreadln(size); wrin(input theition of spelblock(x,y):); readln(dr,dc); boarddrdc:=-1;ize); 年普及语言与评分标一、单项选择题：（每题 1.5 分二、问题求解：（5分三、阅读程2. 3,3. 2 3 5 7 11 13 17 19 23 31 37 41 43 4. 四年普及语言与评分标一、单项选择题：（每题 1.5 分二、问题