一、判断题（每小题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都已赋值，选出下面正确的表达式。
A.p=q
B.p<>r
C.p=r
D.q<>s
5．VAR S:SET OF 1..5; A:SET OF ‘A’..’E’; ( )
A和S已赋值，选出正确的表达式。
A．A<>S
B . A∩S=[ ]
C . A<>[ ]
D . NOT ‘A’ IN S
三、填空题（每空1分，共10分）
1．VAR a:ARRAY [1..10,’A’..’E’] OF char;a中有_________个元素，每个元素是_________类型。
2．VAR tool：(bike,car,motor,bus); pred(car)=__________；succ(car)=______________。
3．A：=[1，3，5，7，9]；B：=[2，4，6，8，10]；A+B的值是__________，A*B的值是__________。
4．VAR p,q:^integer;
……
new(p); q:=NIL;
表达式p<>q的值是_____________，表达式p=q的值是_____________。
5．建立文件f(非标准)时，必须先调用标准过程___________ ；第一次从f上读之前，必须先调用标准过程___________。
四、简答题（每小题5分，共20分）
1．写一个表达式，若x满中下式
10-7<|x|<107
则表达式取值true,否则，取值false.
写一个程序片段，计算1至100中能被3整除的所有整数之和。
2．已知，VAR s: (knife,rule,pen,rubber); 且s中已有值，试写一程序片段，把s中的值输出到显示器上。
3．VAR a:ARRAY[1..4][1..4] OF real ; 写一程序片段，用赋值语句（即不用read过程），将下面的矩阵赋给a中元素。
1.1 5.2 9.3 13.4
2.1 6.2 10.3 14.4
3.1 7.2 11.3 15.4
4.1 8.2 12.3 16.4
五、程序分析题（共28分）指出下列程序的输出。
PROGRAM t982(input,output);
VAR
a,b,c : integer;
PROCEDURE p (VAR x:integer; y:integer);
VAR
temp:integer;
BEGIN
temp:=x DIV y+c;
x:=temp;
writeln(x:4,y:4,temp:4)
END;
BEGIN
a:=9;b:=2;c:=3;
p(a,b);
writeln(a:4,b:4,c:4)
END.
PROGRAM t984(inprt, output);
VAR
i,j:integer;
a,b:ARRAY[1..5] OF integer;
BEGIN
FOR i:=1 TO 5 DO
BEGIN
a[i]:=2*i-1;
b[i]:=i
END;
FOR i:=1 TO 5 DO
FOR j:=1 TO 5 DO
IF a[i]=b[j]
THEN write(a[i]:4)
END.
PROGRAM t986(input,output);
TYPE
pointer=^node;
node=RECORD
n:integer;
next:pointer
END.
VAR
i:integer;
head,p,q:pointer;
PROCEDURE make(VAR head:pointer; key:integer);
VAR p,q,r: pointer;
BEGIN
p:=head;
WHILE(key>=p^.n) AND (p^.next<>NIL) DO
BEGIN
q:=p;
p:=p^.next
END;
new(r); r^.n:=key;
IF key THEN BEGIN r^.next:=head; head:=r END
ELSE IF key THEN BEGIN r^.next:=p; q^.next:=r END
ELSE BEGIN p^.next:r; r^.next:=NIL END
END;
PROCEDURE wlink(head:pointer);
VAR p:pointer;
BEGIN
p:=head;
WHILE p<>NIL DO
BEGIN
write(p^.n:4);
p:=p^.next
END;
END;
BEGIN
head:=NIL; i:=1;
WHILE i<=5 DO
BEGIN
new(p); p^.n:=2*i;
IF head=NIL THEN head:=p
ELSE q^.next:=p;
q:=p; i:=i+1
END;
q^.next:=NIL;
wlink(head);
make(head,20);
wlink(head)
END.
六、程序填空（共22分）
1．[程序说明] 程序t988给数组a中count个元素赋值，然后插入一个元素，最后显示出a中的元素。过程P对给定的y，首先找插入位置，然后插入，且插入后a中元素仍是升序。(10分)
[程序]
PROGRAM t988(input,output);
CONST n=50;
TYPE atype=ARRAY[1..n] OF integer;
VAR a:atype;
i,count:integer;
PROCEDURE P(VAR x:atype; y:integer; VAR m:integer);
VAR i,k:integer;
BEGIN
IF m>=n
THEN writeln(‘out renge’)
ELSE BEGIN
_______________
WHILE_____________ AND (k k:=k+1;
_____________
x[i+1]:=x[i];
_____________
m:=m+1
END
END;
BEGIN
count:=10;
FOR i:=1 TO count DO
a[i]:=2*i;
_______________
FOR i:=1 TO count DO
write(a[i]:4);
writeln
END.
2．[程序说明] t989是一个简单的设备管理程序。描述设备的类型cordtype中有编号no，名称name，购买时间btime和价格price。该程序首先从键盘上读入原始数据，然后按价格升序排序，最后显示设备信息。（12分）
[程序]
PROGRAM t989(input,output);
CONST m=5;
n=50;
TYPE strings=PACKED ARRAY[1..M] OF char;
cardtype=RECORD
no:integer;
name:strings;
btime:RECORD
year,month,day:integer
END;
price:real
END;
atype=ARRAY[1..n] OF cardtype;
VAR a:atype; i,c:integer;
PROCEDURE p1(VAR x:atype; VAR m:integer);
VAR t:cardtype;
BEGIN
m:=1;
_____________
WITH .btime DO
BEGIN
readln(name,no,price,year,month,day);
WHILE(no<>0) AND (m BEGIN
x[m]:=t;
___________
m:=m+1
END
END;
m:=m+1
END;
PROCEDURE p2(VAR x:atype);
VAR i,j,k:integer;
temp:cardtype;
BEGIN
FOR i:=1 TO c-1 DO
BEGIN
FOR j:=j+1 TO c DO
IF___________THEN k:=j;
temp:=x[i];
x[i]:=x[k];
x[k]:=temp
END
END;
BEGIN
______________
p2(a);
FOR i:=1 TO c DO
_____________
writeln(no:6, name:6, btime.year:6, btime.month:4, btime.day:4, price:6:1)
END.
