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 isEQual’); ( )

二、單項選擇題（每小題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都已賦值，選
..............................