1998年自考PASCAL试题

1998年自考PASCAL试题

                                      

一、判断题（每小题2分，共10分）

1．TYPE

digITs=(one,two,tHRee,four); ( )

2．VAR n:integer

……

CASE n OF

1,3,5 : wrITeln(‘odders’);

2,4,6 : wrITeln(‘evener’);

3,4,7 : wrITeln(‘other’)

END; ( )

3．VAR b:boolean; i,n:integer;

……

b:=true;

FOR i:=2 TO n/2 DO

IF n MOD i=0

THEN b:=false; ( )

4．FUNCTION f(x:integer):1..100; ( )

5．VAR a,b:RECORD

x,y:real

END;

……

IF a=b

THEN wrITeln(‘all value is EQual’); ( )

二、单项选择题（每小题2分，共10分）

1．VAR ( )

c:char; b:boolean;

选出下面正确的赋值：

A．c:=’1998’;

B.c:=1

C.b:=’true’;

D.c:=’1’;

2．选出下面正确的表达式。 ( )

A. 3<>5 and 5-3=2

B. ‘5’+’3’

C. cHR(ord(‘B’))

D. ord(‘2’)/2 mod 2

3．选出下面正确的类型定义。 ( )

A．TYPE operaters=(+，-，*，/)；

B．TYPE digITs=(‘1’,’2’,’3’,’4,’);

C．TYPE letters=(‘A’,’B’,’C’,’D’)；

D．TYPE mtype=(int,realtype,caracter,bool);

4．VAR p,q:integer; r,s:real; ( )

且p,q,r,s都已赋值，选
..............................