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

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

1. 微型计算机中,控制器的基本功能是( )。

  • A.控制机器各个部件协调工作
  • B.实现算术运算和逻辑运算
  • C.获取外部信息
  • D.存放程序和数据

2. 设A=True,B=False,C=True,D=False,以下逻辑运算表达式值为真的是( )。

  • A.(A∧B)∨(C∧D∨﹁A)
  • B.((﹁A∧B) ∨C)∧﹁D
  • C.(B∨C∨D) ∧D∧A
  • D.A∧(D∨﹁C)∧B

3. 在下列关于图灵奖的说法中,不正确的是( )。

  • A.A.图灵奖是美国计算机协会于1966年设立的,专门奖励那些对计算机事业作出重要贡献的个人
  • B.图灵奖有“计算机界诺贝尔奖”之称
  • C.迄今为止,还没有华裔计算机科学家获此殊荣
  • D.图灵奖的名称取自计算机科学的先驱、英国科学家阿兰•图灵

4. 计算机在工作过程中,若突然停电,( )中的信息不会丢失。

  • A.ROM 和 RAM
  • B.CPU
  • C.ROM
  • D.RAM

5. 完全二叉树共有2*N-1个结点,则它的叶节点数是( )。

  • A.N-1
  • B.N
  • C.2*N
  • D.2N-1

6. 在以下各项中,( )不是操作系统软件。

  • A.Solaris
  • B.Linux
  • C.Windows Vista
  • D.Sybase

7. 设栈S的初始状态为空,元素a,b,c,d,e,f依次入栈S,出栈的序列为b,d,f,e,c,a,则栈S的容量至少应该是( )。

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

8. 与十进制数28.5625相等的四进制数是( )。

  • A.123.21
  • B.131.22
  • C.130.22
  • D.130.21

9. 设字符串S=”Olympic”,S的非字串的数目是( )。

  • A.28
  • B.29
  • C.16
  • D.17

10. Web2.0 是近年来互联网的热门概念之一,其核心思想是互动与分享。下列网站中,( )是典型的Web 2.0应用。

  • A.Sina
  • B.Flicker
  • C.Yahoo
  • D.Google

11. 递归过程或函数调用时,处理参数和返回地址,通常使用一种称为( )的数据结构。

  • A.队列
  • B.多维数组
  • C.线性表
  • D.栈

12. (2008)10+(5B)16的结果是( )。

  • A.(833)16
  • B.(2089)10
  • C.(4163)8
  • D.(100001100011)2

13. 二叉树T,已知其先根遍历是1 2 4 3 5 7 6(数字为节点的编号,下同),中根遍历2 4 1 5 7 3 6,则该二叉树的后根遍历是( )。

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

14. 将数组{8,23,4,16,77,-5,53,100}中的元素按从小到大的顺序排列,每次可以交换任意两个元素,最少需要交换( )次。

  • A.4
  • B.5
  • C.6
  • D.7

15. 对有序数组{ 5,13,19,21,37,56,64,75,88,92,100}进行二分查找,成功查找元素19的查找长度(比较次数)是( )。

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

16. 面向对象程序设计(Object-Oriented Programming)是一种程序设计的方法论,它将对象作为程序的基本单元,将数据和程序封装在对象中,以提高软件的重用性、灵活性和扩展性。下面关于面向对象设计的说法中,不正确的是( )

  • A.面向对象程序设计通常采用自顶向下设计方法进行设计。
  • B.面向对象程序设计方法具有继承性(inheritance)、封装性(encapsulation)、多态性 (polymorphism)等几大特点。
  • C.支持面向对象特性的语言称为面向对象的编程语言,目前较为流行的有C++,JAVA,C# 等。
  • D.面向对象的程序设计的雏形来自于Simula语言,后来在SmallTalk语言的完善和标准化的过程中得到更多的扩展和对以前思想的重新注解。至今,SmallTalk语言仍然被视为面向对象语言的基础

17. 在32*32点阵的“字库”中,汉字“北”与“京”的字模占用字节数之和是( )。

  • A.512
  • B.256
  • C.384
  • D.128

18. 设T是一棵有n个顶点的树,下列说法不正确的是( )。

  • A.T有n条边
  • B.T是连通的
  • C.T是无环的
  • D.T有n-1条边

19. 下列不属于NOIP竞赛推荐使用的语言环境的是( )。

  • A.Dev-C++
  • B.Visual C++
  • C.Free Pascal
  • D.Lazarus

20. 在Pascal程序中,表达式(200 or 10)的值是( )。

  • A.20
  • B.1
  • C.220
  • D.202

二、问题求解(共2题,每题5分,共计10分)

1. 书架上有4本不同的书A、B、C、D。其中A和B是红皮的,C和D是黑皮的。把这4本书摆在书架上,满足所有黑皮的书都排在一起的摆法有_________种。满足A必须比C靠左,所有红皮的书要摆在一起,所有黑皮的书要摆放在一起,共有_________种摆法。
答案:12|4

2. 有6个城市,任何两个城市之间都有一条道路连接,6个城市两两之间的距离如下表所示,则城市1到城市6的最短距离为__________________。
答案:7

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

1.

VAR	i,a,b,c,d:integer;
	f:array[0..3] of integer;
BEGIN
        for i:=0 to 3 do
                read(f[i]);
        a:=f[0]+f[1]+f[2]+f[3];
        a:=a div f[0];
        b:=f[0]+f[2]+f[3];
        b:=b div a;
        c:=(b*f[1]+a) div f[2];
        d:=f[(b div c) mod 4];
        if (f[(a+b+c+d) mod 4]>f[2]) then
        begin
                a:=a+b;
                writeln(a);
        end else
        begin
                c:=c+d;
                writeln(c);
        end;
END.

输入:9 19 29 39
输出:23

2.

procedure foo(a,b,c:integer);
begin
        if a>b then foo(c,a,b)
        else writeln(a,',',b,',',c);
end;

var
        a,b,c:integer;
begin
        read(a,b,c);
        foo(a,b,c);
end.

输入:3 1 2
输出:2,3,1

3.

type    TT=array[0..20]of integer;
prodecure func(var ary:TT;n:integer);
  var i,j,x:integer;
  begin
   i:=0;j:=n-1;
   while i<j do begin
      while (i<j) and (ary>0) do inc(i);
      while (i<j) and (ary[j]<0) do dec(j);
      if i<j then begin x:=ary;
                   ary:=ary[j];
                   ary[j]:=x;
                   inc(i);
                   dec(j);
               end;
    end;
end;
var
                a:TT;
                i,m:integer;
begin
         m:=10;
         for i:=0 to m-1 do 
                 read(a);
         func(a,m);
         for i:=1 to m-1 do 
                 write(a,' ');liyilong.net
         writeln;
end.
输入:5 4 -6 -11 6 -59 22 -6 1 10
输出:5 4 10 1 6 22 -59 -6 -11 -6

4.

procedure solve(first:string;spos_f,epos_f:integer;mid:string;spos_m,epos_m:integer);
var i,root_m:integer;
begin
  if spos_f > epos_f then exit;
  for i:=spos_m to epos_m do
    if first[spos_f]=mid[i] then begin
     root_m:=i;
     break;
     end;
solve(first,spos_f+1,spos_f+(root_m-spos_m),mid,spos_m,root_m-1);
solve(first,spos_f+(root_m-spos_m)+1,epos_f,mid,root_m+1,epos_m);
write(first[spos_f]);
end;

var      first,mid:string;
         len:integer;
begin
           readln(len);
           readln(first);
           readln(mid);
           solve(first,1,len,mid,1,len);
           writeln;
end.

输入:7 
          ABDCEGF
          BDAGECF
输出:DBGEFCA

四.完善程序(前四空,每空2.5分,后6空,每空3分,共28分)

1. (字符串替换)给定一个字符串S(S仅包含大小写字母),下面的程序将S中的每个字母用规定的字母替换,并输出S经过替换后的结果。程序的输入是两个字符串,第一个字符串是给定的字符串S,第二个字符串S’由26个字母组成,它是a~z的任一排列,大小写不定,S’规定了每个字母对应的替换字母:S’中的第一个字母是字母A和a的替换字母,即 S中的A用该字母的大写替换,S中的a用该字母的小写替换;S’中的第二个字母是字母B 和b的替换字母,即S中的B用该字母的大写替换,S中的b用该字母的小写替换;… …以此类推。

Var change:string;
	Str:string;
Procedure CheckChangeRule;
Var     i:integer;
Begin
        for i:=1 to 26 do begin
                if  (change[i]>='A') and (change[i]<='Z')  then
                        change[i]:=chr(ord(change[i])-ord('A')+ord('a'));
                end;
        end;

Procedure ChangeString;
Var     len,i:integer;
begin
        len:=length(str);
        for i:=1 to len do begin
                if  (str[i]>='A') and (str[i]<='Z')  then
                begin
                        str[i]:=upcase(change[ord(str[i]-ord('A')+1]);
                end;
                else
                begin
                 str[i]:=change[ord(str[i])-ord('a')+1]; 
                end;
        end;
end;
begin
        readln(str);
        readln(change);
        CheckChangeRule;
         ChangeString; 
        writeln(str);
end.

2. (找第k大的数)给定一个长度为1,000,000的无序正整数序列,以及另一个数n(1≤n≤1000000),然后以类似快速排序的方法找到序列中第n大的数(关于第n大的数:例如序列{1,2,3,4,5,6}中第3大的数是4。)

VAR     a:array[1..1000000] of integer;
        n,m,ans:integer;
Procedure swap(var a,b:integer);
var t:integer;
begin
        if (a<>b) then begin
                t:=a; a:=b; b:=t;
        end;
end;
function FindKth(left,right,n:integer):integer;
var     tmp,value,i,j:integer;
begin   if left=right then exit(left);
        tmp:=random(right-left)+left;
        swap(a[tmp],a[left]);
        value:= a[left] ;
        i:=left; j:=right;
        while i<j do begin
                while (i<j) and ( a[j]<value ) do dec(j);
                if i<j then begin
                        a[i]:=a[j]; inc(i);
                end else break;
                while (i<j) and ( a[i]>value ) do inc(i);
                if i<j then begin
                        a[j]:=a[i]; dec(j);
                end else break;
        end;
         a[i]:=value; 
        if i<n then begin inc(i); exit(FindKth( i,right,n )); end;
        if i>n then begin dec(i); exit( FindKth(left,i,n) ); end;
        exit(i);
end;

var i:integer;
begin
        randomize;
        m:=1000000;
        for i:=1 to m do read(a[i]));
        read(n);
        ans:=FindKth(1,m,n);
        writeln(a[ans]);
end.