三、填空题(每空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、编一程序，从终端输入两个英文句子，每句均以句号结束，输出此两句子中都出现的所有大字英文字母。
责任编辑：小草
您现在的位置： 