广东2001年4月高等教育自学考试高级语言程序设计试题.doc

广东2001年4月高等教育自学考试高级语言程序设计试题 来源：考试大 【考试大：中国教育考试第一门户】 2001年5月14日 三、改错题（指出下列程序中的错误及出错原因。每小题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=0then 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）dobegin 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）mod26 end；begin read（a，b）；if f（a-b）=cthen writeln（O.K.）elsewriteln（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；beginfor i：=a to c dofor j：=A to C doread（m[i，j]）；（*下略*）end.（1）____________________（2）____________________四、阅读程序题：阅读下列程序，说明其功能（7分）（不需给出运行结果）program calpro（output）；var i，m，s，k：integer；beginfor i：=100 to 500 dobegins：=0；m：=i；repeatk：=m mod 10；s：=s+k；m：=mdiv 10until m=0；writeln（s）endend.五、计算题（每小题10分，共30分）阅读如程序，将程序运行时的输出填写在相应答题栏内。1.计算程序1如下：program calc1（output）；var c：char；procedure p（ch：char）；procedure p1；var i：integer；begin for i：=1 to 5 do write（*） end；beginp1；write（ch）；p1；writelnend；beginfor c：=A to D do p（c）end.当程序运行时，其输出为：2.计算程序2如下：program calc2（input，output）；type st=set of 1..10；var s1：st；i：1..10；sum，k：integer；beginsum：=0；s1：=[]；for k：=1 to 5 dobegin read（i）；s1：=s1+[i] end；for i：=1 to 10 dobeginif i in s1 then sum：=sum+i；if（i in s1）and（i mod 2=0）then write（i：3）end；writeln；writeln（sum=，sum）end.当程序运行输入2 5 7 8 4时，其输出为：3.计算程序3如下：program calc3（input，output）；type rec=recorda：=array [1..10] of integer；end；ptc=^rec；var i：integer；p：ptc；beginnew（p）for i：=1 to 10 dobeginread（p^.a[i]）；if p^.a[i]0 then write（p^.a[i]：3）end；writeln；dispose（p）end.当程序运行输入-2 -5 6 -4 -8 12 23 -32 9 -4时，其输出为：六、编程题（第1题