2008年东莞市小学生镇区信息技术奥赛选拨赛试题(笔试)分析

在计算机中，ASCⅡ码是（    ）位二进制代码。

执行WRITELN(3.1415926:5:6)的结果为（    ）。

大家知道，不同类型的存储器组成了多层次结构的存储器体系，按存取速度从快到慢的排列是（    ）。

因发现巨磁电阻效应(巨磁电阻效应相关技术被用于读取硬盘中数据，这项技术是最近几年硬盘小型化实现过程中的关键)而荣获2007年诺贝尔物理学奖的科学家是（    ）。

FP错误代码“EXITCODE=215”指的是（    ）。

以下是计算机存储容量大小的比较，结果为TRUER的式子是（    ）。

已知有一个运算符号“☆”，使下列式子成立：8☆7＝15；5☆3＝7。求式子的值：7☆3＝（    ）。

设X，K为整数型，执行VAL('2008BEIJING',X,K)后，下列判断正确的是（    ）。

现有80枚硬币(其中有一枚假币，重量较轻)和一架天平，请问最小需要称几次，才能找出假币（    ）。

下列设备哪一项不是计算机输入设备（    ）。

以下PASCAL表达式能正确描述实数X(100<=X<200)是（    ）。

在计算机存储容量的表示中，2MB相当于（    ）。

表达式round(5.8) div 3*5 mod 3-ord(trunc(5.8)<6)的值是（    ）。

以下变量说明，正确的是（    ）。

有一3*3的方格棋盘(每个格子长宽都为1)，共有多少个正方形（    ）。

平面上有6条直线，且无三线共点，则最多有（    ）个交点。

下列诸因素中，对微机工作影响最小的是（    ）。

DNS是指（    ）。

表达式trunc(5*ln(8)/ln(10))+1的值是（    ）。

现有长度分别为1，2，…，10的细木棍各一根，可以以它们为边构成多少个不同的三角形？

K2路公共汽车从汽车总站出发，途经报业大厦，汽车东站，…，大岭山，松山湖，全程共设14个车站，满载为25人，中途的每一个车站均可上下乘客，由不同的起点到不同的终点的乘客各应购买不同的车票，在一次单程行驶中，车上最多可卖出多少种不同车票？

var
  n,i,k:integer;
  s:string;
begin
  readln(n);
  for i:=1 to n do
    begin
      str(i,s);
      k:=pos('7',s);
      if (i mod 7=0) or (k<>0)
        then write(i,' ');
    end;
end.
输入：50
分析：本题的本质是输出1至n(这里n=50)之间的整数中包含有数字“7”或是7的倍数的数。故输出结果为：
________________________________

const n=6;
var I,j,k:integer;
    r:array[0..10] of integer;
begin
  for I:=1 to n do read(r[I]);
  for I:=2 to n do
    begin
      k:=r[I];j:=I-1;
      while (k>r[j]) and (j>0) do
        begin r[j+1]:=r[j];j:=j-1;end;
      r[j+1]:=k;
    end;
  for I:=1 to n do  write(r[I],' ');
end.
输入： 8 9 1 3 2 0
分析：本题是先读入6个整数，然后用插入排序法按从大到小的顺序排序。故输出的结果如下：____________

var
  a:array[1..10] of integer;
  n,m,i,j,k,p:integer;
begin
  readln(n,m);
  for i:=1 to n-1 do a[i]:=i+1;
  a[n]:=1;j:=n;k:=1;p:=0;
  repeat
    j:=a[j];k:=k+1;
    if k=m
      then begin
            write(a[j]:3);
            p:=p+1;
            a[j]:=a[a[j]];
            k:=1;
          end
  until p=n;
end.
输入：10 6
分析：本题是约瑟夫问题，共有n个人，从第1个人开始报数，每报到m的人出列，然后继续下一个人开始重新报数，依此处理，直到所有的人都出列为止，输出出列的人的顺序。A[j]表示第j个人的下一个的编号，P表示出列的人数。输出结果如下：______________________

const
maxn=100000;
var
  ch:char;
  n,s,m,max,k,i,j,l:integer;
  a:array[1..maxn] of char;
begin
  readln(n);
  for i:=1 to n do
    begin
      s:=0;k:=0; read(ch);
      while ch<>'E' do
        begin
          inc(k); a[k]:=ch; read(ch);
        end;
      readln;
      m:=0;
      for j:=1 to k do
        begin
          if a[j]='Y' then begin
                            s:=s+1;  m:=m+1;
                          end
                      else m:=0;
          if m=3 then begin
                        s:=s+1; m:=0;
                      end;
        end;
      if s>=max then begin
                      max:=s; l:=i;
                    end;
  end;
    writeln(l,’  ’,max);
  end.
输入：3
YYNNNYYYYYYNYNYYE
YYNNNNNNYE
NNNNNYNNNNYYE
分析：本题是求在3个字符串中，Y的个数与“YYY”的个数的和最多的是哪个字符串，并输出和。E是每个字符串的结束标记。从上面给出的三个字符串中可看出，第一个字符串的和最大。“YYNNNYYYYYYNYNYYE”中有11个Y，2个“YYY”。
故输出为：____________________

求实数经的整数幂 。
　　　　const
  maxn=100;
var
  n,j,k:longint;
  x,y:extended;
   a:array[1..maxn] of integer;
begin
  readln(x,n);
  k:=0;
  while n<>0 do
    begin
    _______ ①_________ ;
      a[k]:=n mod 2;
      n:=n div 2;
    end;
   __________②________；
  for j:=k downto 1 do
    begin
      y:= __________ ③____________ 
      if__________ ④_________ then y:=y*x; 
    end;
  writeln(y)
end.

 program  data2(input,output); 
       const  n=5; 
       var i,j,k:integer;     
a:array[1..2*n,1..2*n] of integer; 
begin   
   k:=1 ;   
   for i:=1 to _____(5)_____ do   
    if i<=n then        
    if odd(i) then           
     for j:=_____(6)_____ do                        
begin                               
a[i-j+1,j]:=k;
                k:=k+1
              end
        else
            for j:=1 to i do
              begin
                ______(7)______; 
                k:=k+1
              end
      else
        if odd(i) then
            for j:=n downto____(8)____ do 
              begin                  
                a[i-j+1,j]:=k;
                k:=k+1
              end
        else
            for j:=______(9)______ do 
              begin                     
                a[i-j+1,j]:=k;
                k:=k+1
              end;
      for i:=1 to n do
      begin
        for j:=1 to n do
          write(a[i,j]:3);
        writeln;
      end;
  end.