2001年4月全国高等教育自学考试高级语言程序设计试题
|
|
|
|
|
|
三、改错题（指出下列程序中的错误及出错原因。每小题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）____________________
四、阅读程序题：阅读下列程序，说明其功能（7分）（不需给出运行结果）
program calpro（output）；
var i，m，s，k：integer；
begin |
| |
|
我要投稿 新闻来源： 编辑： 作者: |
 |
相关新闻 |
 |
|
|
|
|
