2012年长沙市小学生信息学奥林匹克竞赛初赛试题与答案

（时间：90分钟）

 

参赛证号：           姓名：            学校：               总分：

 

一、单项选择题（每小题2分，共40分）

1.目前获得世界计算机科学最高奖——“图灵奖”唯一的华人是（  ）

A、袁隆平     B、冯.诺依曼    C、华罗庚     D、姚期智

2.现在学校、家庭使用的台式电脑都是微型计算机，微型机的核心部件是（  ）

A、主板    B、中央处理器   C、硬盘    D、显示器

3.有效预防病毒入侵的方法是（  ）

① 用可移动存储设备时先行杀毒软件  ② 及时修复系统漏洞

③ 随意打开来路不明的邮件          ④ 安装并及时升级杀毒软件

A、①②③   B、①③④    C、①②④    D、②③④

4.以下关于计算机语言的说法中，错误的是（  ）

A、机器语言具有直接执行和速度快等特点。

B、高级程序员用计算机高级语言编程，而我们小学生学的是计算机低级语言。

C、汇编语言有着高级语言不可替代的用途。

D、机器语言和汇编语言都是计算机低级语言。

5.若E=0，则（（（E*2+1）*2+1）*2+25 div 3 mod 3-trunc(2.5)值为（  ）

A、10   B、8   C、26    D、0

6.执行a:=0.123456;writeln(‘a=’,a:0:4)的输出结果是（  ）

A、‘a=’,0.4     B、a=0.1234    C、0.123456E+4  D、a=0.1235

7.设A、B为boolean型变量，下列逻辑表达式的值恒为TRUE的是（  ）

A、A or B or not A and not B         B、A or B and not A or B 

C、B and A or not A and not B        D、B or not A and B and A

8.用for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]);读入数据...*.....之后，表示‘*’的 是（  ）

A、a[1,4]     B、a[1,2]    C、a[2,1]   D、a[3,1]

9.a:=’a’; b:=’c’;a:=c+b;writeln(a)的输出结果是（  ）

A、acc         B、aca      C、cca     D、cac

10.将变量ch1中大写字母变成相应的小写字母给变量ch2，正确的语句是（  ）

A、ch2:=upcase(ch1)        B、ch2:=chr(ord(‘A’-ord(‘a’)+ord(ch1))

C、ch2:=chr(ord(ch1)+32)   D、ch2:=chr(ord(ch1)-32)

11.下列有关数制的等式正确的是（  ）

A、（10.75）10=（1010.011）2          B、（2）8*（6）8=（14）8

C、（110010）2+（16）10=（100100）2

D、（1000）2=（8）8

12.由1个a和3个b构成的所有字符串中，包含子串’ab’的共有（  ）个。

A、1       B、2       C、4       D、3

13.设A是一个五位数，截取A的十位、百位和千位的表达式是（  ）

A、A mod 10 div 1000   B、A div 10 mod 1000

C、A  div 10000 mod 10     D、A  mod 1000  div 10

14.整形变量I已赋值，则表达式ord(odd(I) or odd(I+1))的值为（  ）

A、1   B、FALSE   C、0     D、TRUE

15.Pascal程序存盘的文件扩展名为（  ）

A、.bak     B、.exe    C、pas    D、bas

16.调用函数或过程时实际参数必须与参数表中的（  ）在个数、顺序和类型上保持一致。

A、变量参数  B、全程变量   C、值参数   D、形式参数

17.1~n这n个数排成一列，若每个数的位置都与数本身不相等，则称这个排列是一个错位排列。如:n=3时，错位排列有 2 3 1、3 1 2共2个。那么n=4时，错位排列的总个数是（  ）

A、9     B、8    C、7     D、6

18.在排好序的20个数中用二分法查找一个数，若查无此数，最多需要比较（  ）次。

A、6     B、5    C、10     D、4

19.现有10元、7元、2元、1元四种纸币，若每种纸币的张数足够多、最少用（  ）张纸币才能凑成35元钱？

A、6     B、4    C、3     D、5

20.设A、B为正整数，且A，要产生随机整数X，满足A≤B,正确的语句是（  ）

A、x:=Random(B-A)+A             B、x:=Random(B-A-1)+A+1

C、x:=Random(B-A)+A+1           D、x:=Random(B-A+1)+A-1

 

二、问答题（每小题5分，共10分）

1、小雪在少儿图书馆借了一本喜欢的书，当天就看完一半，还多看了一页，第二天她把剩下的书看完一半，又多看了一页，……，以此类推，6天就把书全部看完了。问：这本书共多少页？

答：这本书共               页。

2、黑白两种棋子共300枚，分成100堆，每堆3枚。其中只有1枚白子的共27堆，至少有2枚黑子的共42堆，有3枚白子的与3枚黑子的堆数相同。问：白子共有多少枚？

答：白子共有               枚。

 

三、阅读程序，写出程序的结果（每小题5分，共20分）

（1）var a,b,c,p,q,r,m:integer;

     begin

       readln(b,a,c);

       a:=a+b;b:=a-b;a:=a-b;

       p:= a div b;

       q:=b-c+a+p;

       r:=a*p;

       m:=r*(r-3);

       writeln(r-m);

     end.

输入：4  2  10      输出：                                        

 

（2）type arr=array[1..100] of integer;

     var a:arr;

        s,n,m,i,j,k,tot:integer;

begin

  read(n,m,k);s:=0;

  for i:=1 to n do s:=s+1;

  for j:=1 to n do a[i]:=s;

  i:=0;j:=0;tot:=0;

  repeat

i:=i+1; if i=n+1 then i:=1;

if a[i]=s then j:=j+1;

if j=m then begin

  a[i]:=-100;write(i,’ ‘);

  tot:=tot+1;j:=0;

end;

until tot=k;

end.

输入：100  36  6      输出：                                            

 

（3）var a,b:integer;

function mul(n:integer):integer;

  var i,s:integer;

begin

  s:=1;

  for i:=1 to n do

    if i mod 2=0 then s:=s*i else s:=s+i;

  mul:=s;

end;

   begin

     readln(a,b);

     writeln(mul(a)+mul(b));

end.

输入：4   2      输出：                                              

 

（4）var ans ,an2,s:string;

        n,m,i:longint;

     begin

       readln(s);

       n:=length(s);ans:=’’;

       for i:=1 to n do

          if (s[i]>=’0’)and(s[i]<=’9’)then

             ans:=ans+s[i];

       write(ans,’  ‘);

      m:=length(ans);ans2:=’’;

      for i:=1 to m do

        ans2:=ans[i]+ans2;

      writeln(ans2);

     end.

输入：ans28kj4xue6      输出：                                                

四、完善程序（每空3分，共30分）

1、选举队长：阳光学校成立一支少年学雷锋行动队，要从m位候选人（代号1~m）中选出一名队长，有n人参加了投票选举，请统计出每位候选人的票数。

（m<=10,选票上的候选人代号用随机数模拟）

var a:array[1..10] of integer;

  i,s,n,m:integer;

begin

  randomize;

  readln(n,m);

  for i:=1 to      do begin

   s:=random(   )+1;

   a[s]:=              ;

  end;

for i:=1 to    do  writeln(i,       :10);

end.

 

2、公路维修：从A城到B城的一条公路出现了n处坑洼，维修这条公路需对m个地段实行交通管制，使得这n个坑洼处禁止通行。现已知n处坑洼与A城的距离（由近到远列出），请计算机出实施交通管制路段的最短总长度？（n<=1000,m<=n）

例如：n=18,m=4

n处坑洼与A城距离：3 4 6 8   14 15 16 17 21  25 26 27 30 31  40 41 42 43

实施管制路段的最短总长度为25（即：6+8+7+4）

提示：每段管制道路两端一定是坑洼处。

   先求出相邻坑洼之间的距离，将这些间距排序，前m-1大的间距路段不实行交通管制。

var sum,ans,n,m,i,t,j:integer;

   a,b:array[0..1000] of integer;

begin

   readln(n,m);

   for i:=1 to n  do read(a[i]);

   for i:=1 to           do b[i]:=              -1;

   for i:=1 to n-2  do

      for j:=i+1 to n-1 do

        if                          then   begin

           t:=b[i];b[i]:=b[j];b[j]:=t;

       end;

sum:=0;

for i:=1 to m-1 do sum:=                 ;

ans:=                          ;

writeln(ans);

end.

 

 

 

 

 

 

 

 

 

 

2012年长沙市小学生信息学奥林匹克竞赛初赛答案

 

 

一、单项选择题（每小题2分，共40分）

DBCBA 

DACAC  

BDBAC  

DABDC

 

二、问答题（每小题5分，共10分）

①126

②158

 

三、阅读程序，写出程序的结果（每小题5分，共20分）

① -32

② 36 72 8 45 82 19

③ 32

④ 2846 6482

 

四、完善程序（每空3分，共30分）

1、

① n

② m

③ a[s]+1

④ m

⑤a[i]

 

2、

① n-1

② a[i+1]-a[i]

③ b[j]>b[i]或b[i]

④ sum+b[i]

⑤a[n]-a[1]+1-sum