2001年4月全國(guó)高等教育自學(xué)考試高級(jí)語(yǔ)言程序設(shè)計(jì)2

三、改錯(cuò)題（指出下列程序中的錯(cuò)誤及出錯(cuò)原因。每小題2 分，共8 分）
    1.program er1（input，output）；
    var x：real；
    begin read（x）；
    if odd（x）
    then writeln（’x is odd.’）
    else if x mod 3=0
    then writeln（’There is a factor of 3 in x’）
    else writeln（x：4）
    end.
    （1）____________________
    （2）____________________
    2.program er2（input，output）；
    var i，s：integer；
    begin s：=0；
    for i：=’a’ to ord（’z’）do
    begin s：=s+i；i：=i+1 end；
    writeln（s：4）
    end.
    （1）____________________
    （2）____________________
    3.program er3（input，output）；
    var a，b：integer；
    function f（a，b：integer）：char；
    begin f：=ord（’A’）+（a-b）mod
    26 end；
    begin read（a，b）；
    if f（a-b）=’c’
    then writeln（’O.K.’）else
    writeln（’NOT’）
    end.
    （1）____________________
    （2）____________________
    4.program er4（input，output）；
    type e=（a，b，c）；
    ta1=array[e，’A’..’C’，0..0.9]
    of integer；
    var i：e；j：char；k：real；m：tal；
    begin
    for i：=a to c do
    for j：=’A’ to ’C’ do
    read（m[i，j]）；
    （*下略*）
    end.
    （1）____________________
    （2）____________________
    四、閱讀程序題：閱讀下列程序，說(shuō)明其功能（7分）（不需給出運(yùn)行結(jié)果）
    program calpro（output）；
    var i，m，s，k：integer；
    begin