left 您的位置:洪恩在线 -> 继续教育 -> 自学考试 -> 试题集锦 -> 在线测试 right

请给我们来信!

请给我们来信


我要发言

自考留言版


高级语言程序设计

(本试卷分客观试题部分和主观试题部分)
客观试题部分

一、是非题(下列各题,你认为正确的,请在题干的括号内打“√”,错的打“×”。每题1分,共10分)

1、实型是有序类型。
A.正确
B.不正确

2、保留字具有特定含义,不能挪作它用。
A.正确
B.不正确

3、true<false之值为false。
A.正确
B.不正确

4、exp可作用户标识。
A.正确
B.不正确

5、PASCAL源程序中一行只能写一个语句。
A.正确
B.不正确

6、PASCAL源程序中每个变量都必须说明。
A.正确
B.不正确

7、2.0E3.0是一个合法的实型常数。
A.正确
B.不正确

8、trunc(5.95)之值为5.0。
A.正确
B.不正确

9、函数的类型只能是有序类型。
A.正确
B.不正确

10、当形参为值参数方式时,对应的实参不能是变量。
A.正确
B.不正确

   

二、单选题(在本题的每一小题的备选答案中,只有一个答案是正确的,请把你认为正确答案的题号,填入题干的括号内。多选不给分。每题2分,共10分)

1.设i1,i2的整型变量,r1,r2是实型变量,下列哪一个语句是错误的( )
A.i1:=i2DIVi1;  
B.r1:=i1DIVi2/i2;  
C.r1:=i1/r2;  
D.i2:=i1/i2;

2.设ch为字符变量,下列哪一个语句是正确的( )
A.ch:='-3';               
B.ch:=-ch;
C.ch:=ch;                
D.ch:=‘R’+‘T’;

3.下列哪一个可用作用户自定久标识符( )
A.LABEL       
B.A(i)         
C.A+name     
D.boolean

4.设a为123.4,执行write(a:5:2)后输出为( )
A.123.40      
B.123.4        
C.23.4      
D.极错

5.在CASE语句中,下列哪一类常量不能用作选择因子( )
A.实型       
B.整型         
C.布尔型     
D.枚举型

   

三、填空题(每空2分,共20分)

1、chr(8+ord(‘1’)之值为

2、子程序调用时,对应变量参数方式形参传递的是实参的

3、语句标号之大小必须为1到的无符号整数。

4、succ(9)+ord(true)+5.0之值为

5、国际上用得最广泛的字符集叫字符集。

6、代数式A≥B≥C对应的PASCAL表达式为

7、PASCAL的数据类型分为简单类型、构造类型和

8、代数式e|x|+3对应的PASCAL表达式为

9、局部变量在时才必须分配内存单元。

10、TEXT型变量是具有类型元素的文件。

   

四、选择填空题(本题中的每个小题,已分别给出相应的求解和程序.但程序中空出若干个括弧,每个括弧中的4个备选答案.请把你认为正确的答案题号填入题后相应的位置。每空3分,共30分)

问题:求2~1000之间的所有素数,并存入文件ff中。

  程序:

  PROGRAM prime(ff);

   VAR

    ff:FILE OF integer;

    i,j:integer;

    b:boolean;

  BEGIN

   ( ①  );

   FOR i:=2 TO 1000 DO

     BEGIN

      (  ②  );

      FOR j:=2TO i-1 DO

        IF i MOD j=0

         THEN(  ③  );

        IF b THEN write (ff,i)

     END

  END.

1.你选择(  )
A.reset(ff)   
B.writeln(ff)   
C.rewrite(ff)    
D.new(ff)

   

2.你选择(  )
A.b:=false  
B.b:=true    
C.b:=‘false’  
D.b:=‘true’

   

3.你选择(  )
A.b:=false   
B.b:=true    
C.b:=‘false’  
D.b:=‘true’

   

问题:构造一链表,并按与输入相同的次序输出该链表中的数据。

  程序:

  PROGRAM fifolist(input,output);

   TYPE

    pointer=↑cooperate;

   cooperate=RECORD

          next:pointer;

          data:integer

         END;

  VAR

   p1,p2,p3:pointer;

 BEGIN

  (  ④  );

  P3:=P1

  read(p1↑.data);

  WHILE NOT eof DO

    BEGIN

     (  ⑤  );

     read(p2↑.data);

     (  ⑥  );

     p3:=p2

    END;

  P2↑.next:=NIL;

  WHILE P1 NIL DO

  GEGIN

   write(p1↑.data);

   (  ⑦  );

  END;

 END.

4.你选择(  )
A.P1:=NIL    
B.P2:=NIL    
C.NEW(P1)    
D.new(p2)

   

5.你选择(  )
A.P1:=NIL    
B.P2:=NIL    
C.new(P1)    
D.new(P2)

   

6.你选择(  )
A.p3↑.next:=P2           
B.P3↑.next:=NIL
C.P3↑.next:=P2↑.next      
D.p3↑.next:=p3

   

7.你选择(  )
A.↑.next:=P1           
B.P1:=P1↑.next
C.P1=P2.next            
D.P1↑.next:P2↑.next

   

问题:统计并输出输入字串标点符号‘·’,‘,’,‘:’和‘;’出现的总次数,直至出现字符‘?’为止。

  程序:

  PROGRAM counter(input,output);

    TYPE

     tp=SET OF char‘

    VAR

     P:tp;

     ch:chart;count:integer;

  BEGIN

   (  ⑧  );

   p:[‘·’,‘,’,‘:’,‘:’];

   REPEAT

    read(ch);

    IF(  ⑨  );

     THEN count:=count+1

   UNTIL(  ⑩  );

   writeln(count)

  END.

8.你选择(  )
A.count:=0    
B.count:=1    
C.ch:=‘ ’  
D.count:=-1

   

9.你选择(  )
A.ch=P      
B.ch<=P     
C.ch IN p    
D.ch>=P

   

10.你选择(  )
A.ch:=‘?’   
B.ch=‘?’    
C.ch< >‘?’  
D.ch>‘?’

   

   

    五、编写程序题(每题10分,共30分)

    1、编一程序,计算并输出

      S=1-x+x2/2-x3/3+…+(-1)nxn/n(n=1,2…)。其中x,n由终端输入。(x为实型,n为整型)

    2、编一程序,输入二维整数数组A5×5所有元素之值,寻找并输出该数组中最大元素之值(设只有一个)及其位置(行号和列号)。

    3、编一程序,从终端输入两个英文句子,每句均以句号结束,输出此两句子中都出现的所有大字英文字母。
    
查看解析
    


【关闭窗口】