1997年4月pascal试卷及答案.doc

1997年4月全国计算机等级考试二级笔试试卷PASCAL语言程序设计（考试时间120分钟，满分100分）一 选择题（1-40每个选项1分，41-50每个选项2分，共60分）下列各题A），B），C），D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）PASCAL程序必须包括A）程序首部。说明部分。语句部分 B）程序首部。说明部分C）说明部分。语句部分 D）程序首部。语句部分（2）下列中合法的PASCAL数是A）-9E7。5 B）TRUNC（-（ABS（-7。5）C）ABS（0-13 MOD 5+4） D）ORD（CHR（PRED（8）（3）设实型变量X已赋值为4。1876，下面能输出4。188的语句是A）WRITE（TRUNC（X*1000）/1000：5：3） B）WRITE（X：5：4）C）WRITE（ROUND（X*1000）/1000：5：3） D）WRITE（TRUNC（X）：5）（4）表达式5=x+a=5）AND (X+A=10)B) 5=(X+A)=5 AND X+A=5) OR (X+A=105 DIV 5+10D） NOT(AD) OR NOT (18 MOD 5=32 DO（11）设有下面程序段 Y：=2； WHILE Y=32 DO Y：=Y+Y；则程序段执行循环体的次数是A）3 B）4 C）5 D）6（12）若有说明 TYPE AR=ARRAY1。10 OF INTEGER； BR=ARRAY1。10 OF AR； VAR C：BR；下列语句正确的是A）CC2，4：=123； B）C8：=123；C）C24：=123； D）C0，2，4：=123；（13）若有以下程序： PROGRAM XXX（INPUT，OUTPUT）； VAR P1，P2，P3：INTEGER; BEGIN NEW(P1);P1:=5;P2:=P1; NEW(P1);P1:=10; P3:=P1;P1:=P2;P2:=P3; WRITELN(P1:3,P2:3,P3:3) END则程序运行后的输出应是A）5 5 10 B）5 10 10 C）5 10 5 D）10 5 10（14）一个班有30个学生，每个学生一个记录，记录的数据是：姓名，年龄和3门课的成绩。能正确描述这组信息的类型CLASS是A） TYPE STUDATA=RECORD NAME：CHAR； AGE：INTEGER； SCORE：ARRAY1。3 OF REAL END； CLASS=ARRAY1。30 OF STUDATA；B） TYPE STUDATA=RECORD NAME：PACKED ARRAY1。20 OF CHAR； AGE：INTEGER； SCORE：ARRAY1。3 OF REAL ENDCLASS=ARRAY1。30OF STUDATA；C） TYPE STUNAME=PACKED ARRAY1。20 OF 1。30 OF CHAR； STUAGE=ARRAY1。30 OF INTEGER； STUSCORE=ARRAY1。3，1。30 OF REAL； CLASS=ARRAY1。30 OF STUSCORE；D） TYPEPOINTER=STUDATA;STUDATA=RECORD NAME:ARRAY1.20 OF CHAR; AGE:INTEGER; SCORE:ARRAY1.3 OF REALENDCLASS=POINTER;(15)有下面程序：PROGRAM PP3（OUTPUT）； VAR A，B：INTEGER； PROCEDURE P1（A：INTEGER）； VAR B：INTEGER； BEGIN B：=A+5； WRITELN（A：3，B：3）； A：=B+5 END； BEGIN A：=1； B：=2； P1（B）； WRITELN（A：3，B：3） END该程序执行后的输出是A）2 7 B）1 6 C）2 7 D）2 71 2 1 2 1 12 12 2（16）设A，B，C，I，J均为整型变量，有下面的程序段： A：=0；B：=1；C：=2； FOR I；=1 TO 3 DO FOR J：=1 TO I DO CASE（I+J）MOD 3）OF 0：A：=A+1； 1：B：=B+1； 2：C：=C+1 END WRITELN（A；3，B：3，C：3）；上程序段执行后的输出结果是A）2 4 3 B）3 4 2 C）2 3 4 C）4 3 2 （17）有下面程序： PROGRAM XX（OUTPUT）； VAR X，Y，Z：INTEGER； PROCEDURE P（X：INTEGER；VAR Y，Z：INTEGER）； BEGIN Z：Z+Y+X END； BEGIN X：=5；Y：=6；Z：=7； P（X+Y+Z，X，Y）； WRITELN（X：4，Y：4，Z：4） END该程序的运行结果是A）5 29 7 B）5 6 7 C）18 5 6 D）18 6 7（18）有下面程序段： A：=FALSE； B：=FALSE； C：=TRUE； X：=10； IF A THEN X：=X-5 ELSE IF B THEN IF C THEN X：=36 ELSE X：=45；假设所有变量均已说明，程序运行后X的值是A）5 B）10 C）36 D）45（19）有下面程序段： M：=2；S：=0； FOR CH：=A TO FDO BEGIN IF ODD（M）THEN S：=S+M； M：=M+3 END；假设所有变量均已说明，程序运行后S的值是A）72 B）52 C）33 D）16（20）有下列函数说明： FUNCTION F（A，B，C：INTEGER）：INTEGER； VAR T：INTEGER； BEGIN A：=3*A；T：=B DIV C；F：=A+4*T END；则表达式F（F（1，F（1，2，3），3），2，3）的值是A）21 B）3 C）7 D）25（21）有下面程序： PROGRAM PP5（OUTPUT）； VAR I，N，K：INTEGER； BEGIN N：=15469； K：=2； FOR I：=1 TO K-1 DO N：=N DIV 10； N：=N MOD 10； WRITELN（N） END该程序执行后的输出是A）9 B）6 C）2 D）1（22）设有下面四个循环程序段 （1）A：=0； （2）A：=0；I：=1； I：=1； WHILE I6; END; (3)A:=0; (4)A:=0;I:=1; FOR I:=1 TO 5 DO REPEAT A:=A+1; I:=I+1; A:=A+1 UNTIL i5;有三个程序段执行后A的值相同，另一个不同的是A）（1） B）（2） C）（3） D）（4）（23）计算并输出下式 S=中S的值的正确程序是A）PROGRAM P36（OUTPUT）； B）PROGRAM P36（OUTPUT）； VAR S，S1：REAL； VAR S，S1：REAL； I：INTEGER； I：INTEGER； BEGIN BEGIN S：=0；S1=0； S：=0；S1：=1； FOR I：=1 TO 50 DO FOR I：=2 TO 50 DO BEGIN BEGIN S1：=S1+I； S1：=S1+I； S：=S+1/S1 S：=S+1/S1 END END； WRITELN（S：10：3） WRITELN（S：10：3） END ENDC）PROGRAM P36（OUTPUT）； D）PROGRAM P36（OUTPUT）； VAR S，S1：REAL； VAR S，S1：REAL； I：INTEGER； I：INTEGER； BEGIN BEGIN S：=0；S1=0； S：=0；S1：=1； FOR I：=1 TO 50 DO FOR I：=2 TO 50 DO S1：=S1+I； S：=S=1/（S1+I）； S：=S+1/S1； WRITELN（S：10：3） WRITELN（S：10：3） END END（24）设A，B，W为实型变量，OPER为字符型变量，用IF语句改写下面的程序段： CASE OPER OF +：W：=A+B； -：W：=A-B； *：W：=A*B； /：W：=A/B END在下列写法中，错误的是A）IF OPER=+THEN W：=A+B； B）IF OPER=*THEN W：=A*B IF OPER=-THEN W；=A-B； ELSE IF OPER=/THEN W：=A/B； IF OPER=*THEN W：=A*B IF OPER=+THEN W：=A+B IF OPER=/THEN W：=A/B； ELSE IF OPER=-THEN W：=A-BC）IF OPER=+THEN W：=A+B D）IF OPER=+THEN W：=A+B ELSE IF OPER=-THEN W：=A-B； ELSE IF OPER=-THEN W：=A-B； IF OPER=*THEN W：=A*B IF OPER=*THEN W：=A*B ELSE W：=A/B； ELSE IF OPER=/THEN W：=A/B；（25）有下面程序： PROGRAM PP4（OUTPUT）； VAR X，Y，Z：INTEGER； PROCEDURE PROC（VAR A，B：INTEGER；C：INTEGER）； BEGIN A：=A+B； B：=B+3； C：=A+B； Y：=Y+C； WRITELN（A：3，B：3，C：3） END BEGIN X：=1； Y：=2； Z：=3； PROC（X，X，X）； WRITELN（X：3，Y：3，Z：3） END该程序执行后的输出是A）2 4 6 B）5 5 10 C）2 5 7 D）2 4 6 2 8 3 5 12 3 2 9 3 4 8 3（26）有下列程序 PROGRAM TEST（INPUT，OUTPUT）； VAR S：INTEGER； CH：CHAR； COUNT：ARRAYA。Z OF INTEGER； BEGIN FOR CH：=ATO Z DO COUNTCH：=0； READ（CH）； WHILE NOT EOLN DO BEGIN IF（CH=A）AND (CH=Z) THEN COUNTCH:=COUNTCH+1; READ(CH) END; S:=0; FOR CH:=B TO Y DO S:=S+COUNTCH; WRITELN(S) END运行程序，输入一行正文WE ARE PROUD OF OUR COUNTRY！则程序的输出是A）10 B）22 C）11 D）23（27）已知有如下说明： TYPE T1=REC; REC=RECORD X:INTEGER; NEXT:T1 END; PROCEDURE PRINTLIST(P:T1); VAR Q:T1; BEGIN WHILE P.NEXTNIL DO BEGIN Q:=P; WHILE (Q.NEXT).NEXTNIL DO Q:=Q.NEXT; WRITE(Q.NEXT).X:3); Q.NEXT:=NIL END; WRITELN END;若已有链表如图所示（HEAD是T1型变量，/表示结点的NEXT域为空）：HEAD则执行过程调用PRINTLIST（HEAD）；后的输出结果是A）4 3 2 B）4 3 2 1 C）1 2 3 D）1 2 3 4 二 填空题（每空2分，共40分）请将每空的正确答案写在答题卡1-20序号的横线上，答在试卷上不得分（1）函数CHECK检查整数N中是否含有数字3，5，7。含有这些数字之一则返回TRUE；否则返回FALSE。例如：当N=13722或N=2549，则CHECK返回TRUE； 当N=21689或N=9148，则CHECK返回FALSE。FUNCTION CHECK（N：INTEGER）；BOOLEAN；VAR YES：BOOLEAN；BEGIN REPEAT YES：=（N MOD 10）IN_； N：=N DIV 10 UNTIL_OR YES； CHECK：=YESEND；(2)设有以下程序： PROGRAM T3（INPUT，OUTPUT）； VAR N：INTEGER； PROCEDURE P（。）； BEGIN A；=A=B；B：=B*A END； BEGIN N：=8； P（N，N）； WRITELN（N：3） END若过程首部的形式参数部分（。）分别为以下四种形式，则该程序执行后输出结果是（1）（A，B：INTEGER）输出结果是_（2）（A；INTEGER；VAR B：INTEGER）输出结果是_（3）（VAR A：INTEGER：B：INTEGER）输出结果是_（4）（VAR A：INTEGER；VAR B：INTEGER）的输出结果是_(3)设有以下程序： PROGRAM T5（INPUT，OUTPUT）； VAR A，X，Y，Z：INTEGER； PROCEDURE P（X，Y：INTEGER；VAR Z：INTEGER）； BEGIN Z：=Y-X-Z； WRITELN（X：3，Y：3，Z：3） 输出1 END； FUNCTION Q（M：INTEGER）：INTEGER； BEGIN Z：=Z+M； Q：=SUCC（M） END； BEGIN X：=4；Y：=6；Z：=3； P（5，X+Y+Z，X）； WRITELN（X：3，Y：3，Z：3）； 输出2 A：=Q（2）*Q（Z）； WRITELN（A：3，Z：3） 输出3 END该程序执行后，依次的输出结果：（1） 输出1的结果是_；（2） 输出2的结果是_；（3） 输出3的结果是_；(4)下面程序实现将数组A赋于如下的值，请填空完成该程序 1 1 1 1 1 4 1 1 1 1 3 4 1 1 1 2 3 4 1 1 1 2 3 4 1PROGRAM T1； VAR A：ARRAY1。5，1。5 OF INTEGER； I，J，K：INTEGER； BEGINFOR I：=1 TO 5 DO FOR J：=1 TO 5 DO IF （I-J=4）OR（_）THEN AI，J：=1 ELSE BEGIN K:=_; CASE KOF 1:AI,J:=4; 2:AI,J:=_; 3:AI,J:=2 END ENDEND(5)已知有类型说明：TYPE COLOR-（RED，YELLO