不是VIP会员,不能显示答案,请在后台“我的信息” 在线升级 VIP

一、 单项选择题 (共10 题,每题1.5 分,共计15 分。每题有且仅有一个正确答案.)。

1. 在以下各项中。()不是CPU 的组成部分。

  • A.控制器
  • B.运算器
  • C.寄存器
  • D.ALU
  • E.RAM

2. BIOS (基本输入输出系统)是一组固化在计算机内()上一个ROM 芯片上的程序。

  • A.控制器
  • B.CPU
  • C.主板
  • D.内存条
  • E.硬盘

3. 在下面各世界顶级的奖项中,为计算机科学与技术领域作出杰出贡献的科学家设立的奖项是()。

  • A.沃尔夫奖
  • B.诺贝尔奖
  • C.菲尔兹奖
  • D.图灵奖
  • E.南丁格尔奖

4. 在编程时(使用任一种高级语言,不一定是Pascal ),如果需要从磁盘文件中输入一个很大的二维数组(例如1000*1000 的double 型数组),按行读(即外层循环是关于行的)与按列读(即外层循环是关于列的)相比,在输入效率上()。

  • A.没有区别
  • B.有一些区别,但机器处理速度很快,可忽略不计
  • C.按行读的方式要高一些
  • D.按列读的方式要高一些
  • E.取决于数组的存储方式。

5. 在Pascal 语言中,表达式 (21 xor 2)的值是()

  • A.441
  • B.42
  • C.23
  • D.24
  • E.25

6. 在Pascal 语言中,判断a 不等于0 且b 不等于0 的正确的条件表达式是()

  • A.not a=0 or not b=0
  • B.not((a=0)and(b=0)
  • C.not(a=0 and b=0)
  • D.(a<>0)or(b<>0)
  • E.(a<>0)and (b<>0)

7. 某个车站呈狭长形,宽度只能容下一台车,并且只有一个出入口。已知某时刻该车站状态为空,从这一时刻开始的出入记录为:“进,出,进,进,进,出,出,进,进,进,出,出”。假设车辆入站的顺序为1 , 2 , 3 ,……,则车辆出站的顺序为()。

  • A.1, 2, 3, 4, 5
  • B.1, 2, 4, 5, 7
  • C.1, 4, 3, 7, 6
  • D.1, 4, 3, 7, 2
  • E.1, 4, 3, 7, 5

8. 高度为n 的均衡的二叉树是指:如果去掉叶结点及相应的树枝,它应该是高度为n-1 的满二叉树。1在这里,树高等于叶结点的最大深度,根结点的深度为0 ,如果某个均衡的二叉树共有2381 个结点,则该树的树高为()。

  • A.10
  • B.11
  • C.12
  • D.13
  • E.2 10 – 1

9. 与十进制数1770.625 对应的八进制数是()。

  • A.3352.5
  • B.3350.5
  • C.3352.1161
  • D.3350.1151
  • E.前4 个答案都不对

10. 将5 个数的序列排序,不论原先的顺序如何,最少都可以通过()次比较,完成从小到大的排序。

  • A.6
  • B.7
  • C.8
  • D.9
  • E.10

二、 不定项选择题 (共10 题,每题1.5 分,共计15 分。每题正确答案的个数大于或等于1 。多选或少选均不得分)。

1. 设A=B=D=true , C=E=false ,以下逻辑运算表达式值为真的有()。

  • A.( A ∧ B)∨ (C ∧ D)∨¬E
  • B.¬¬(((A ∧ B)∨ C)∧ D ∧ E)
  • C.A ∧ (B ∨ C ∨ D ∨ E)
  • D.(A ∧ (B ∨ C)) ∧ D ∧ E

2. (2010)16 + (32)8 的结果是()。

  • A.(8234)10
  • B.(202A)16
  • C.(100000000110)2
  • D.(2042)16

3. 设栈S 的初始状态为空,元素a, b, c, d, e 依次入栈,以下出栈序列不可能出现的有()。

  • A. a, b, c, e, d
  • B.b, c, a, e, d
  • C.a, e, c, b, d
  • D.d, c, e, b, a

4. 已知6 个结点的二叉树的先根遍历是1 2 3 4 5 6 (数字为结点的编号,以下同),后根遍历是3 2 5 6 4 1 ,则该二叉树的可能的中根遍历是()

  • A.3 2 1 4 6 5
  • B.3 2 1 5 4 6
  • C.2 3 1 5 4 6
  • D.2 3 1 4 6 5

5. 在下列各数据库系统软件中,以关系型数据库为主体结构的是()。

  • A.ACCESS
  • B.SQL Server
  • C.Oracle
  • D.Foxpro

6. 在下列各软件中,属于NOIP 竞赛(复赛)推荐使用的语言环境有()。

  • A.gcc/g++
  • B.Turbo Pascal
  • C.Turbo C
  • D.free pascal

7. 以下断电之后将不能保存数据的有()。

  • A.硬盘
  • B.ROM
  • C.显存
  • D.RAM

8. 在下列关于计算机语言的说法中,正确的有()。

  • A.Pascal 和C 都是编译执行的高级语言
  • B.高级语言程序比汇编语言程序更容易从一种计算机移植到另一种计算机上
  • C.C++是历史上的第一个支持面向对象的计算机语言
  • D.高级语言比汇编语言更高级,是因为它的程序的运行效率更高

9. 在下列关于计算机算法的说法中,正确的有()。

  • A.一个正确的算法至少要有一个输入
  • B.算法的改进,在很大程度上推动了计算机科学与技术的进步
  • C.判断一个算法的好坏,主要依据它在某台计算机上具体实现时的运行时间
  • D.目前仍然存在许多涉及到国计民生的重大课题,还没有找到能够在计算机上实施的有效算法

10. 在下列关于青少年信息学竞赛的说法中,你赞成的是()(本题不回答为0 分,答题一律满分)。

  • A.举行信息学竞赛的目的,是为了带动广大青少年学科学、爱科学,为造就一大批优秀的计算机科学与技术人才奠定良好的基础
  • B.如果竞赛优胜者不能直接保送上大学,我今后就不再参与这项活动了
  • C.准备竞赛无非要靠题海战术,为了取得好成绩,就得拼时间、拼体力
  • D.为了取得好成绩,不光要看智力因素,还要看非智力因素。优秀选手应该有坚韧不拔的意志,有严谨求实的作风,既要努力奋进,又要胜不骄败不馁

三.问题求解(共2 题,每题5 分,共计10 分)

1. 将2006 个人分成若干不相交的子集,每个子集至少有3 个人,并且: ( 1 )在每个子集中,没有人认识该子集的所有人。 ( 2 )同一子集的任何3 个人中,至少有2 个人互不认识。 ( 3 )对同一子集中任何2 个不相识的人,在该子集中恰好只有1 个人认识这两个人。 则满足上述条件的子集最多能有___________个?
答案:401

2. 将边长为n 的正三角形每边n 等分,过每个分点分别做另外两边的平行线,得到若干个正三角形,我们称为小三角形。正三角形的一条通路是一条连续的折线,起点是最上面的一个小三角形,终点是最下面一行位于中间的小三角形。在通路中,只允许由一个小三角形走到另一个与其有公共边的且位于同一行或下一行的小三角形,并且每个小三角形不能经过两次或两次以上(图中是n=5 时一条通路的例子)。设n=10 ,则该正三角形的不同的通路的总数为_____________。
答案:362880

四.阅读程序写结果(共4 题,每题8 分,共计32 分)

1.

Program ex401;
var
u,v:array[0..3] of integer;
i,x,y:integer;
begin
x:=10; y:=10;
for i:=0 to 3 do
read(u[i]);
v[0]:=(u[0]+u[1]+u[2]+u[3]) div 7;
v[1]:=u[0] div ((u[1]-u[2]) div u[3]);
v[2]:=u[0]*u[1] div u[2]*u[3];
v[3]:=v[0]*v[1];
x:=(v[0]+v[1]+2)-u[(v[3]+3) mod 4];
if (x>10) then
y:=y+(v[2]*100-v[3]) div (u[u[0] mod 3]*5)
else
y:=y+20+(v[2]*100-v[3]) div (u[v[0] mod 3]*5);
writeln (x,',',y);
end. {*注:本例中,给定的输入数据可以避免分母为0 或下标越界。 )
输入: 9 3 9 4

输出:-13,57

2.

Program ex402;//(前2 个对1 个数给1 分,后3 个对1 个数给2 分)
const
m:array[0..4] of integer=(2,3,5,7,13);
var
i,j:integer;
t: longint;
begin
4ഊfor i:=0 to 4 do
begin
t:=1;
for j:=1 to m[i]-1 do t:=t*2;
t:=(t*2-1)*t;
write (t,' ');
end; writeln; end.
输出:____________________
3. Program ex403;
Const NN=7;
Type
Arr1=array[0..30] of char;
var
s:arr1;
k,p:integer;
function fun1(s:arr1; a:char;n:integer):integer;
var
j:integer;
begin
j:=n;
while (a<s[j])and(j>0) do dec(j);
fun1:=j;
end;
Function fun2(s:arr1; a:char; n:integer):integer;
var
j:integer;
begin
j:=1;
while (a>s[j])and(j<n) do inc(j);
fun2:=j;
end; begin
for k:=1 to NN do
s[k]:=chr(ord('A')+2*k+1);
k:=fun1(s,'M',NN)+fun2(s,'M',NN);
ഊwriteln(k);
end.

输出:6 28 496 8128 33550336

3.

Program ex403;
Const NN=7;
Type
Arr1=array[0..30] of char;
var
s:arr1;
k,p:integer;
function fun1(s:arr1; a:char;n:integer):integer;
var
j:integer;
begin
j:=n;
while (a<s[j])and(j>0) do dec(j);
fun1:=j;
end;
Function fun2(s:arr1; a:char; n:integer):integer;
var
j:integer;
begin
j:=1;
while (a>s[j])and(j<n) do inc(j);
fun2:=j;
end; begin
for k:=1 to NN do
s[k]:=chr(ord('A')+2*k+1);
k:=fun1(s,'M',NN)+fun2(s,'M',NN);
ഊwriteln(k);
end.
输出:11

4.

program ex404;
var
x,x2:longint;
procedure digit(n,m:longint);
var n2:integer;
begin
if(m>0) then
begin
n2:=n mod 10;
write(n2:2);
if(m>1) then digit(n div 10,m div 10);
n2:=n mod 10;
write(n2:2);
end;
end; begin
writeln('Input a number:');
readln(x);
x2:=1;
while(x2<x) do x2:=x2*10;
x2:=x2 div 10;
digit(x,x2);
writeln; end.
输入: 9734526

输出:6 2 5 4 3 7 9 9 7 3 4 5 2 6

五.完善程序 (前5 空,每空2 分,后6 空,每空3 分,共28 分)

1. (选排列)下面程序的功能是利用递归方法生成从1 到n(n<10)的n 个数中取k(1<=k<=n)个数的
全部可能的排列(不一定按升序输出)。例如,当n=3 , k=2 时,应该输出(每行输出5 个排列):
12 13 21 23 32
31
程序:

Program ex501;
Var
i,n,k:integer;
a:array[1..10] of integer;
count:longint;
Procedure perm2(j:integer);
var i,p,t:integer;
begin if
j=k then
begin
for i:=k to n do
begin
inc(count);
t:=a[k]; a[k]:=a[i]; a[i]:=t;
for p:=1 to k do write(a[p]:1);
write(' ');
t:=a[k];a[k]:=a[i];a[i]:=t;
if (count mod 5=0) then writeln;
end; exit; end;
for i:=j to n do
begin
t:=a[j];a[j]:=a[i];a[i]:=t;
perm2(j+1) ;
t:=a[j]; a[j]:=a[i];a[i]:=t ;
end
end; begin
writeln('Entry n,k (k<=n):'); read(n,k);
count:=0;
for i:=1 to n do a[i]:=i;
 perm2(1);
end.

2. (TSP 问题的交叉算子) TSP 问题(Traveling Salesman Problem)描述如下:给定n 个城市,构成一个完全图,任何两城市之间都有一个代价(例如路程、旅费等),现要构造遍历所有城市的环路,每个城市恰好经过一次,求使总代价达到最小的一条环路。
遗传算法是求解该问题的一个很有效的近似算法。在该算法中,一个个体为一条环路,其编码方法之一是1 到n 这n 个数字的一个排列,每个数字为一个城市的编号。例如当n=5 时,“3 4 2 1 5 ”表示该方案实施的路线为3->4->2->1->5->3 。遗传算法的核心是通过两个个体的交叉操作,产生两个新的个体。下面的程序给出了最简单的一种交叉算法。具体过程如下:
(1)选定中间一段作为互换段,该段的起止下标为t1 , t2 ,随机生成t1 , t2 后,互换两段。
(2)互换后,在每个新的排列中可能有重复数字,因而不能作为新个体的编码,一般再做两步处理:
(2.1) 将两个互换段中,共同的数字标记为0 ,表示已处理完。
(2.2) 将两个互换段中其余数字标记为1 ,按顺序将互换段外重复的数字进行替换。
例如: n=12 ,两个个体分别是:
a1: 1 3 5 4 * 2 6 7 9 * 10 12 8 11
a2: 3 2 1 12 * 6 7 10 11 * 8 5 4 9
t1=5 , t2=8 。上述每一行中,两个星号间的部分为互换段。假定数组的下标从1 开始,互换后有:
a1: 1 3 5 4 * 6 7 10 11 * 10 12 8 11
a2: 3 2 1 12 * 2 6 7 9 * 8 5 4 9
然后,将数字6,7 对应的项标记为0 ,星号内数字2,9,10,11 对应的项标记为1 ,并且按顺序对
应关系为: 10<->2 , 11<->9 。于是,将a1[9]=10 替换为a1[9]=2 ,将a2[2]=2 替换为a2[2]=10 ,
类似再做第2 组替换。这样处理后,就得到了两个新个体:
a1: 1 3 5 4 6 7 10 11 2 12 8 9
a2: 3 10 1 12 2 6 7 9 8 5 4 11
( 3 )输出两个新个体的编码。
程序:

program ex502;
type arr1=array[1..20] of integer;
var
a1,a2,kz1,kz2:arr1;
n,k,t1,t2:integer;
function rand1(k:integer):integer;
var t:integer;
begin
t:=0;
while (t<2) or(t>k) do
t:=random(k+1)-2;
rand1:=t;
end;
procedure read1(var a:arr1;m:integer);
{读入数组元素a[1]至a[m], a[0]=0 ,略。}
procedure wrt1(var a:arr1;m:integer);
{输出数组元素a[1]至a[m],略。}
8ഊprocedure cross(var a1,a2:arr1;t1, t2,n:integer);
var
i,j,t,kj:integer;
begin
for i:=t1 to t2 do
begin
t:=a1[i]; a1[i]:=a2[i];a2[i]:=t ;
end;
for i:=1 to n do
if (i<t1)or(i>t2) then
begin
kz1[i]:=-1;kz2[i]:=-1;
end else begin
kz1[i]:=1;kz2[i]:=1 ; end;
for i:=t1 to t2 do
for j:=t1 to t2 do
if(a1[i]=a2[j]) then
begin kz1[i]:=0;kz2[j]:=0 ; break; end;
for i:=t1 to t2 do
if(kz1[i]=1) then
begin
for j:=t1 to t2 do
if(kz2[j]=1) then
begin kj:=j; break; end;
for j:=1 to n do
if ((a1[j]=a1[i])and(kz1[j]=-1) then
begin a1[j]:=a2[kj];break; end;
for j:=1 to n do
if ((a2[j]=a2[kj])and(kz2[j]=-1) then
begin a2[j]:=a1[i]; break; end;
kz1[i]:=0;kz2[kj]:=0;
end; end; begin
writeln('input (n>5):');
readln(n);
writeln('input array 1:'); read1(a1,n);
writeln('input array 2:'); read1(a2,n);
t1:=rand1(n-1);
repeat
t2:=rand1(n-1);
until(t1<>t2);
if(t1>t2) then
begin k:=t1; t1:=t2; t2:=k; end;
cross((a1,a2,t1,t2,n) ;
wrt1(a1,n); wrt1(a2,n);
end.