回 帖 发 新 帖 刷新版面

主题:打死我也不懂是怎么回事。。。。。

我在写一个简单的程序,结果单步到文件函数的时候就出现什么error code =1啊什么的东西,就运行不了拉。比如我写下面这个程序,怎么我都看不出错误,或许是很久没有写东西了。
program manson;
var p:integer;
begin
assign(input,'inp');
reset(input); 这个地方就出现了问题,停止运行,有一个什么exitcode=2
assign(output,'out');
rewrite(output);
readln(p);
writeln(p);
close(input); close(output);
end.
大家赶快帮帮我。。。。感谢!~

回复列表 (共6个回复)

沙发

program manson;
var p:integer;
begin
assign(input,'inp[color=red].txt[/color]');
reset(input); 这个地方就出现了问题,停止运行,有一个什么exitcode=2
assign(output,'out[color=red].txt[/color]');
rewrite(output);
readln(p);
writeln(p);
close(input); close(output);
end.

你试试.

板凳

还是不行啊

3 楼

你确认那个文件存在吗?
你确认相对路径的正确性吗?
建议你使用绝对路径,即:例如:E:\inp.txt

4 楼

信息学比赛的时候你也用绝对路径?没有的文件assign不是创建的嘛~

5 楼

输出文件会被自动创建,但输入文件如果不存在则会以[b]运行时错误[/b]的形式退出来。
assign并不会创建文件,而是rewrite会创建文件。不信你可以写这样一个程序:

var f:text;
begin
  assign(f,'E:\1.txt');
end.

然后看看e:\1.txt是否被创建。

6 楼

为什么文件不能直接使用input和output。。。系统已经定义的标准输入输出,绝对可以用的啊!

我来回复

您尚未登录,请登录后再回复。点此登录或注册