一、是非題（下列各題，你認(rèn)為正確的，請(qǐng)?jiān)陬}干的括號(hào)內(nèi)打“√”，錯(cuò)的打“×”。每題1分，共10分）

　　1、實(shí)型是有序類型。

　　A.正確

　　B.不正確

　　2、保留字具有特定含義，不能挪作它用。

　　A.正確

　　B.不正確

　　3、true＜false之值為false.

　　A.正確

　　B.不正確

　　4、exp可作用戶標(biāo)識(shí)。

　　A.正確

　　B.不正確

　　5、PASCAL源程序中一行只能寫一個(gè)語(yǔ)句。

　　A.正確

　　B.不正確

　　6、PASCAL源程序中每個(gè)變量都必須說明。

　　A.正確

　　B.不正確

　　7、2.0E3.0是一個(gè)合法的實(shí)型常數(shù)。

　　A.正確

　　B.不正確

　　8、trunc（5.95）之值為5.0.

　　A.正確

　　B.不正確

　　9、函數(shù)的類型只能是有序類型。

　　A.正確

　　B.不正確

　　10、當(dāng)形參為值參數(shù)方式時(shí)，對(duì)應(yīng)的實(shí)參不能是變量。

　　A.正確

　　B.不正確

　　二、單選題（在本題的每一小題的備選答案中，只有一個(gè)答案是正確的，請(qǐng)把你認(rèn)為正確答案的題號(hào)，填入題干的括號(hào)內(nèi)。多選不給分。每題2分，共10分）

　　1.設(shè)i1，i2的整型變量，r1，r2是實(shí)型變量，下列哪一個(gè)語(yǔ)句是錯(cuò)誤的（　）

　　A.i1：＝i2DIVi1；

　　B.r1：＝i1DIVi2/i2；

　　C.r1：＝i1/r2；

　　D.i2：＝i1/i2；

　　2.設(shè)ch為字符變量，下列哪一個(gè)語(yǔ)句是正確的（　）

　　A.ch：＝‘－3’；

　　B.ch：＝－ch；

　　C.ch：＝ch；

　　D.ch：＝‘R’＋‘T’；

　　3.下列哪一個(gè)可用作用戶自定久標(biāo)識(shí)符（　）

　　A.LABEL

　　B.A（i）

　　C.A＋name

　　D.boolean

　　4.設(shè)a為123.4，執(zhí)行write（a：5：2）后輸出為（　）

　　A.123.40

　　B.123.4

　　C.23.4

　　D.極錯(cuò)

　　5.在CASE語(yǔ)句中，下列哪一類常量不能用作選擇因子（　）

　　A.實(shí)型

　　B.整型

　　C.布爾型

　　D.枚舉型

三、填空題（每空2分，共20分）

　　1、chr（8＋ord（‘1’）之值為____________.

　　2、子程序調(diào)用時(shí)，對(duì)應(yīng)變量參數(shù)方式形參傳遞的是實(shí)參的___________.

　　3、語(yǔ)句標(biāo)號(hào)之大小必須為1到___________________的無符號(hào)整數(shù)。

　　4、succ（9）＋ord（true）＋5.0之值為__________________.

　　5、國(guó)際上用得最廣泛的字符集叫____________________字符集。

　　6、代數(shù)式A≥B≥C對(duì)應(yīng)的PASCAL表達(dá)式為______________________.

　　7、PASCAL的數(shù)據(jù)類型分為簡(jiǎn)單類型、構(gòu)造類型和____________________.

　　8、代數(shù)式e|x|＋3對(duì)應(yīng)的PASCAL表達(dá)式為_____________________.

　　9、局部變量在____________________時(shí)才必須分配內(nèi)存單元。

　　10、TEXT型變量是具有_____________________類型元素的文件。

　　四、選擇填空題（本題中的每個(gè)小題，已分別給出相應(yīng)的求解和程序。但程序中空出若干個(gè)括弧，每個(gè)括弧中的4個(gè)備選答案。請(qǐng)把你認(rèn)為正確的答案題號(hào)填入題后相應(yīng)的位置。每空3分，共30分）

　　問題：求2～1000之間的所有素?cái)?shù)，并存入文件ff中。

　　程序：

　　PROGRAM prime（ff）；

　　VAR

　　ff：FILE OF integer；

　　i，j：integer；

　　b：boolean；

　　BEGIN

　　（　①　　）；

　　FOR i：＝2 TO 1000 DO

　　BEGIN

　　（　　②　　）；

　　FOR j：＝2TO i－1 DO

　　IF i MOD j＝0

　　THEN（　　③　　）；

　　IF b THEN write （ff，i）

　　END

　　END.

　　1.你選擇（　　）

　　A.reset（ff）

　　B.writeln（ff）

　　C.rewrite（ff）

　　D.new（ff）

　　2.你選擇（　　）

　　A.b：＝false

　　B.b：＝true

　　C.b：＝‘false’

　　D.b：＝‘true’

　　3.你選擇（　　）

　　A.b：=false

　　B.b：＝true

　　C.b：＝‘false’

　　D.b：＝‘true’

問題：構(gòu)造一鏈表，并按與輸入相同的次序輸出該鏈表中的數(shù)據(jù)。

　　程序：

　　PROGRAM fifolist（input，output）；

　　TYPE

　　pointer＝↑c(diǎn)ooperate；

　　cooperate＝RECORD

　　next：pointer；

　　data：integer

　　END；

　　VAR

　　p1，p2，p3：pointer；

　　BEGIN

　　（　　④　　）；

　　P3：＝P1

　　read（p1↑。data）；

　　WHILE NOT eof DO

　　BEGIN

　　（　　⑤　　）；

　　read（p2↑。data）；

　　（　　⑥　　）；

　　p3：＝p2

　　END；

　　P2↑。next：＝NIL；

　　WHILE P1 NIL DO

　　GEGIN

　　write（p1↑。data）；

　　（　　⑦　　）；

　　END；

　　END.

　　4.你選擇（　　）

　　A.P1：＝NIL

　　B.P2：＝NIL

　　C.NEW（P1）

　　D.new（p2）

　　5.你選擇（　　）

　　A.P1：＝NIL

　　B.P2：＝NIL

　　C.new（P1）

　　D.new（P2）

　　6.你選擇（　　）

　　A.p3↑。next：=P2

　　B.P3↑。next：＝NIL

　　C.P3↑。next：＝P2↑。next

　　D.p3↑。next：＝p3

7.你選擇（　　）

　　A.↑。next：＝P1

　　B.P1：＝P1↑。next

　　C.P1＝P2.next

　　D.P1↑。next：P2↑。next

　　問題：統(tǒng)計(jì)并輸出輸入字串標(biāo)點(diǎn)符號(hào)‘·’，‘，’，‘：’和‘；’出現(xiàn)的總次數(shù)，直至出現(xiàn)字符‘？’為止。

　　程序：

　　PROGRAM counter（input，output）；

　　TYPE

　　tp＝SET OF char‘

　　VAR

　　P：tp；

　　ch：chart；count：integer；

　　BEGIN

　　（　　⑧　　）；

　　p：[‘·’，‘，’，‘：’，‘：’]；

　　REPEAT

　　read（ch）；

　　IF（　　⑨　　）；

　　THEN count：＝count＋1

　　UNTIL（　　⑩　　）；

　　writeln（count）

　　END.

　　8.你選擇（　　）

　　A.count：＝0

　　B.count：＝1

　　C.ch：＝‘　’

　　D.count：＝－1

　　9.你選擇（　　）

　　A.ch＝P

　　B.ch＜＝P

　　C.ch IN p

　　D.ch＞＝P

　　10.你選擇（　　）

　　A.ch：＝‘？’

　　B.ch＝‘？’

　　C.ch<　>‘？’

　　D.ch＞‘？’

　　五、編寫程序題（每題10分，共30分）

　　1、編一程序，計(jì)算并輸出

　　S＝1－x＋x2/2－x3/3＋…＋（-1）nxn/n（n＝1，2…）。其中x，n由終端輸入。（x為實(shí)型，n為整型）

　　2、編一程序，輸入二維整數(shù)數(shù)組A5×5所有元素之值，尋找并輸出該數(shù)組中最大元素之值（設(shè)只有一個(gè)）及其位置（行號(hào)和列號(hào)）。

　　3、編一程序，從終端輸入兩個(gè)英文句子，每句均以句號(hào)結(jié)束，輸出此兩句子中都出現(xiàn)的所有大字英文字母。

　　查看解析

答案

　　一、是非題

　　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、‘1’‘9’

　　2、地址

　　3、999

　　4、16.0

　　5、ASCⅡ

　　6、（A≥B）AND（B≥C）

　　7、指針類型

　　8、exp（abs（x））＋3

　　9、 所在子程序執(zhí)行

　　10、字符

　　四、選擇填空題

　　1 C 2 B 3 A 5 D 6 A 7 B 8 A 9 C 10 B

　　五、編寫程序

　　1、PROGRAM sum（input，output）；

　　VAR

　　n，i：integer；

　　x，s，t：real；

　　BEGIN

　　S：＝1，t：＝1

　　read（x，n）；

　　FOR i：＝1 TO n DO

　　BEGIN

　　t：＝－t*x；

　　S：＝S＋t/i

　　END；

　　writeln（S）

　　END；

　　評(píng)分細(xì)則：

　　s，t初值占1分；

　　輸入占1分；

　　FOR語(yǔ)句占7分；

　　輸出占1分。

2、PROGRAM largest（input，output）；

　　VAR

　　a：ARRAY[1··5，1··5]OF integer；

　　max ，i，j，h，l：integer；

　　BEGIN

　　max：＝－maxint -1；

　　FOR i：＝1 TO 5DO

　　FOR j：＝1TO 5 DO

　　read （a[i，i]；

　　FOR i：＝1 TO 5DO

　　FOR j：＝1TO 5 DO

　　IF max＜a[i，j]THEN

　　BEGIN

　　max：＝a[i，j]；

　　h：＝i；

　　l：＝j(luò)

　　END；

　　writeln（max，h，l）

　　END.

　　評(píng)分細(xì)則：

　　max初值占1分；

　　輸入占1分；

　　求max，h，l占7分；輸出占12分。

　　3、 PROGRAM xyz（input，output）；

　　VAR

　　a，b：SET OF ‘A’··‘Z’；

　　ch：char；

　　BEGIN

　　a：＝[]； b：＝[]；

　　REPEAT

　　read（ch）；

　　IF （ch＞＝‘A’）AND （ch＜＝‘Z’）

　　THEN a：a＋[ch]

　　UNTIL ch＝‘·’；

　　REPEAT

　　read（ch）；

　　IF （ch＞＝‘A’） AND （ch＜＝‘Z’）

　　THEN b：＝b＋[ch]

　　UNTIL ch＝‘·’；

　　FOR ch：＝‘A’ TO ‘Z’DO

　　IF （ch IN a） AND（ch IN b）

　　THEN write（ch）

　　END.

　　評(píng)分細(xì)則：

　　統(tǒng)計(jì)第一句大字字母，2分；

　　統(tǒng)計(jì)第二句中大寫字母，2分；

　　輸出共同的大寫英文字母，6分。