14、每个PASCAL程序都必须包括（）
（A）变量说明、语句（B）语句
（C）类型定义，变量说明，语句（D）常量说明，变量说明，语句
15、下列中合法的标示符是（）
（A）CHARSET（B）RECORD（C）ABS（D）A1B2C3
（D）FOR（F）2AB（G）A[1]
16、设A，B，C是整型变量，并有下列程序段
READ（A）；READLN（B，C）；
READLN（C，B）；READLN（A，B）；
WRITELN（A，B，C）
在程序运行时输入：
123〈ENTER〉
456〈ENTER〉
789〈ENTER〉
则输出的是（）
（A）123（B）147（C）783（D）784
17、有变量说明如下：
VARI1，I1：
INTEGER；
R1，R2：
REAL；
B1，B2：
BOOLEAN；
设各变量均已赋值，下列中错误的赋值语句是（）
（A）B2：
=ORD（R1）R2）（B）I2：
=I1+R1
（C）B1：
=I1=I2（D）B1：
=B1+B2
（E）I2：
=I1+I2DIVI1（F）I1：
=I1/I2
（G）R2：
=3/5*SQR（R1/R2）（H）R1：
=R2+R1
18、已知A，B，C，D，E，F，G均为整型变量，其值分别为2，4，6，8，10，12，14，若输出结果为：
24
5810
1214
则输出语句应是：
（）
（A）WRITELN（A：
3，B：
3）；WRITE（C：
3，D：
3，E：
3）；WRITE（F：
3，G：
3）
（B）WRITELN（A：
3，B：
3）；WRITE（C：
3，D：
3，E：
3）；WRITELN（F：
3，G：
3）
（C）WRITELN（A：
3，B：
3）；WRITELN（C：
3，D：
3，E：
3）；WRITELN；WRITELN（F：
3，G：
3）；
（D）WRITE（A：
3，B：
3）；WRITELN；WRITE（C：
3）；WRITELN（D：
3，E：
3）；WRITE（F：
3，G：
3）
19、下列类型定义中，合法的是（）
（A）TYPEA=10．．10；（B）TYPEB=0．．SQRT（10）；
（C）TYPEC=1.0．．10.0；（D）TYPED=10．．5；
20、以下运算符中运算优先级别最高的是（）
（A）+（B）OR（C）>=（D）DIV
21、表达式TRUEANDNOTODD（-202）<（7-3）<=4）的值是（）
（A）TRUE（B）FALSE（C）0（D）1
22、下列常量说明中合法的是（）
（A）CONSTCOLOR=RED．．BLUE（B）CONSTCONST=10*5
（C）CONSTX1：
=3．9（D）CONSTABC=‘ABC’
23、已知道A，B，C，D是同类型的变量，且都已经有互不相同的值，执行下列语句：
B：
=A；A：
=C；D：
=A；D：
=B；后，其值相等的变量是（）
（A）A，D（B）A，C（C）C，B（D）B，D
24、下列是PASCAL常量的是（）
（A）．25（B）“RED”（C）‘%’（D）3E—2．5
25、设CH是字符型变量，有表达式如下：
（CH<>’A’）AND（CH<>’C’）AND（CH<>’H’）
下面哪个表达式与该表达式完全等价（）
（A）NOT（CHIN[‘A’．．‘B’]）
（B）NOT（CHIN[‘H’，‘C’，‘A’]）
（C）NOT（CHIN[‘A’．．‘B’]）ANDNOT（CHIN[‘C’．．‘D’]）ANDNOT（CHIN[‘B’]）
（E）CHNOTIN[‘A’，‘C’，‘H’]
26、下列自变量只能是顺序类型的是（）
（A）ROUND（）（B）ABS（）（C）EOF（）（D）ORD（）
27、设有常量说明定义：
CONSTA=0；B=22768；下面对常量引用正确的是（）
（A）READLN（A）；（B）A：
=A=1；
（C）PROCEDUREP（C：
B．．A）（D）VARC：
A．．B；
28、以下是正确的PASCAL实数是（）
（A）0．56E2．5（B）2．56E2（C）．318E1（D）34．E5
29、设有说明CONSTLETTER=‘h’
则语句WRITELN（CHR（ORD（LETTER）+（ORD（‘A’）—ORD（‘a’））））结果是（）
（A）H（B）h（C）72（D）104
30、INTEGER是（）
（A）保留字（B）标准标示符（C）用户定义的表示符（D）类型定义
31、已知CH是字符变量，下列赋值语句中正确的是（）
（A）CH：
=‘7’（B）CH：
=7（C）CH：
=‘—7’（D）CH：
=—‘7’
31、下面表达式的值为0的是（）
（A）（-5）DIV2（B）5DIV（-2）（C）（-5）DIV（-2）（D）0DIV（-2）
32、下列正确的PASCAL常量是（）
（A）FLASE（B）LN3（C）‘PASCAL’（D）．008
33、语句WRITELN（‘25*4=’）的输出结果是（）
（A）100（B）‘25*4’（C）25*4=（D）25*4=100
34、结果化程序设计的一种基本方法是（）
（A）递归法（B）筛选法（C）逐步求精法（D）迭代法
35、结构化程序设计认为衡量一个程序优劣的主要标准是（）
（A）运行效率高（B）节省内存空间
（C）程序短而紧凑（D）清晰易懂
36、以下不可作为用户定义标示符的是（）
（A）READ（B）DIR（C）BEGIN（D）TOTAL
37、若希望得到A=1，B=2，C=3，D=4，针对以下语句：
READ（A）；READLN（B，C）；READLN（D）；则以下不正确的输入形式是（）
（A）1234（B）1（C）12（D）123
2334
44
38、为使变量得到初值，可以（）
（A）在变量说明区说明该变量
（B）在常量说明区说明它
（C）在表达式中引用它
（D）在读语句中引用它
39、四个字符传‘The’,’That’,’THEN’,’this’互相比较，结果最大的是（）
（A）The（B）That（C）THEN（D）this
40、可以用作PASCAL语句标号的有（）
（A）字符（B）字符串（C）实数
（D）标示符（E）无符号整数（F）有符号整数
第二部分流程控制
41、正确的IF语句一般形式应该是（）
（A）IF（算术表达式）THEN（语句）
（B）IF（关系表达式）THEN（语句）
（C）IF（布尔表达式）THEN（语句）
（D）IF（字符表达式）THEN（语句）
（E）IF（布尔表达式）THEN（语句1）；ELSE（语句2）；
（F）IF（布尔表达式）THEN（语句M1）；……（语句M）；
ELSE（语句N1）；……（语句N）；
（G）IF（布尔表达式）THEN（语句1）ELSE（语句2）
42、PASCAL程序中容易引起混乱的语句有（）
（A）用FOR语句代替WHILE或REPEAT语句
（B）GOTO语句
（C）用WHILE或REPEAT语句代替FOR语句
（D）CASE语句
43、有以下程序段：
X：
=3；Y：
=5；
FORI：
=XTOYDO
BEGIN
X：
=3；Y：
=6；
WRITE（I）
END
则FOR循环体执行的次数是（）
（A）0（B）3（C）4（D）6
44、下面程序循环体执行的次数是（）
Y：
=2；
WHILEY〈=32DOY：
=Y+Y；
（A）2（B）3（C）4（D）5
45、下列的语句序列中没有构成死循环的是（）
（A）I：
=0；（B）I：
=0；
WHILEI〈10DOWHILEI〈10DO
WRITE（A）；I：
=I+1；
I：
=I+1；WRITE（A）；
I：
=0；
END；
（C）I：
=0；（D）I：
=0；
WHILEI〈10DOWHILEI〈10DO
WRITE（A）；I：
=0；
I：
=I+1；WRITE（A）；
END；I：
=I+1；
46、已知A、B、C是同类型变量，A、B均已赋值，且A〈B，执行程序段
READ（C）；
W：
=A；
IFW〈=BTHENW：
=B；
IFW〈=CTHENWRITE（‘W=’，W）ELSEW：
=C；
时为能把C的值放入W中，键盘输入的C值得应取的范围不能是
（A）C〈A且C〉B（B）C〉B
（C）C〉A且C〈B（D）C〈A
第三部分枚举、子界、记录数据类型
47、不能作为子界型的基类型的是（）
（A）实数类型（B）枚举类型（C）字符类型（D）布尔类型
48、设类型定义与变量说明如下
TYPE
DIGIT=SETOF1．．9；
ALPH=SETOF‘A’．．‘Z’；
VAR
I，NUM：
DIGIT；
CH：
ALPH；
则以下赋值语句正确的是（）
（A）NUM：
=[‘A’．．‘I’]（B）I：
=[1．．4]+[2．．4]
（C）CH：
=[1，3，5]*[2，3，4]（D）I：
=[1．．10]—[5，10]
49、以下正确的枚举类型定义是（）
（A）TYPEVOWEL=（‘A’，‘E’，‘I’，‘O’）
（B）TYPENUM=（1．．3，8．．10）
（C）TYPECOLOR=（RED，BLUE，GREEN）
（D）TYPEREALTYPE=（1．5，2．5，3．5，4．5）
50、以下正确的子界类型定义是（）
（A）TYPELETTER=‘A’．．‘E’
（B）TYPEWORKDAYS=MON．．FRI；
WEEKDAYS=（MON，TUE，WED，THU，FRI，SAT，SUN）
（C）TYPEDAY=1．．31OR1．．30OR1．．28
（D）TYPERANG=MAXINT．．—MAXINT
51、设N是整型变量，M是如下定义的子界型变量：
TYPE
MYTYPE=—20．．—10；
VAR
M，N：
MYTYPE；
那么下列赋值语句中不正确的是（）
（A）N：
=M（B）N：
=M+1．0（C）N：
=ABS（M）（D）N：
=N+M
52、下列运算结果为真的是（）
（A）[2，4，6]<>[6,4,2]（B）[1,2,3,4]<=[1．．4]
（C）7IN[2，4，6]（D）[2，4，6]+[2，4，6]=[2，2，4，4，6，6]
53、下列类型定义正确的是（）
（A）TYPEREALSET=SETOFREAL；（B）TYPENUMBERS=SETOF1．．10
（C）TYPECHARACTERS=SETOF（‘A’，‘B’，‘C’，‘D’）
（D）TYPELOGICALS=SETOF（FALSETRUE）
54、以下表达式为FALSE的是（）
（A）[1．．10]>=[1．．5,6．．10]（B）[1．．10]<=[1．．5，6．．10]
（C）[1．．3+[1．．3]*[1．．3]—[1．．3]=[]（D）[3．．9]*[9]=[27．．81]
55、设有说明：
TYPE
BYTE=0．．7；
WORD=0．．15；
NUM=REAL；
VAR
A：
BYTE；B，C：
WORD；D：
INTEGER；E：
REAL；F：
CHAR；
那么下面那一组变量的类型是相容的但又不是同一的（）
（A）A、E（B）C、F（C）C、D（D）B、C
56、已知TYPEABC=（A，B，C），则下列中不属于PASCAL顺序类型的变量说明是（）
（A）VARX1：
ABC；（B）VARX2：
B．．C
（C）VARX3：
BOOLEAN；（D）VARX4：
SETOFABC；
57、下列函数调用正确的是（）
（A）SUCC（2+3．5）（B）CHR（‘SIN3’）
（C）TRUNC（180）（D）PRED（A）
58、设有变量说明VARLL：
（C，G，A，J，K）；则函数SUCC（A）的取值是（）
（A）G（B）3（C）J（D）B
59、下列哪组类型的变量都可作为FOR循环中的循环控制变量（）
（A）枚举型、实数型（B）枚举型、记录型变量中的子界类型域
（C）字符型、集合型（D）子界型、记录型
60、下列哪种类型的常量不能用来定义子界类型（）
（A）REAL（B）INTEGER（C）CHAR（D）用户定义的任何顺序类型
第四部分数组
61、下列说明正确的是（）
（A）TYPELETTER=（A．．E）；
VARTT：
ARRAY[LETTER]OFREAL；
（B）TYPELETTER=（A，B，C，D，E）；
VARTT：
ARRAY[LETTER]OFREAL；
（C）VARTT：
ARRAY[A．．E]OFREAL；
（D）VARTT：
ARRAY[A，B，C，D，E]OFREAL；
62、下面对数组类型定义描述正确的是（）
（A）数组的下标类型是简单类型
（B）一个数组中的各元素类型可以不一样
（C）数组的下标类型若为整型，则其上界一定要大于下界
（D）PASCAL语言数组下标的下界要大于等于零
63、设4个字节存放一个实型数，若有以下说明：
VAR
A：
ARRAY[1．．10]OFARRAY[BOOLEAN]OFREAL；
那么数组A要占用的存储区域是（）
（A）10字节（B）20字节（C）80字节（D）40字节
64、下列哪个类型说明是错误的（）
（A）TYPET1=PACKEDARRAY[4．．20]OFCHAR；
（B）TYPET1=（A，B，C，D，E）；
T2=ARRAY[A．．D]OFCHAR；
（C）TYPET1=‘A’．．‘Z’
（D）TYPET1=（1，2，3，4）；
T2=ARRAY[4．．4]OFINTEGER；
65、要用一个数组来存放30人的3门课考试成绩（成绩保留一位小数），下面哪个说明中的数组可以存放这些数据（）
（A）VARS：
ARRAY[1．．3，1．．30]OFINTEGER；
（B）VARS：
ARRAY[‘A’．．‘C’，1．．30]OFREAL；
（C）VARS：
ARRAY[1．．30，BOOLEAN]OFREAL；
（D）VARS：
ARRAY[1．．30，‘A’．．‘C’]OFINTEGER；
66、已知有数组说明：
VARA：
ARRAY[1．．10]OFINTEGER；A中的值如下：
A[1]……A[10]分别是：
764352141191
则执行语句WRITELN（A[A[7]DIVA[3]]）后输出的是（）
（A）4（B）6（C）3（D）14
67、设有说明如下：
TYPECOURSE=（MATH，PHYS，ERGL，PASC）；
MARK=ARRAY[101．．104]OFARRAY[COURSE]OFREAL；
VAR
S：
MARK；
则数组S中包含的元素个数是（）
（A）8（B）16（C）4（D）5
68、设有说明：
VARX：
ARRAY[1．．3，‘X’．．‘Z’]OFREAL；
则X[3，‘X’]是（）
（A）一个存放实型数据的数组元素
（B）一个具有三个字符型元素的数组
（C）一个具有3*3个实型元素的数组
（D）一个具有6个实型元素的数组
69、设有说明：
TYPE
AR=ARRAY[1．．10]OFINTEGER；
BR=ARRAY[1．．10]OFAR；
VARC：
BR
则下列语句中正确的是（）
（A）C[C[2，4]：
=123（B）C[8]：
=123；
（C）C[2][4]：
=123（D）C[0，2，4]：
=123
70、已知变量说明如下：
VAR
S1：
SETOFCHAR；
S2：
SETOF‘I’．．‘N’；
A1：
ARRAY[4．．5]OFINTEGER；
A2：
ARRAY[4．．10]OFINTEGER；
若以上变量已赋任意合法值，则下列赋值语句中完全正确的是（）
（A）S1：
=S2（B）S2：
=S1（C）A1：
=A2（D）A2：
=A1
第五部分函数与过程
71、已知有如下说明：
VAR
X，Y：
INTEGER；
Z：
REAL；
PROCEDUREP2（A：
REAL；VARB：
REAL）；
这些变量均已赋值，下列过程调用中哪个是正确的（）
（A）P2（X，Y）（B）P2（X，Z）（C）P2（Z，X）（D）P2（Z，Y）
72、有主程序说明如下：
TYPEAREA=1．．100；
VARI，J，K：
INTEGER；M，N：
AREA；C1：
CHAR；
过程首部为：
PROCEDUREPROC（VARX，Y：
INTEGER；I：
AREA；C：
CHAR）；
则下列过程语句中正确的是（）
（A）PROC（I，J，K，C1）（B）PROC（J，K，10，C1）
（C）PROC（M，N，I，C1）（D）PROC（I+J，I—J，M，C1）
73、已知下列程序：
PROGRAMP53（INPUT，OUTPUT）；
VARX：
INTEGER；
PROCEDUREA；
VARX：
INTEGER；
BEGIN
WRITELN（X）；
X：
=2；
WRITELN（X）
END；
BEGIN
X：
=1；
A；
WRITELN（X）
END．
则运行后输出结果是（）
（A）24325324532（随机数）（B）1
22
11
（C）23432435324（随机数）（D）1
22
22
74、下面函数调用正确的是（）
（A）PRED（2+3．5）（B）ABS（SIN3）
（C）TRUNC（‘C’）（D）PRED（A）
75、已知函数说明如下：
FUNCTIONF（N：
INTEGER）：
INTEGER；
BEGIN
IFN=0THENF：
=0
ELSEIFN＞０ THENF：
=F（N-2
ELSEF：
=F（N+3）
END；
则调用F（5）的值是（）
（A）0（B）1（C）—1（D）—2
76、有以下程序段：
PROGRAMP57（OUTPUT）；
VARX，Y，Z：
INTEGER；
PRODUREP（X，Y：
INTEGER；VARZ：
INTEGER）；
BEGIN
Z：
=Y—X—Z
END；
BEGIN
X：
=5；Y：
=7；Z：
=4；
P（7，X+Y+Z，X）；
WRITELN（X，Y，Z）
END；
则程序运行结果是（）
（A）574（B）474（C）57—4（D）57—2
77、有如下说明：
VARA：
INTEGER；B：
1．．100；C：
REAL；
PROCEDUREP1（X：
REAL；VARY：
REAL）；
下面的过程调用中正确是（）
（A）P1（A，B）（B）P1（C，B）（C）P1（C，A）（D）P1（B，C）
78、有程序如下：
PROGRAMP59（INPUT，OUTPUT）；
VARA，B：
INTEGER；
PROCDUREP1（X：
INTEGER；VARY：
INTEGER）；
BEGIN
Y：
=X+Y；WRITELN（X：
3，Y：
3）
END；
BEGIN
A：
=5；B：
=8；
P1（A，B）；
P1（A+B，A）；
P1（ADIVB，B）
END．
执行上面的程序后输出结果是（）
（A）513（B）513（C）513（D）
升级会员 