2009年长沙市小学生计算机奥林匹克竞赛初赛试题

今年长沙市小学生计算机奥赛中使用的计算机语言仍是（    ）。

2008年中科院研制成功的“曙光5000”超级计算机，又刷新了我国计算机的最高运算速度，它每秒运算超过了（    ）。

执行b:=10; for i:=0 to b do b:=b+1; 之后，变量i、b的值分别为 （    ）

与二进制数100110101相等的十六进制数是（    ）

根据条件判断的结果，来选择程序执行方向的程序结构称为（    ）

若Var A:Array[0..10] Of Integer; 定义了数组A，则A数组需要的这内存空间为（    ）。

中央处理器每执行一个（    ），就可完成一次基本运算或判断。

表达式Trunc(sqrt(18236 div 100 mod 100))的值为（    ）

内存储器的每一个存储单元，都对应一个唯一的序号，作为它的（    ）。

描述网络数据传输速率的单位是BPS，其含义是（    ）

对10个按大小排列的数，用二分法查找其中某个数的位置，最多只需查找（    ）次。

下列表达式的值为true的是（    ）

产生10～30之间(包括10、30)的随机整数表达式为（    ）

下列pascal表达式当中正确的是（    ）

执行i:=0; while i<2009 do begin n:=n+ord(odd(i)); i:=i+1 end 之后，n值为（    ）

执行语句writeln(‘12*3=’,12*3)的结果为（    ）

在完成编程后，为了有效检测程序的正确性，应该（    ）

对二维数组A:Array[1..5,1..7] of integer，现在要存入数据，若按行顺序存储，其中有一个数在[3,5]的位置，而若改为按列顺序存储，则这个数应该位于（    ）

下面描述错误的是（    ）

1
2.3
4.5、6
7.8、9、10
………………
问：如上三角形数阵中第11行第6个数是多少？请完善计算第n行第i个数的表达式。
答：第11行第6个数是________ ，第n行第i个数的表达式为：__________*n/2+i

有一种电子钟，每到正点响一次铃，每过九分钟亮一次灯。问：如果中午12点整它既响铃又亮灯，那么下一次既响铃又亮灯是什么时间？
答：__________________________________

var x,y:integer;
begin
        readln(x,y);
        if x-10>y then writeln(x div y) else writeln(x mod y);
      end.
      输入：34  26
      输出：__________________________________________                               

var a:array[0..8] of integer;
    i:integer;
begin
  for i:=1 to 8 do a[i]:=i;
  for i:=1 to 4 do begin
a[0]:=a[i];a[i]:=a[9-i];a[9-i]:=a[0];
            end;
            for i:=1 to 8 do write(a[i]:2);
            writeln;
end.                                   
输出：_______________________________________________                               

var s,s1,s2:string;
    i,j,len:integer;
Begin
  Readln(s);
  Len:=length(s);
  Sl:=‘’;s2:=‘’;j:=0;
  For i:=1 to len do begin
if (s[i]>=‘0’) and (s[i]<=‘9’) then begin
  j:=j+1;insert(s[i],s1,j);
end else
  if (s[i]>=‘a’) and (s[i]<=‘z’) or (s[i]>=‘A’) and (s[i]<=‘Z’)
      then s2:=s2+s[i];
end;
writeln(s1,‘ ’,s2);
End.
输入：Is 4Today 18?
输出：________________________________________________                                 

var a,b:integer;
    Procedure tt(x:integer;var y:integer);
    Begin
      x:=x+y;
      y:=x-y;
    end;
    begin
      a:=7;b:=8;
      tt(a,b);
      writeln(a:3,b:3);
      tt(a-b,b);
      writeln(a:3,b:3);
end.
    输出：_______________________________________________                                 

统计子序列数
输入一个互不相同的正整数序列，求出该序列中所有递增和递减子序列的数目。
例如：整数序列（7，4，6，9，8，3，5，2，1），可以分为（7，4），（4，6，9），（9，8，3），（3，5），（5，2，1）这些子序列，即：子序列的数目为5.
（注：上例整数序列中的4,9,3,5被称之为“转折元素”）
Var n,i,s:integer;
  d:array[1..100] of integer;
begin
  readln(n);
  for i:=1 to n do read(________);
  s:=__________;
  for i:=2 to_____________do
if (d[i]-d[i-1]*_______________________>0 then
  ___________________;
          Writeln(s);
end.

“振荡”冒泡排序：
将n个整数从小到大排序（n≤1000），下面的程序是对普通冒泡法排序的一个改进：先从一端开始扫描，进行比较、交换，然后改变下一趟扫描的方向，作同样的处理，使冒泡过程来回“振荡”进行，并逐步缩小扫描范围，直到n个数都排好序为止。
Var n,i:integer;
    a:_____________________________ ________________ ;
procedure shakesort(x:integer);
  var i,h,t,k:integer;
      b:Boolean;
  begin
    h:=1;t:=x;
    repeat
   ____________________________________;
      For i:=h to          do
        If  a[i]>a[i+1] then begin
            K:=a[i];a[i]:=a[i+1];a[i+1]:=k;
            B:=false;
        End;
      T:=t-1;
      For i:=t-1 downto h do
        If __________________ then  begin
          K:=a[i];a[i]:=a[i+1];a[i+1]:=k;
          B:=false;
        End;
      H:=h+1
    Until b;
    End;
  Begin
    Randomize;readln(n);
    For i:=1 to n do a[i]:=random(1000)+1;
 __________________________________;
    For i:=1 to n do write(a[i]:4);
    Writeln
  End.