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

　　END；

　　writeln(max，h，l)

　　END。

　　评分细则：

　　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。

　　评分细则：

　　统计第一句大字字母，2分；

　　统计第二句中大写字母，2分；

　　输出共同的大写英文字母，6分。

    更多信息请访问：新浪自考频道 自考论坛 自考博客圈

　　特别说明：由于各方面情况的不断调整与变化，新浪网所提供的所有考试信息仅供参考，敬请考生以权威部门公布的正式信息为准。