7.你選擇（ ?。?BR> A.↑。next：＝P1
B.P1：＝P1↑。next
C.P1＝P2.next
D.P1↑。next：P2↑。next
問題：統(tǒng)計并輸出輸入字串標點符號‘·’，‘，’，‘：’和‘；’出現(xiàn)的總次數(shù)，直至出現(xiàn)字符‘？’為止。
程序：
PROGRAM counter（input，output）；
TYPE
tp＝SET OF char‘
VAR
P：tp；
ch：chart；count：integer；
BEGIN
（ ⑧ ?。?BR> p：[‘·’，‘，’，‘：’，‘：’]；
REPEAT
read（ch）；
IF（ ?、帷 。?；
THEN count：＝count＋1
UNTIL（ ?、狻 。?；
writeln（count）
END.
8.你選擇（ ?。?BR> 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.你選擇（ ?。?BR> A.ch：＝‘？’
B.ch＝‘？’
C.ch< >‘？’
D.ch＞‘？’
五、編寫程序題（每題10分，共30分）
1、編一程序，計算并輸出
S＝1－x＋x2/2－x3/3＋…＋（-1）nxn/n（n＝1，2…）。其中x，n由終端輸入。（x為實型，n為整型）
2、編一程序，輸入二維整數(shù)數(shù)組A5×5所有元素之值，尋找并輸出該數(shù)組中元素之值（設(shè)只有一個）及其位置（行號和列號）。
3、編一程序，從終端輸入兩個英文句子，每句均以句號結(jié)束，輸出此兩句子中都出現(xiàn)的所有大字英文字母。
B.P1：＝P1↑。next
C.P1＝P2.next
D.P1↑。next：P2↑。next
問題：統(tǒng)計并輸出輸入字串標點符號‘·’，‘，’，‘：’和‘；’出現(xiàn)的總次數(shù)，直至出現(xiàn)字符‘？’為止。
程序：
PROGRAM counter（input，output）；
TYPE
tp＝SET OF char‘
VAR
P：tp；
ch：chart；count：integer；
BEGIN
（ ⑧ ?。?BR> p：[‘·’，‘，’，‘：’，‘：’]；
REPEAT
read（ch）；
IF（ ?、帷 。?；
THEN count：＝count＋1
UNTIL（ ?、狻 。?；
writeln（count）
END.
8.你選擇（ ?。?BR> 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.你選擇（ ?。?BR> A.ch：＝‘？’
B.ch＝‘？’
C.ch< >‘？’
D.ch＞‘？’
五、編寫程序題（每題10分，共30分）
1、編一程序，計算并輸出
S＝1－x＋x2/2－x3/3＋…＋（-1）nxn/n（n＝1，2…）。其中x，n由終端輸入。（x為實型，n為整型）
2、編一程序，輸入二維整數(shù)數(shù)組A5×5所有元素之值，尋找并輸出該數(shù)組中元素之值（設(shè)只有一個）及其位置（行號和列號）。
3、編一程序，從終端輸入兩個英文句子，每句均以句號結(jié)束，輸出此兩句子中都出現(xiàn)的所有大字英文字母。