高级语言程序设计试卷和答案两套

1、高级语言程序设计试卷A一、 选择题（每题2分，共16分）1   若a = TRUE , b = FALSE , x = 10 , i = 1 , j = 1 ，则表达式 a AND NOT(x>0) AND (i>j+3) OR a>b AND b 的值为 A.0 B.1 C.TRUE D.FALSE2   下面的程序执行后，x的值是 a：= 9； b：= 0；IF ( a<=a+b ) AND (a>b) THENIF a>6 THENIF a>10 THEN x：=0.5 ELSE x：=1.5ELSE IF

2、 a>2 THEN x：= 10 ELSE x：= 20；A.0.5 B.1.5 C.10 D.203   执行下面的程序段后，结果是 a：= 2； b：= 0；REPEATWRITE (AAA)； b：= b + 1 UNTIL ( a > b )；A.打印一个AAA B.打印2个AAA C.打印无数个AAA D.什么也不打印4   下述程序段将打印出 s：= 0； c：= 0；FOR c：= 2 TO 7 DOCASE C OF 4 , 7 , 1：S：= S + 1；2 , 6 , 3：；0 , 10 , 5：S：= S + 3END；

3、WRITELN (S = , S)；A.S = 4 B.S =5 C.S =4 D.S =55   下列常量说明中，合法的是 A. CONST color = red . . blue ;B. CONST const = 10*5 ;C. CONST x 1 : = 3.9 ;D. CONST abc = abc ;6   下列类型的变量中，不能用Write语句直接输出的变量是 A. 布尔型变量B. 枚举型变量C. 整型变量D. 字符型变量7  设有一单向链表，指针p,q分别指向链表中的结点，q是p的前驱结点，现要把指针p0指向的结点插在q和p

4、之间，应用语句 A.     p0.next:=q.next; q.next:=p0;B.     p0:=p; q.next:=p0;C.     p0.next:=p.next; q.next:=p0;D.     p0.next:=p; q.next:=p0;8   以下程序段共执行循环体的次数是 i : = 2.5 ;WHILE i <= 4 DOBEGINi = i + 0.5 ;Write ( i

5、) ;END;A. 1B. 2C. 3D. 4二、填空题（每空3分，共54分）1请填充下面程序段，并计算l一50之间不能被3整除同时也不能被5整除的所有整数之积。(3分)p：=1；FOR i：1 TO 50 DO if (i MOD 30) AND (i MOD 50)THEN ； 2已知有如下类型说明：TYPEDATERECORD Y:INTEGER; MONTH:1.12; DAY:1.31 END;并有函数LEAP能够检查年份Y是否闰年，若为闰年(闰年的2月有29天)，函数LEAP的返回值为TRUE；否则，返回值为FALSE。函数的详细内容没有给出，函数首部为：FUNCTION LEAP

6、(Y:INTEGER):BOOLEAN;下面函数CHECKDATE的作用是检查变量D中的日期是否合理，若不合理(即出现了不可能的日期)，则显示“ERRORDAIE!”，函数返回值为FALSE；否则，函数返回值为TRUE。 （3分）FUNCTION CHECKDATE(D:DATE):BOOLEAN； VAR FLAG：B0OLEAN; BEGIN FLAG:=TRUE; BEGIN CASE MONTH 0F 4，6，9，11：IF DAY30 THEN FLAG：FALSE; 2：IF (DAY29) 0R (DAY28) THEN FLAG：FALSE END END； IF FLAG=F

7、ALSE THEN WRITELN('ERRORDATE!')； CHECKDATE：FLAG； END； 3在下列程序中，当输入一个定数N后，能输出所有不超过N的、其平方由左右对称(1位数也认为是左右对称)的数字组成的数。例如：若输入23，则应输出：1，2，3，11，22，因为它们的平方依次是：1，4，9，121，484，都是左右对称的数字组成的数。 （9分）PROGRAM PALINDROME(INPUT，OUTPUT)； CONST MAX1000； VARM，N，I，J，S：INTEGER；D：ARRAY0MAXOF INTEGER；BEGINREADlN(N)；FOR

8、 M： 1 TO N D0 BEGIN (1) ； J：0； WHILE S0 D0 BEGIN J：=J+1； DJ：=S MOD 10； (2) ； END； I：=1； WHILE (DIDJ) AND (1<J) DO BEGIN I：=I+1； J：=J-1; END； IF IJ THEN WRITELN( (3) )； END；END. 4下面程序执行后显示ABAB，请填空完成它。 （9分）PROGRAM P11(OUTPUT)； VAR A：(K1，K2，K3，K4)； BEGIN A：K1； WHILE AK4 DO BEGIN CASE A 0F (1) ：WRITE

9、('A')； (2) ：WRITE('B')；END； A： (3) ； END； WRITELN； END5.下面的程序可以输出如下图示结果，请填空完成。 (6分)0001000001010001000101000001PROGRAM P5(OUTPUT)； TYPE ARRARRAY1.4,1.7 0F INTEGER； VAR A：ARR； I，J：IHTEGER； BEGIN FOR I：1 T0 4 DO FOR J：1 T0 7 DO IF( (1) 5) OR ( (2) 3) THEN AI，J：1 ELSE AI，J：0； FOR I： 1 T

10、O 4 DO BEGIN FOR J：1 TO 7 DO WRITE(AI，J：3)； WRITELN； END； END 6函数FN使用递归方法求1+2+3+N。其返回值为：当N1，则返回0；当N1，则返回1+2+3+N的值。请填空完成它。 (6分)FUNCTION FN(N：INTEGER)：INTEGER； BEGIN IF N1 THEN FN：=0 ELSE IF N：=1 THEN FN： (1) ELSE FN：FN( (2) )+N； END；7.己知类型说明为T1SET 0F 'A''Z'；过程WRITESET将集合A中的元素以下面例子的方式输

11、出。例：若A'A'，'Z'，'C'，'M'，'H'则输出AA，Z，C，M，H (6分)PROCEDURE WRITESET(A：T1); VAR CH：CHAR； BEGIN (1) ； FOR CH：'A' TO'Z' DO IF (2) IN A THEN WRITE(CH，',')； WRITELN('')； END；8下面的程序从键盘接收任意6个数放入数组A中，假设这6个数为：814256，则要输出一个具有如下内容的方阵。(12分)814256

12、681425568142256814425681142568PROGRAM EXAM(INPUTT，OUTPUT)； VAR A：ARRAY16 0F INTEGER；I，J，K：INTEGER;BEGINFOR I：l TO 6 DOREAD( (1) )；READLN：FOR I：1 TO 6 DO BEGIN IF I1THEN K：1ELSE K： (2) ；FOR J：1 TO (3) DOBEGIN WRITE(AK：2)； IF K6 THEN K：1ELSE K： (4) END；RITELN；END；END 三、程序分析题（每题5分，共20分）1 . 请说明下述程序的功能？并

13、写出打印出的第2个数是多少？PROGRAM ABC (INPUT，OUTPUT) ；VAR C，N：INTEGER ；BEGIN C：= 0 ； N：= 0 ；REPEAT N：= N + 1； IF (N MOD 2 = 1) AND (N MOD 3 = 1) AND (N MOD 5 = 1)THEN BEGIN WRITELN (N) ；C：= C +1 ENDUNTIL C = 10END. 2PROGRAM A (INPUT, OUTPUT) ；CONST m = 10；n = 5；TYPE ab = ARRAY 1.m，1.n OF INTEGER ；VAR i，j，b

14、，m1，m2：INTEGER；a：ab；PROCEDURE BB ( a：ab；VAR x：INTEGER)； VAR i，j，m1，m2：INTEGER； BEGINm1：= ABS (a1，1)；m2：= ABS (a1，1)；FOR i：= 1 TO m DO FOR j：= 1 TO n DO BEGIN IF m1 < ABS（a i，j）THEN m1：= ABS ( ai，j )； IF m2 > ABS (a i，j ) THEN m2：= ABS ( ai，j)； END；x：=（m1 - m2）* （m1 + m2）END；BEGINFOR i：= 1 TO m

15、 DOFOR j：= 1 TO n DO ai，j：= i * j；m1：=10；m2：=20；BB ( a，b)； WRITE (b，m1，m2)；END.说明过程BB的功能, 并写出程序运行结果。 3. 设有 a 为一个二维数组, 以下程序段运行结果是（ ）FOR I : = 1 TO 3 DOBEGINFOR J : = 1 TO 3 DOIF I = 3 THEN a I, J : = a I-1 , aI-1,j + 1ELSE a I, J : = J;Write( a I, J )END;WritelnEND.4. 设有程序段如下，求其输出ch1 : = z ; ch2

16、 : = x ;if ch1 <> x thencase ch2 of x : case ch1 of z : write( xz ) ; y : write( xy ) ;end ; y : write( yy ) ;endelse write( yx ) ;四、编程题（10分）输入任一的自然数A, B, 递归实现求A , B的最大公约数。要求：写出完整的程序提示：从数学上可以知道，M与N的最大公约数等价于求N与（M MOD N）的最大公约数。当N=0时，M与N的最大公约数是M。高级语言程序设计试卷B一、 选择题（每题2分，共16分）1  设有过程首部PROCEDURE

17、 A(VAR a:REAL;b:REAL);设x,y为实型变量，其值分别是3.5，4.5，则允许的过程调用语句是 A. A(1.5, 2.5); B. A(1.5, x);C. A（x, x+y）; D. A(x+y, x);2  设有下面程序段x:=2;WHILE x<= 32 DO x:= x + x ;则程序执行循环的次数是 A. 3 B. 4 C. 5 D. 63  下面程序段不能求8！的是 （结果在P中）A.     p:1; B. p:2;FOR n:=2 TO 8 DO p:=p*n; FOR n:=8 DOWNT

18、O 3 DO p:=p*n;C. p:=1;n:=1; D. p:1; n:=2;WHILE n<=8 DO REPEATBEGIN p:=p*n; n:=n+1; p:=p*n n=n+1END; UNTIL n>8; 4  有变量说明VAR p,q: INTEGER; a:ARRAY1.10 OF INTEGER;以下哪组语句是合法的 A.     p:=6; q:=p; ap+2:=q;B.     p:=4; q:=p; ap:=q;C.    

19、 p:=5; q:=5; ap:=q;D.     p:=8; q:=6; ap:=q;5  已知c1,c2都是字符串变量，以下程序段，当输入数据是AB时，输出是 Read (c1,c2);IF c1<>BTHENBEGINCASE c2 OF A:CASE c2 OF C: write(AA);B: write(BB)END;B: write(CC)ENDENDELSEwrite(DD);A. AA B. BB C. CC D. DD6  有以下程序段，假设所有变量已说明，运行后s的值是 m:=2; s:=5;FOR c

20、h:=g DOWNTO b DOBEGIN IF odd(m) THEN s:=s+m;m:=m+3ENDA. 72 B. 52 C. 16 D. 387   下列表达式中值为假的是（）A. ab < abcB. Succ ( Fale ) = TrueC. Odd ( 35+1 ) = FalseD. 219 <> 2198  下面的程序的输出是 PROGRAM t(input,output);VAR a,b,x:integer;FUNCTION proc(a:integer):integer;BEGINx:=1; a:=a+1; write(

21、a,x); proc:=aEND;BEGINa:=1; x:=2; b:=proc(a); writeln(a,b,x)END.A. 2 1 2 2 1 B. 2 2 1 2 2 C. 2 1 2 2 2 D. 2 1 1 2 2二、填空题（每空3分，共54分）1类型ARR为：TYPE ARRARRAY116 OF INTEGER；己知数组A中有15个整数已按从小到大的顺序排列，过程INSERTONE把任意整数B填入A中并使A中数据仍然有序。 （9分）PROCEDURE INSERTONE(VAR A：ARR；B：INTEGER)； VAR K：INTEGER； BEGIN K： (1) ；

22、WHILE (K1) AND ( (2) ) DO BEGIN AK：AK-1； K：K-1； END； AK： (3) ； END； 2.已知有类型说明：TYPECOLOR=(RED，YELLOW，BLACK，BLUE，ORANGE，GREEN，WHITE)；COLORSETSET OF COLOR；函数IFIN返回集合A中元素的个数： （9分）FUNCTION IFIN(A：COLORSET)：INTEGER； VARC：INTEGER；X：COLOR；BEGINX：RED：C：=0；WHILE A DOBEGINWHILE NOT (X IN A) DOx： (1) ；C： (2) ；A

23、：A- (3) END；IFIN ：=C；END； 3下面程序实现将数组A赋与如下的值，请填空完成该程序。 （9分）1111141111341112341112341PROGRAM T1； VAR A：ARRAY15，15 0F INTEGER； I，J，K：INTEGER； BEGIN FOR I：1 TO 5 DO FOR J：1 TO 5 DO IF (I-J4) OR ( (1) ) THEN AI,J：1ELSE BEGIN K： (2) ； CASE K OF 1：AI，J：4； 2：AI，J： (3) ； 3：AI，J：2； END； END；END4利用已定义的函数SN计算值：

24、 （3分）MSIN(X)(SIN(XY)SIN(XZ)十SIN(Y)(SIN(YZ)SIN(YX)+SIN(Z)(SIN(ZX)SIN(ZY)函数定义为：FUNCTION SN(A，B，C：REAL)：REAL； BEGIN SN：SIN(A)(SIN(AB)*SIN(AC) END； 调用程序有：READ(X，Y，Z)；M：= ；WRITELN(M)； 5.设有以下程序： （12分）PROGRAM T3(INPUT，0UTPUT)； VAR N：INTEGER； PR0CEDURE P()； BEGIN A：A-B； B：=B*A； END； BEGIN N：8； P(N，N)； WRITE

25、LN(N：3)； END 若过程首部的形式参数部分()分别为以下四种形式，则该程序执行后输出结果是：(1)(A，B：INTEGER)输出结果是 (1) (2)(A:INTEGER；VAR B：INTEGER)输出结果是 (2) (3)(VAR A：INTEGER；B：INTEGER)输出结果是 (3) (4)(VAR A：INTEGER；VAR B：INTEGER)的输出结果是 (4) 。6. 己知有说明：TYPE ptrrec； recBECORD data：Integer； next：ptr； END；函数append可建立一个无重复结点的单链表，即该函数检查己建立的结点中是否有data或

26、与n相等的节点。若有这样的节点则原链表不变，并返回假；否则以n作为一个新节点链接在原链表之后，并返回真。 （12分）FUNCTION append(VAR head：ptr；n：Integer)：Boolean； VAR r，p，q：ptr；linked：Boo1ean；BEGIN linked：True；New(q)；qnext：=NIL；qdata：n；IF headNIL THEN （1） ：qELSEBEGIN p：head； REPEAT r：p；IF pdatanTHEN linked：FalseELSE IF (2) <>NIL THEN p：=pnext；UNTIL ( (3) ) OR (linked=FALSE)；IF linked=TRUETHEN (4) ：qELSE Dispose(q);END；append：linked；END； 三、程序分析题（共20分）1(1)若说明VAR i:integer; a,b,c:char;程序片段FOR i:=1 TO 10 DO CASE i MOD 3 OF 0: a:=A; 1: b:=B; 2: c