[原创]快要比赛了，送上模拟训练试卷一张。

主题：[原创]快要比赛了，送上模拟训练试卷一张。

风君 [专家分：120] 发布于 2005-10-14 10:16:00

模拟训练试卷    姓名：              成绩：
一、选择1个正确答案代码（每题1.5分，多选无分，共30分）
1．    下列4个不同的数制表示的数中，最大的一个数是（）。
A. 十进制数220.1         B. 二进制数11011011.1
C. 八进制数334.1         D. 十六进制数DC.1
  2. Office 2000中的剪贴板是（  ）
A. 硬盘中的一块区域      B. 内存中的一块区域
C. Cache 中的一块区域     D. CPU中的一块区域
3．产生100至300之间的随机整数（ Random），且包含100，300两个整数的表达式是（）
A. Random（100）＋200     B. Random（200）＋100
C Random （201）＋100     D Random （300 ）
  4．调制解调器又称MODEM.可用于连接计算机和电话线拨号上网，调制是指（）
     A.把电信号转换成为光信号     B. 把光信号转换成为电信号
     C. 把模拟信号转换成数字信号  D. 把数字信号转换成模拟信号
  5．若采用32×32点阵的汉字字模，存放1600个汉字信息需存
储容量是（）KB.
A. 25      B. 200      C . 800        D.1600
6. 为了删除当前盘目录下第三个字符为C的所有文件，下列dos命令正确的是（）。
    A. DEL ? *C.*              B.  DEL ?? C. *
    C. DEL * * C *.*            D.  DEL ?? C*.*
7．OSI的七层协议中，最底层是（）。
    A. 会话层               B.数据链路层
    C. 物理层               D.网络层
8．设x为值大于0的实型变量，计算pascal中x8的表达式为
    A. Ln（ 8* exp(x)）       B. exp ( 8* Ln( x ) )
    C. x^8                   D. sqr( sqr ( sqr ( x) )) *x
9.十进制数－103的补码是（）。
    A. 10011001              B.11100111
    C. 10110011              D. 00011001
10．为了区分汉字与ASCⅡ码，计算机中汉字编码的最高位（）。
    A. 0         B. 1           C.  2            D.  4
11.“网络通信协议”，如： Internet采用的TCP/IP等协议是一组（）。
    A.  软件                    B.存储器
    C.  外部设备                D. 约定的规则
12．下列软件依次对应图像浏览，屏幕抓取，文件压缩，杀毒软件的排列顺序是（　）．
     ①HyperCam   ② WinRAR   ③ Norton Antirus   ④ACDsee
         A.①②④③                B.②①③④
         C.③④②①                D.④①②③
13.在微型计算机系统中，I/O接口的位于（）之间。
     A. CPU和内存储器            B.外部设备与内存储器
     C.总线与输出输入设备         D. 主机和输入输出设备
14．在微型计算机中，常用（）码实现十进制数与二进制数之间的自动转换。
     A. BCD码   B. ASCⅡ码    C.海明码     D. 机内码
15．微机中使用的鼠标是直接连接在主机（）上的。
     A. 显示器接口             B.打印机接口
     C. 并行接口               D. 串行接口
16．使用WORD菜单时，若选中的菜单项尾部有（）标记，说明此菜单还有下一级菜单。
     A. 组合键                    B.向右小三角形箭头
     C.省略号                     D.带括号的字母
17．一个栈的输入顺序为1，2，3，4，5，下列序列中可能是栈的输出序列是（）。
     A. 54312     B. 24135      C. 21543      D. 12534
18. 函数f(x)＝3x2－2x－1在（－2，2）中的最小值为（）。
     A.  1      B. －1        C. －4/3       D.－8/3
19. 已知A=11001010B, B=00001111B, C=01011100B, A∨B∧C=( )B.
     A.11001110             B. 01110110
     C. 11101110             D. 01001100
20. 一棵二叉树的中序遍历序列为：DGBAECHF, 后序遍历序列为：
    GDBEHFCA, 则前序遍历的序列是（  ）。
     A. ABCDFGHE          B. ABDGCEFH
     C. ACBGDHEF          D. ACEFHBGD
二、问题求解（16分）
       第1题（5分），将n个不同颜色的球放入k个无标号的盒子中（n≥k,且盒子不允许为空）的方案数为S( n，k)，例如：n=4, k=3时，S( n,k)=6
    当n＝6，k＝3时，S(n，k)＝（     ）。
       第2题（5分），有5本不同的数学书分给5个男同学，有4本不同的英语书分给4个女同学，将全部书收回来后在从新发给他们，与原方案都不相同的方案有（   ）种。
       第3题（6分），把三角形各边分成n等分，过每一分点分别做各边的平行线，得到一些由三角形的边和这些平行线所组成的平行四边。n为已知整数，能组成（）个平行四边形。

本帖地址： http://bbs.pfan.cn/post/112426.html

回复列表（共13个回复）

沙发

风君 [专家分：120] 发布于 2005-10-14 10:17:00

三、写出程序运行结果（22分）

      第1题（6分），program LM_31;
               Var
                 d,p: integer;
               begin
                 p: =1;
                 d: =11;
                 while d >1 do
                   begin
                      p: = 2* ( p +1);
                      d: = d －1
                   end；
                 Writeln（p）
              End.

             输出：（         ）
      第2题（8分），Program LM_32;
               Var
                 g: integer;
                 k, t :integer;
                 m: integer;
               begin
                 k: =0;
                 g: =0;
               for m : = 1 to 49 do
                  begin
                     g : = g+1;
                     k : = k+1/( g * (g + 1))
                  end;
               Writeln ( k : 10 : 2)
               End.
              输出：（        ）
      第3题（ 8分），Program LM_33;
              Var
                n, i, tem, t: longint;
                       s: string;
                 begin
                    write( ‘input n: ‘);readln (n);
                    s: = ‘ 1 ‘
                    repeat
                       i : = length ( s );


while s[ i ] = ‘1 ‘ do
  begin
   s[ i ] = ‘0’ ;  dec( i );
  end
if  i > 0 then s [ i ] : = ‘1 ‘
     else s : = ‘1 ‘ + s;
val ( s, t, tem );
until t mod n =0;
writeln ( n, ‘ * ‘ , t div n, ‘ = ‘ , s);
end.
输入： 6
输出：（        ）

板凳

风君 [专家分：120] 发布于 2005-10-14 10:20:00

四、完善程序（每空2分，共32分）

第1题（ 14分），一下程序是将一组整数从小到大的顺序排列。排序的方法是将长度为n的数a分为两个长度分别为（ n div 2 ）与（n－ n div 2）的子数组a1，a2。然后递归调用排序过程将a1，a2分别排序，最后将a1，a2归并成数组 a。例如a=(3,1,2,4),那么a1 ＝（ 3，1），a2 ＝（ 2，4 ）。调用排序过程将a1，a2排序，得到a1＝（1，3），a2＝（2，4），然后进行合并排序。
从键盘输入书的长度n以及 n个整数，存在数组a中，调用子过程sort进行排序，最后输出排序结果。
program LM_41;
   const maxn =100
   type arr = array[ 1…maxn] of integer;
   var
       a : array[ 1…maxn] of integer;
       n, i : integer;
   procedure sort( n: integer; var a: arr);
     var
       i, p1, p2, n1,n2 : integer;
       a1, a2 : arr;
       begin
if n= 1 then exit;
       fillchar(a1, sizeof( a1 ) , 0);
       fillchar(a2, sizeof( a2 ), 0);
       n1 := 0; n2 : =0;
       n1 : = n div 2; n2 : =(  ①   );
       for i : = 1 to n1 do a1[ i ] : = a [ i ];
       for i : = 1 to n2 do a2[ i ] : =(  ②  );

         (  ③   );
         sort ( n2 , a2);
         p1 : =1; p2 :=1;
         n : = 0;
         while (p1≤n1)  and  (  ④  ) do
           begin
             n : = n+1;
             if (    ⑤    )
           then begin  a[ n ] : = a1[ p1 ]; inc ( p1 ); end
                else begin (   ⑥   ); inc ( p2 ); end;
             end;
         if  p1 ≤ n1

then  for i : = (  ⑦  ) to n1  do begin n : = n+1;
                a[ n ] : =a1[ i ] end
else for i : =p2  to n2  do  begin  n: = n+1; a [ n ] : =a2[ i ];
               end;
           end;
        begin
           write( ‘ n= ‘);
readln ( n);
           for i : =1 to n do read ( a [ i ] );
            readln;
            sort( n,a);
            for i : = 1 to n do write ( a[ i ], ‘ ‘)
            writeln;
        end.

3 楼

风君 [专家分：120] 发布于 2005-10-14 10:22:00

第2题（ 8 分）,有n (1≤n≤100)个同学种m（1≤n≤m≤100）种小树苗，例如：4个同学种各种树苗所需的时间估算如下表所示，编程输出每人种1种苗所用的总时间最少的安排方案和所花费的时间。

    树苗    A      B        C       D
    1       5      2       4       5
    2       4      3       5       3
    3       5      2       4       2
    4       3      2       3       3 program LM_42;
const
  maxn=100;  maxm=100;
var
   a: array [ 1
…maxn, 1 … maxm] of integer;
   m, n : integer;
   i, j, t:integer；
procedure work ( k, t1 : integer);
var
i : integer;
    begin
       if (   ①     ) then
         begin
           if  t1＜ t then t1 : = t;
           exit;
  end;
       for i : = (  ②   ) to  (    ③  ) do
          work( k+1,  ④  );
    end;
begin
  readln ( n );
  for i := 1  to  n  do
     begin
       for  j: = 1  to m do read ( a [ i , j] );
       readln
     end;
t : =maxint;
work ( 1 , 0);
writeln ( t )
end.

4 楼

风君 [专家分：120] 发布于 2005-10-14 10:24:00

第3题（10分）。程序的任务是用0…9中的数字填入如下乘法运算的*处，数字可重复使用，且所用的数字至少有一个是素数，要求输出满足下列算式的方案数。

program LM_43;
const p : set of 0..9 =[2,3,5,7];
var
  s: set of  0..9;
  n: integer;
  ans : longint;
  f : text;
procedure init;
  var
     i: integer;
     t: byte;
begin
     readln( n);
     s := [  ];
     for i := 1 to n do
        begin
          read( t );
          s := s + [ t ];
        end;
     close ( f );
end;
function  ok( x, l : integer ) : Boolean;  {此函数判断x是否符合条件}
var t : byte;
begin
   ok :=false;
   if (   ①   )<  ? then  exit;
   while  x < > 0  do
     begin
       t : = x  mod 10;
       if  not ( t in s)  then  exit;
       x : = x div 10;
     end;
   ok : =true;
end;
function inset ( x : integer ) : boolean; {此函数判断x中是否包含素数字}
var t : byte;
begin
  inset : =false;

while (  ②  )  do
   begin
     t : = x  mod  10;
     if  t in p  then
     begin
       inset : =true;
       exit;
     end;
     (     ③    )
end;
end;
  procedure work;
var i , i1, i2, i3, j1, j2, :integer;
begin
  ans : = 0;
  for i1 : = 1 to 9 do
     if  i1  in  s  then
     for  i2 : = 1 to 9  do
       if  i2  in  s then
       for i3 : =  1 to 9  do
         if  i3  in  s then
         begin
          (   ④   )
          for j1 : = 1 to 9 do
            if ( j1 n s ) and ok (j1*i, 3) then
            for  j2 : = 1  to 9 do
               if ( j2 in s ) and ok (j2 *i, 3) and (  ⑤  ) then
               begin
                 if ( i1 in p) or ( i2 in p) or (i3 in p)
                    or (j1 in p) or (j2 in p) or inset (j1 * i)or inset ( j2 *i)
                 then inc (ans );
               end;
         end;
      writeln ( ans );
    end;
    begin
       init;
       work;
    end.

    * * *
*     * *
--------------
    * * *
  * * *
--------------
  * * * *

5 楼

流氓兔 [专家分：140] 发布于 2005-10-14 13:01:00

可不可以提供一下答案啊

6 楼

Benix [专家分：720] 发布于 2005-10-14 17:22:00

好强啊
能蒙上题吗？？

7 楼

Benix [专家分：720] 发布于 2005-10-14 17:22:00

期待答案

8 楼

FancyMouse [专家分：13680] 发布于 2005-10-14 18:15:00

这是哪里的模拟题啊？居然我有一份一模一样的。。。

9 楼

zgHare [专家分：50] 发布于 2005-10-14 21:37:00

答案在哪里啊

10 楼

闪电123 [专家分：470] 发布于 2005-10-14 22:00:00

明天就要开始分区联赛了。。。。。。。
加油吧，大家！

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：[原创]快要比赛了，送上模拟训练试卷一张。

回复列表（共13个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[原创]快要比赛了，送上 模拟训练试卷 一张。

回复列表 （共13个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[原创]快要比赛了，送上模拟训练试卷一张。

回复列表（共13个回复）