pascal竞赛试题及答案.pdf
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《pascal竞赛试题及答案.pdf》由会员分享,可在线阅读,更多相关《pascal竞赛试题及答案.pdf(24页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、一、单项选择题(共 20 题,每题 1.5 分,共计 30 分。每题有且仅有一个正确答案。)1在以下各项中,()不是 CPU 的组成部分。A控制器B运算器C寄存器D主板2在关系数据库中,存放在数据库中的数据的逻辑结构以()为主。A二叉树B多叉树C哈希表D二维表3在下列各项中,只有()不是计算机存储容量的常用单位。AByte B KB CUB DTB 4ASCII 码的含义是()。A二十进制转换码B美国信息交换标准代码C数字的二进制编码D计算机可处理字符的唯一编码5一个完整的计算机系统应包括()。A系统硬件和系统软件B硬件系统和软件系统C主机和外部设备D主机、键盘、显示器和辅助存储器6IT 的含
2、义是()。A通信技术B信息技术C网络技术D信息学7LAN 的含义是()。A因特网B局域网C广域网D城域网8冗余数据是指可以由其它数据导出的数据。例如,数据库中已存放了学生的数学、语文和英语的三科成绩,如果还存放三科成绩的总分,则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如,上面 4 个数据如果都是输入的,由于操作错误使总分不等于三科成绩之和,就会产生矛盾。下面关于冗余数据的说法中,正确的是()。A应该在数据库中消除一切冗余数据B用高级语言编写的数据处理系统,通常比用关系数据库编写的系统更容易消除冗余数据C为了提高查询效率,在数据库中可以保留一些冗余数据,但更新时要做相容性检验D
3、做相容性检验会降低效率,可以不理睬数据库中的冗余数据9在下列各软件,不属于NOIP 竞赛(复赛)推荐使用的语言环境有()。Agcc Bg+CTurbo C D Free Pascal 10以下断电后仍能保存数据的有()。A硬盘B高速缓存C显存DRAM 11在下列关于计算机语言的说法中,正确的有()。A高级语言比汇编语言更高级,是因为它的程序的运行效率更高B随着 Pascal、C 等高级语言的出现,机器语言和汇编语言已经退出了历史舞台C高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上DC 是一种面向对象的高级计算机语言12近 20 年来,许多计算机专家都大力推崇递归算法,认为它是解
4、决较复杂问题的强有力的工具。在下列关于递归算法的说法中,正确的是()。A在 1977 年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归,原因之一是该方法可能会占用更多的内存空间B和非递归算法相比,解决同一个问题,递归算法一般运行得更快一些C对于较复杂的问题,用递归方式编程一般比非递归方式更难一些D对于已经定义好的标准数学函数sin(x),应用程序中的语句“y=sin(sin(x);”就是一种递归调用13 一个无法靠自身的控制终止的循环成为“死循环”,例如,在 C 语言程序中,语句“while(1)printf(“*”);”就是一个死循环,运行时它将无休止地打印*号。下面关
5、于死循环的说法中,只有()是正确的。A不存在一种算法,对任何一个程序及相应的输入数据,都可以判断是否会出现死循环,因而,任何编译系统都不做死循环检查B有些编译系统可以检测出死循环C死循环属于语法错误,既然编译系统能检查各种语法错误,当然也应该能检查出死循环D死循环与多进程中出现的“死锁”差不多,而死锁是可以检测的,因而,死循环也可以检测的14在 Pascal语言中,表达式(23 or 2 xor 5)的值是()。A18 B1 C23 D32 15 在 Pascal语言中,判断整数 a等于 0 或 b 等于 0 或 c等于 0 的正确的条件表达式是()。Anot(a0)or(b0)or(c0)B
6、not(a0)and(b0)and(c0)Cnot(a=0)and(b=0)or(c0)D(a=0)and(b=0)and(c=0)16地面上有标号为A、B、C 的三根柱,在A 柱上放有10 个直径相同中间有孔的圆盘,从上到下依次编号为1,2,3,,将A 柱上的部分盘子经过B 柱移入 C 柱,也可以在B柱上暂存。如果B 柱上的操作记录为“进、进、出、进、进、出、出、进、进、出、进、出、出”。那么,在C 柱上,从下到上的编号为()。A2 4 3 6 5 7 B2 4 1 2 5 7 C2 4 3 1 7 6 D 2 4 3 6 7 5 17与十进制数1770 对应的八进制数是()。A3350 B
7、3351 C3352 D 3540 18设 A=B=True,C=D=False,一下逻辑运算表达式值为假的有()。A(AB)(CDA)B(A B)C)D)CA(BCD)D D(A(DC)B 19(2070)16+(34)8 的结果是()。A (8332)10 B (208A)16 C (100000000110)2 D(20212)8 20已知 7 个节点的二叉树的先根遍历是1 2 4 5 6 3 7(数字为节点的编号,以下同),中根遍历是 4 2 6 5 1 7 3,则该二叉树的后根遍历是()。A4 6 5 2 7 3 1 B4 6 5 2 1 3 7 C4 2 3 1 5 4 7 D4
8、6 5 3 1 7 2 1 楼2007-11-2 20:38 回复枫叶寒霜二、问题求解(共2 题,每题5 分,共计10 分)。1、(子集划分)将n 个数(1,2,,,n)划分成r 个子集。每个数都恰好属于一个子集,任何两个不同的子集没有共同的数,也没有空集。将不同划分方法的总数记为S(n,r)。例如,S(4,2)=7,这 7 种不同的划分方法依次为(1),(234),(2),(134),(3),(124),(4),(123),(12),(34),(13),(24),(14),(23)。当 n=6,r=3 时,S(6,3)=_。(提示:先固定一个数,对于其余的5 个数考虑S(5,3)与 S(5,
9、2),再分这两种情况对原固定的数进行分析。)2、(最短路线)某城市的街道是一个很规整的矩形网络(见下图),有 7 条南北向的纵街,5条东西向的横街。现要从西南角的A 走到东北角的B,最短的走法共有多少种?_(图画不了)三、阅读程序写结果(共4 题,每题8 分,共计32 分。)1、program j301;var i,a,b,c,x,y:integer;p:array0.4 of integer;begin y:=20;for i:=0 to 4 do read(p);readln;a:=(p0+p1)+(p2+p3+p4)div 7;b:=p0+p1 div(p2+p3)div p4);c:=
10、p0*p1 div p2;x:=a+b-p(p3+3)mod 4;if(x10)then y:=y+(b*100-a)div(pp4 mod 3*5)else y:=y+20+(b*100-c)div(pp4 mod 3*5);writeln(x,y);end.注:本例中,给定的输入数据可以避免分母为0 或数组元素下表越界。输入:6 6 5 5 3 输出:_ 2、program j302;var a,b:integer;var x,y:integer;procedure fun(a,b:integer);var k:integer;begin k:=a;a:=b;b:=k;end;begin
11、a:=3;b:=6;x:=a;y:=b;fun(x,y);writeln(a,b);end.输出:_ 3、program j303;var a1:array1.50 of integer;var i,j,t,t2,n,n2:integer;begin n:=50;for i:=1 to n do a1:=0;n2:=round(sqrt(n);for i:=2 to n2 do if(a1=0)then begin t2:=n div i;for j:=2 to t2 do a1i*j:=1;end;t:=0;for i:=2 to n do if(a1=0)then begin write(
12、i:4);inc(t);if(t mod 10=0)then writeln;end;writeln;end.输出:_ _ 4、Program j304;Type str1=string100;Str2=string200;Var S1:str1;s2:str2;Function isalpha(c:char):Boolean;Var i:integer;Begin i:=ord?;if(i=65)and(i=97)and(i=48)and(i=57)then isdigit:=true else isdigit:=false;end;procedure expand(s1:str1;var
13、s2:str2);var i,j:integer;a,b,c:char;begin j:=1;c:=char(1);i:=0;while(i=ord(s10)do begin inc(i);c:=s1;if c=-then begin 1 a:=s1i-1;b:=s1i+1;if(isalpha(a)and isalpha(b)or(isdigit(a)and isdigit(b)then begin dec(j);while(ord(upcase(a)ord(upcase(s1i+1)do begin s2j:=a;inc(j);inc(a);end;end else begin s2j:=
14、c;inc(j);end;end1 else begin s2j:=c;inc(j);end;end;s20:=char(j-2);end;begin readln(s1);expand(s1,s2);writeln(s2);end.2 楼2007-11-2 20:38 回复枫叶寒霜输入:wer2345d-h454-82qqq 输出:_ 四、完善程序(前4 空,每空2.5 分,后 6 空,每空3 分,共 28 分)。1、(求字符的逆序)下面的程序的功能是输入若干行字符串,每输入一行,就按逆序输出该行,最后键入-1 终止程序。请将程序补充完整。Program j401;type str1=str
15、ing100;var line:str1;kz:integer;procedure reverse(var s:str1);var I,j:integer;t:char;begin i:=1;j:=length(s);while(ij)do begin t:=s;s:=sj;sj:=t;end;end;begin writeln(continue?-1 for end.);readln(kz);while()do begin readln(line);writeln(line);writeln(continue?-1 for end.);readln(kz);end;end.2 2 3 3 2
16、-1 1 3 4 1 1 5 4 4 5 5 2、(棋盘覆盖问题)在一个2k2 k 个方格组成的棋盘中恰有一个方格与其它方格不同(图中标记为-1 的方格),称之为特殊方格。现用L 型(占 3 个小方格)纸片覆盖棋盘上除特殊方格的所有部分,各纸片不得重叠,于是,用到的纸片数恰好是(4 k-1)/3。在下表给出的一个覆盖方案中,k=2,相同的3 各数字构成一个纸片。下面给出的程序使用分治法设计的,将棋盘一分为四,依次处理左上角、右上角、左下角、右下角,递归进行。请将程序补充完整。(图画不了.郁闷)Program j402;type arr1=array1.65 of integer;arr2=ar
17、ray1.65 of arr1;var board:arr2;tile:integer;size,dr,dc:integer;procedure chessboard(tr,tc:integer;dr,dc:integer;var size:integer);var t,s:integer;begin if(size=1)then;t:=tile;inc(tile);s:=size div 2;if then chessboard(tr,tc,dr,dc,s)else begin boardtr+s-1:=t;end;if(dr=tc+s)then chessboard(tr,tc+s,dr,
18、dc,s)else begin boardtr+s-1tc+s:=t;end;if(dr=tr+s)and(dc=tr+s)and(dc=tc+s)then chessboard(tr+s,tc+s,dr,dc,s)else begin boardtr+stc+s:=t;end;end;procedure prt1(n:integer);var I,j:integer;begin for I:=1 to n do begin for j:=1 to n do write(boardj:3);writeln;end;end;begin writeln(input size(4/8/16/64):
19、);readln(size);writeln(input the position of special block(x,y):);readln(dr,dc);boarddrdc:=-1;tile:=1;chessboard(1,1,dr,dc,size);prt1(size);end.3 楼2007-11-2 20:38 回复222.187.96.*请问有答案吗?6 楼2007-12-13 10:57 回复枫叶寒霜NOIP2007 年普及组(Pascal语言)参考答案与评分标准一、单项选择题:(每题 1.5 分)1.D 2.D 3.C 4.B 5.B 6.B 7.B 8.C 9.C 10.A
20、 11.C 12.A 13.A 14.A 15.B 16.D 17.C 18.D 19.A 20.A 二、问题求解:(每题5 分)190 2210 三、阅读程序写结果1.15,46(对 1 个数给 4 分,无逗号扣1 分)2.3,6 3.2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 4.wer2345defgh45456782qqq 四、完善程序(前 4 空(-),每空 2.5 分,后 6 空(-),每空 3 分)(说明:以下各程序填空可能还有一些等价的写法,各省可请本省专家审定和上机验证,不一定上报科学委员会审查)1inc(i)或 i:=i+1 dec(j
21、)或 j:=j-1 kz-1 reverse(line)2.exit (dr chessboard(tr,tc,tr+s-1,tc+s-1,s)chessboard(tr,tc+s,tr+s-1,tc+s,s)chessboard(tr+s,tc,tr+s,tc+s-1,s)chessboard(tr+s,tc+s,tr+s,tc+s,s)第九届全国青少年信息学奥林匹克联赛初赛试题及答案(普及组 PASCAL 语言 二小时完成)全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效一选择一个正确答案代码(ABCDE),填入每题的括号内(每题 15 分,共 30分)1下列计算机设备中,既是输入设备
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- pascal 竞赛 试题 答案
![提示](https://www.taowenge.com/images/bang_tan.gif)
限制150内