2010年自学考试《高级语言程序设计》习题.docx

一、是非题(下列各题，你认为正确的，请在题干的括号内打“”，错的打“”。每题1分，共10分)1、实型是有序类型。A。正确B。不正确2、保留字具有特定含义，不能挪作它用。A。正确B。不正确3、truefalse之值为false。A。正确B。不正确4、exp可作用户标识。A。正确B。不正确5、PASCAL源程序中一行只能写一个语句。A。正确B。不正确6、PASCAL源程序中每个变量都必须说明。A。正确B。不正确7、2.0E3.0是一个合法的实型常数。A。正确B。不正确8、trunc(5.95)之值为5.0。A。正确B。不正确9、函数的类型只能是有序类型。A。正确B。不正确10、当形参为值参数方式时，对应的实参不能是变量。A。正确B。不正确二、单选题(在本题的每一小题的备选答案中，只有一个答案是正确的，请把你认为正确答案的题号，填入题干的括号内。多选不给分。每题2分，共10分)1。设i1，i2的整型变量，r1，r2是实型变量，下列哪一个语句是错误的( )A.i1：i2DIVi1；B.r1：i1DIVi2/i2；C.r1：i1/r2；D.i2：i1/i2；2。设ch为字符变量，下列哪一个语句是正确的( )A.ch：3；B.ch：ch；C.ch：ch；D.ch：RT；3。下列哪一个可用作用户自定久标识符( )A.LABELB.A(i)C.AnameD.boolean4。设a为123.4，执行write(a：5：2)后输出为( )A.123.40B.123.4C.23.4D。极错5。在CASE语句中，下列哪一类常量不能用作选择因子( )A。实型B。整型C。布尔型D。枚举型三、填空题(每空2分，共20分)1、chr(8ord(1)之值为_。2、子程序调用时，对应变量参数方式形参传递的是实参的_。3、语句标号之大小必须为1到_的无符号整数。4、succ(9)ord(true)5.0之值为_。5、国际上用得最广泛的字符集叫_字符集。6、代数式ABC对应的PASCAL表达式为_。7、PASCAL的数据类型分为简单类型、构造类型和_。8、代数式e|x|3对应的PASCAL表达式为_。9、局部变量在_时才必须分配内存单元。10、TEXT型变量是具有_类型元素的文件。四、选择填空题(本题中的每个小题，已分别给出相应的求解和程序。但程序中空出若干个括弧，每个括弧中的4个备选答案。请把你认为正确的答案题号填入题后相应的位置。每空3分，共30分)问题：求21000之间的所有素数，并存入文件ff中。程序：PROGRAM prime(ff)；VARff：FILE OF integer；i，j：integer；b：boolean；BEGIN( )；FOR i：2 TO 1000 DOBEGIN( )；FOR j：2TO i1 DOIF i MOD j0THEN( )；IF b THEN write (ff，i)ENDEND。1。你选择( )A.reset(ff)B.writeln(ff)C.rewrite(ff)D.new(ff)2。你选择( )A.b：falseB.b：trueC.b：falseD.b：true3。你选择( )A.b：=falseB.b：trueC.b：falseD.b：true问题：构造一链表，并按与输入相同的次序输出该链表中的数据。程序：PROGRAM fifolist(input，output)；TYPEpointercooperate；cooperateRECORDnext：pointer；data：integerEND；VARp1，p2，p3：pointer；BEGIN( )；P3：P1read(p1。data)；WHILE NOT eof DOBEGIN( )；read(p2。data)；( )；p3：p2END；P2。next：NIL；WHILE P1 NIL DOGEGINwrite(p1。data)；( )；END；END。4。你选择( )A.P1：NILB.P2：NILC.NEW(P1)D.new(p2)5。你选择( )A.P1：NILB.P2：NILC.new(P1)D.new(P2)6。你选择( )A.p3。next：=P2B.P3。next：NILC.P3。next：P2。nextD.p3。next：p37。你选择( )A.。next：P1B.P1：P1。nextC.P1P2.nextD.P1。next：P2。next问题：统计并输出输入字串标点符号，：和；出现的总次数，直至出现字符？为止。程序：PROGRAM counter(input，output)；TYPEtpSET OF charVARP：tp；ch：chart；count：integer；BEGIN( )；p：，：，：；REPEATread(ch)；IF( )；THEN count：count1UNTIL( )；writeln(count)END。8。你选择( )A.count：0B.count：1C.ch：D.count：19。你选择( )A.chPB.chPC.ch IN pD.chP10。你选择( )A.ch：？B.ch？C.ch？D.ch？五、编写程序题(每题10分，共30分)1、编一程序，计算并输出S1xx2/2x3/3(-1)nxn/n(n1，2)。其中x，n由终端输入。(x为实型，n为整型)2、编一程序，输入二维整数数组A55所有元素之值，寻找并输出该数组中最大元素之值(设只有一个)及其位置(行号和列号)。3、编一程序，从终查看解析答案一、是非题1 B 2 A 3 A 4 A 5 B 6 A 7 B 8 B 9 B 10 B二、单选题1 D 2 C 3 D 4 A 5 A三、填空题1、192、地址3、9994、16.05、ASC6、（AB）AND（BC）7、指针类型8、exp（abs（x）39、 所在子程序执行10、字符四、选择填空题1 C 2 B 3 A 5 D 6 A 7 B 8 A 9 C 10 B五、编写程序1、PROGRAM sum（input，output）；VARn，i：integer；x，s，t：real；BEGINS：1，t：1read（x，n）；FOR i：1 TO n DOBEGINt：t*x；S：St/iEND；writeln（S）END；评分细则：s，t初值占1分；输入占1分；FOR语句占7分；输出占1分。2、PROGRAM largest（input，output）；VARa：ARRAY15，15OF integer；max ，i，j，h，l：integer；BEGINmax：maxint -1；FOR i：1 TO 5DOFOR j：1TO 5 DOread （ai，i；FOR i：1 TO 5DOFOR j：1TO 5 DOIF maxai，jTHENBEGINmax：ai，j；h：i；l：jEND；writeln（max，h，l）END.评分细则：max初值占1分；输入占1分；求max，h，l占7分；输出占12分。3、 PROGRAM xyz（input，output）；VARa，b：SET OF AZ；ch：char；BEGINa：； b：；REPEATread（ch）；IF （chA）AND （chZ）THEN a：achUNTIL ch；REPEATread（ch）；IF （chA） AND （chZ）TH