自考“高級(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分。