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

《高级语言程序设计试卷及答案两套》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第12页共12页高级语言程序设计试卷A一、选择题（每题2分，共16分）1．  若a=TRUE,b=FALSE,x=10,i=1,j=－1，则表达式aANDNOT(x>0)AND(i>j+3)ORa>bANDb的值为A.0B.1C.TRUED.FALSE2．  下面的程序执行后，x的值是a：=9；b：=0；IF(a<=a+b)AND(a>b)THENIFa>6THENIFa>10THENx：=0.5ELSEx：=1.5ELSEIFa>2THENx：=10ELSEx：=20；A..0.5B.1.5C.10D.203．  执行下面的程序段后，结果是a：=2；b：=0

2、；REPEATWRITE(‘AAA’)；b：=b+1UNTIL(a>b)；A.打印一个AAAB.打印2个AAAC.打印无数个AAAD.什么也不打印4．  下述程序段将打印出s：=0；c：=0；FORc：=2TO7DOCASECOF4,7,1：S：=S+1；2,6,3：；0,10,5：S：=S+3END；WRITELN(‘S=’,S)；A.S=4B.S=5C.’S’=4D.’S’=55．  下列常量说明中，合法的是A.CONSTcolor=red..blue;B.CONSTconst=10*5;C.CONSTx1:=3.9;D.CONSTabc=‘abc’;6．

3、  下列类型的变量中，不能用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;WHILEi<=4DO

4、BEGINi=i+0.5;Write(i);答案参见我的新浪博客：http://blog.sina.com.cn/s/blog_3fb788630100muda.html第12页共12页END;A.1B.2C.3D.4二、填空题（每空3分，共54分）1．请填充下面程序段，并计算l一50之间不能被3整除同时也不能被5整除的所有整数之积。(3分)p：=1；FORi：＝1TO50DOif(iMOD3＜＞0)AND(iMOD5＜＞0)THEN；2．已知有如下类型说明：TYPEDATE＝RECORDY:INTEGER;MONTH:1..12;DAY:1..31END;并

5、有函数LEAP能够检查年份Y是否闰年，若为闰年(闰年的2月有29天)，函数LEAP的返回值为TRUE；否则，返回值为FALSE。函数的详细内容没有给出，函数首部为：FUNCTIONLEAP(Y:INTEGER):BOOLEAN;下面函数CHECKDATE的作用是检查变量D中的日期是否合理，若不合理(即出现了不可能的日期)，则显示“ERRORDAIE!”，函数返回值为FALSE；否则，函数返回值为TRUE。（3分）FUNCTIONCHECKDATE(D:DATE):BOOLEAN；VARFLAG：B0OLEAN;BEGINFLAG:=TRUE;BEGINCASE

6、MONTH0F4，6，9，11：IFDAY＞30THENFLAG：＝FALSE;2：IF(DAY＞29)0R(DAY＞28)THENFLAG：＝FALSEENDEND；IFFLAG=FALSETHENWRITELN('ERRORDATE!')；CHECKDATE：＝FLAG；END；3．在下列程序中，当输入一个定数N后，能输出所有不超过N的、其平方由左右对称(1位数也认为是左右对称)的数字组成的数。例如：若输入23，则应输出：1，2，3，11，22，因为它们的平方依次是：1，4，9，121，484，都是左右对称的数字组成的数。（9分）答案参见我的新浪博客：ht

7、tp://blog.sina.com.cn/s/blog_3fb788630100muda.html第12页共12页PROGRAMPALINDROME(INPUT，OUTPUT)；CONSTMAX＝1000；VARM，N，I，J，S：INTEGER；D：ARRAY[0．．MAX]OFINTEGER；BEGINREADlN(N)；FORM：＝1TOND0BEGIN(1)；J：＝0；WHILES＞0D0BEGINJ：=J+1；D[J]：=SMOD10；(2)；END；I：=1；WHILE(D[I]＝D[J])AND(1

8、;END；IFI＞＝JTHENWRIT