主题:打死我也不懂是怎么回事。。。。。
trojankiss
[专家分:0] 发布于 2006-06-29 21:59:00
我在写一个简单的程序,结果单步到文件函数的时候就出现什么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个回复)
沙发
maxumi [专家分:2200] 发布于 2006-06-30 09:54:00
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.
你试试.
板凳
trojankiss [专家分:0] 发布于 2006-07-01 10:14:00
还是不行啊
3 楼
小田甜ts [专家分:210] 发布于 2006-07-01 15:25:00
你确认那个文件存在吗?
你确认相对路径的正确性吗?
建议你使用绝对路径,即:例如:E:\inp.txt
4 楼
trojankiss [专家分:0] 发布于 2006-07-01 17:20:00
信息学比赛的时候你也用绝对路径?没有的文件assign不是创建的嘛~
5 楼
小田甜ts [专家分:210] 发布于 2006-07-02 20:58:00
输出文件会被自动创建,但输入文件如果不存在则会以[b]运行时错误[/b]的形式退出来。
assign并不会创建文件,而是rewrite会创建文件。不信你可以写这样一个程序:
var f:text;
begin
assign(f,'E:\1.txt');
end.
然后看看e:\1.txt是否被创建。
6 楼
trojankiss [专家分:0] 发布于 2006-07-05 14:48:00
为什么文件不能直接使用input和output。。。系统已经定义的标准输入输出,绝对可以用的啊!
我来回复