高級(jí)語(yǔ)言程序設(shè)計(jì)考前沖刺模擬題（附答案）

一、是非題（下列各題，你認(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源程序中一行只能寫(xiě)一個(gè)語(yǔ)句。

A.正確

B.不正確

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

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’）之值為_(kāi)___________.

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

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

4、succ（9）＋ord（true）＋5.0之值為_(kāi)_________________.

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

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

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

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

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

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

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

問(wèn)題：求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’

問(wèn)題：構(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

問(wèn)題：統(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＞‘？’

五、編寫(xiě)程序題（每題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)的所有大字英文字母。