自考“高級(jí)語言程序設(shè)計(jì)”測(cè)試題（6） -自考串講筆記

　　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分。