高级语言程序设计试卷及答案两套.doc

高级语言程序设计1．?? a = TRUE , b = FALSE , x = 10 , i = 1 , j = －1 ，则表达式 a AND NOT (x0) AND (ij+3) OR ab AND b 的值为 A.0 B.1 C.TRUE D.FALSE 2．?? x的值是 a：= 9； b：= 0； IF ( a=a+b ) AND (ab) THEN IF a6 THEN IF a10 THEN x：=0.5 ELSE x：=1.5 ELSE IF a2 THEN x：= 10 ELSE x：= 20； A..0.5 B.1.5 C.10 D.20 3．?? a：= 2； b：= 0； REPEAT WRITE (‘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 DO CASE C OF 4 , 7 , 1：S：= S + 1； 2 , 6 , 3：； 0 , 10 , 5：S：= S + 3 END； WRITELN (‘S =’ , S)； A.S = 4 B.S =5 C.’S’ =4 D.’S’ =5 5．?? 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↑之间，应用语句 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 DO BEGIN i = i + 0.5 ; Write ( i ) ; END; A. 1 B. 2 C. 3 D. 4 二、填空题（每空3分，共54分） 1．请填充下面程序段，并计算l一50之间不能被3整除同时也不能被5整除的所有整数之积。p：=1；FOR i：＝1 TO 50 DOif (i MOD 3＜＞0) AND (MOD 5＜＞0)THEN ；已知有如下类型说明：TYPEDATE＝RECORDY:INTEGER; MONTH:1..12; DAY:1..31 END;并有函数LEAP能够检查年份Y是否闰年，若为闰年(闰年的2月有29天)，函数LEAP的返回值为TRUE；否则，返回值为FALSE。函数的详细内容没有给出，函数首部为：FUNCTION LEAP(Y:INTEGER):BOOLEAN;下面函数CHECKDATE的作用是检查变量D中的日期是否合理，若不合理(即出现了不可能的日期)，则显示“ERRORDAIE!”，函数返回值为FALSE；否则，函数返回值为TRUE。FUNCTION CHECKDATE(D:DATE):BOOLEAN；VAR FLAG：B0OLEAN;BEGIN FLAG:=TRUE; BEGIN CASE MONTH 0F 4，6，9，11：IF DAY＞30 THEN FLAG：＝FALSE;2：IF (DAY＞29) 0R (DAY＞28)THEN FLAG：＝FALSEEND END；IF FLAG=FALSE THEN WRITELN(ERRORDATE!)；CHECKDATE：＝FLAG；END；．在下列程序中，当输入一个定数N后，能输出所有不超过N的、其平方由左右对称(1位数也认为是左右对称)的数字组成的数。例如：若输入23，则应输出：1，2，3，11，22，因为它们的平方依次是：1，4，