西店中学计算机信息学竞赛测试卷（一)
班级:              姓名:              得分：           
一、基础题(1３x2＋4+4＝34分）
1、与二进制数10１．01011等值的十六进制数为(      )
A)A．B          Ｂ)5．51      C)A．51            D)５.5８
２、下面四个不同进制的数,最小的一个数是（      ）。              　
  (Ａ)（1１0１100１)2   （B）(75）１0  (C）（37)8  　（D）(A7）１6
3、运算式（200８)10－(3７23）８的结果是(          ）。
  A、 （-171５)１0  　B、(5）10    C、 (－5）１６  D、 (１１1)2  Ｅ、 (3２6３)8
4、(2004）1０ + (3２)1６的结果是(        )。
Ａ. （2036)10  B. (205４)１6    C.　（4０06)1０  Ｄ． (1)2　  E．　（20３6）１6
5、小张用十六进制、八进制和十进制写了如下一个等式：  52　- 19　＝ 33
  　式中三个数是各不相同进位制的数,试问52、19、3３，分别为（        )．
  （A)八进制,十进制，十六进制      　(B）十进制,十六进制,八进制
      （Ｃ）八进制,十六进制，十进制      (D)十进制,八进制，十六进制
6、在Pascal语言中，判断ａ不等于0且ｂ不等于０的正确的条件表达式是(      ）　
A. not a＝0 or noｔ　ｂ=0       B. noｔ(（a=0)and(b=0))
C. ｎot(a=0 ａnd b=0)         Ｄ.　(a<>0)and (b<>0)
7、表达式roｕnｄ(sｑr（11/3）)>ｓｑｒ(１1 dｉv　３)的值是：（    ）
    Ａ、T        B、Ｆ    C、ＦALSE  D、TRUE
8、下列中错误的ＰASCＡL表达式是       
      A、10e6*3.7    B、１7 DIV 3    Ｃ、1８ DＩV　３*４.0    D、4．0１8ＤIV３
９、设a=6，ｂ＝3，c=42.1５,d＝－8，则表达式(a*trunｃ(c）－ｂ）　moｄ succ(d)的值为:（    ）   
Ａ、12     　B、－４         C、7       D、4 
10、表达式sqrt(abｓ(－１00)*sqｒ（rounｄ（4．２)))的值是：（      )
Ａ、３0　  B、４０  C、30.０    Ｄ、4０.0
11、表达式(4 MOD（-3))与(-4 MOD 3）的值为：        。         
pascal语言难学吗
    (Ａ）－1,－1    （B)１，-1  (C)－1,1  (Ｄ)1，1
12、下列IF语句中,EＮDIF 表示相应IF的结束：                     
        y＝0                               
          if  x<０                           
            then  Y=５                     
            ｅlｓｅ  iｆ  x<10                　
                    then  y=１0 
                  　ｉf　x<100
                      tｈen  ｙ＝100
                      endif　
                  eｌｓｅ ｙ=200
                  ｅndif
          ｅnｄｉf
    试指出：  当X＝80 时,运行的结果是_＿___＿;
              当X=5 时，运行结果为_______＿_。
  　(A)　Y=９  （B)  Y=５  （C） Y＝10  (D） Y=100  　(E）Y=20０　
13、判别闰年的条件(年份能被4整除，并且不能被１０0整除；或者能被400整除的整数年份):                                                                     
14、任给自然数ｎ，ｋ, １≤K≤９ ，按如下计算步骤求序列ＸJXJ－1……Ｘ0的步骤：{8％}
（1）j=0
（2）如果N>=K 则转第3步，否则转第7步   
（3）Xj　= N  MOD　Ｋ                ｛ｄｉv表示整数除法,结果取整数；
（4）N =Ｎ　ＤIＶ K                        ｍｏｄ表示整除取余数}
（5）j=ｊ+1                               
（6）回第2步
（7）Ｘj = N                               
（8）结束
试求当： N=199８, K=3时，XJXJ－1……X０ 之值为                        。
二、问题求解（5+５+5+7=22分)
15、已知:1到１0中有两个数1、7不能被2，３，５整除，那么1到1000中有多少个数不能被２,3，5 整除?
16、某班有50名学生，每位学生发一张调查卡,上写a，b，c三本书的书名，将读过的书打✓，结果统计数字如下: 只读ａ者8人;只读ｂ者4人;只读c者3人;全部读过的有2人；读过a，b两本书的有4人;读过a，c两本书的有2人;读过ｂ,c两本书的有3人；
(1）读过a的人数是                  
(２)一本书也没有读过的人数是             　
1７、根据Noｃoｍachns定理，任何一个正整数n的立方一定可以表示成n个连续的奇数的和。
    例如:
    13= 1
    ２3＝ 3+　5
    33= 7＋ 9 ＋11
    ４3=  １３+15＋１7＋1９
    在这里，若将每一个式中的最小奇数称为Ｘ，那么当给出n之后，请写出Ｘ与n之间的关系表达式:                                           
18、一百个人排成一队,从头到尾报数，报奇数者出列,剩下的人再从头到尾报数,报奇数者仍然出列。试问这样下去留在队列中的那个人,第一次报数时是多少号？并用最简洁的语言表达你求解的思路。
那人的第一次报数号是:_＿_____＿_ 
分析过程:（用简单的语言描述分析过程)
三、程序阅读,写出程序运行结果（２4分，每题６分)
1９、　program ex19;
ｖar ａ,b,n:loｎgint;
begｉｎ
  reaｄlｎ(n);  a:=0；ｂ:=0;
  repeａt
    a:=ａ+1;b:=b+a;
  ｕｎtil　b>=n；
  wrｉtｅln(a);
end.
输入:2０１0０ 输出：           
20、 Pｒoｇｒam ｅx2０(iｎｐut，outｐut);
Var  　ａ,n,s:iｎteger；
bｅｇin
a:=１；n:=2;s：＝0；
while ｓ<10 do
begｉn
　a:=a*ｎ;　s：=ｓ+a;
eｎｄ;
wrｉtelｎ（ｓ:５，a:5,n:5);
end．
输出结果为：           
21、 Pｒogram　eｘ21;
Vaｒ
i:iｎteger;
a:arraｙ[１..２0] oｆ intｅgeｒ;
ｂｅｇｉｎ
a[1]:=1；
ａ[2]:=２；
for i:=3 to 2０ do
  a[i]：=ａ[i-2］*a[i-１]；
wrｉtｅ（a[6］/a[５]);
ｅｎd.
输出结果为:           
２2、　ｐrogram　ex22；
VAR  X,Y１，Y２，Y3:INTEGER；
　BEＧIN
  RＥAＤＬN(Ｘ);Y１：=0;Y2：=1；Y３:=１;
  WHILE Y2<=X DＯ
  　BEＧＩN
    Y1:=Ｙ1+1;　
Y３:=Y３＋２;　
Y2:=Y２+Y３；
    ＥND；
  WRITEＬＮ(Y１)；
  ＥND．
输入：２3420  输出结果为:           
四、完善程序(45分,每空3分）
23、读入１０个数，计算它们的和、积、平均值。
Program　b２（inｐut,ouｔpｕｔ）；
      Var
        x,s,m,a：reaｌ；
        ｉ:intｅger；
      Begｉｎ 
        s:＝0;
            (1)    ；
        For i:=１　to １０ ｄo
          bｅgiｎ
              rｅａd(ｘ）;
              s:＝  (2)  ;
              ｍ:=  (3)  ；
          　ｅnd; { For }
        a:＝  　（4)  ;
        writeln(‘ｓum=’,s，’mｕl=’,m,’ａve=’，a )；
      Ｅnd.
24、 计算两个正整数m和n的最大公约数,请将下列程序补充完整。
Ｐrogram eb4 (input，ｏｕtput）;
Vａｒ
m,n,r:iｎteger;
beｇｉn
ｗｒｉte(‘ｉnput　m，n=’);
ｒeadln(  (1）  )；
repeat
  r：=  （2）    　;
  m:＝n;
n：=r；
unｔiｌ     　(3)    ；
ｗｒitelｎ(‘The greａtesｔ coｍmoｎ dｉviｄe is’,m);
eｎｄ.
25、输入50个正整数,把这十个数按由小到大的顺序排列，并以每行５个输出。
program　eｘ５_2;
  　var
a:arｒay[１.．10]ｏf intｅger；ﻫ    ｉ,j,t:iｎteger;ﻫ  　beginﻫ    　ｗriteln（'Input　10 ｉｎteｇers:＇);
    　foｒ i:=1　ｔｏ １０　do reａｄ(a［i］); ﻫ    　reaｄｌn;
    　ｆor　i:=1 to　9　ｄｏ
      beｇinﻫ      fｏr j：=    　（1)    to　10 dｏ
        if    （2)    tｈeｎ ﻫ          bｅｇinﻫ          t:=a[ｉ］;
  (３）  ;
a［ｊ]：＝t;
          end；
      　ｅnd;ﻫ      foｒ　ｉ：=１ tｏ 10 dｏ
      begin
        ｗritｅ(ａ［ｉ]：５）;
if　   (4）    then writeln；
enｄ；
ｅnｄ.
2６、问题描述：用筛选法求100以内的素数(质数)
Pｒｏｇrａｍ lx53
Vａr
ａ:arrａy ［ 1..１０0 ］ oｆ  inｔegｅr　;
　i，ｊ，k:integer;
begｉn
for i:＝1 to 100 do
  ａ[i]：=iI;
a［1]:=０;
i:=２;
wｈile i＜=100　do
ｂegiｎ
　k:=i;
　whiｌe    (1)  do
  begｉn
      　（2） 
a[k]:=０;
    end；
  inc(i);
  　ｗhile a［ｉ]＝０ do   　(３) 
  ｅnd
for i：=１ to １００　do
　iｆ　  　(４）  　 theｎ　write(ａ[ i　] ,　‘ ’）;
end.
西店中学计算机信息学竞赛测试答题卷