UC知道pascal 文件输出错误
来源：百度知道 编辑：UC知道 时间：2024/05/11 17:32:18
pascal 文件输出错误:
程序如下:
program f(input,output);
var sum,i,x,a:integer;
f1,f2:text;
begin
assign(f1,'d:\input.txt');
assign(f2,'d:\output.txt');
reset(f1);
rewrite(f2);
read(f1,x);
for i:=1 to x do
begin
readln(f1,a);
if a>sum then sum:=a;
end;
writeln(f2,sum);
close(f1);
close(f2);
end.
free pascal2.0.0编译正确,运行时弹出窗口提示:exited with exitcode=2
请问错误在哪,或改一下告诉我,追加5分!!!!!
程序如下:
program f(input,output);
var sum,i,x,a:integer;
f1,f2:text;
begin
assign(f1,'d:\input.txt');
assign(f2,'d:\output.txt');
reset(f1);
rewrite(f2);
read(f1,x);
for i:=1 to x do
begin
readln(f1,a);
if a>sum then sum:=a;
end;
writeln(f2,sum);
close(f1);
close(f2);
end.
free pascal2.0.0编译正确,运行时弹出窗口提示:exited with exitcode=2
请问错误在哪,或改一下告诉我,追加5分!!!!!
sum没有初始化，应该在for之前加上一句：sum:=0;
另外，程序运行时必须存在文件d:\input.txt，并且要有正确的内容：第一行是一个整数，然后是这个整数那么多行的整数。
文件位置要确定
楼上说的非常对..