回 帖 发 新 帖 刷新版面

主题:文件输出错误!

今天按照书上编了个程序,可是到输出时只输出了文件名字.
而txt里面竟然没有结果.
这是怎么回事啊?

回复列表 (共4个回复)

沙发

把代码 贴上啊

板凳

Program unhappy(input,output);
var
a,b:array [1..7] of integer;
i:integer;
f1,f2:text;
begin
assign(f1,'unhappy.in');
assign(f2,'unhappy.out');
reset(f1);
for i:=1 to 7 do readln(f1,a[i],b[i]);
for i:=1 to 7 do
begin
if a[i]+b[i]>8 then
begin
rewrite(f2);
writeln(f2,i);
close(f2);
exit;
end;
end;
rewrite(f2);
writeln(f2,'0');
close(f1);
close(f2)
end.


就是这个~编写出来总是不出来文件输出`

3 楼

文件路径搞错了? close(f1) 要放前面?

4 楼


把rewrite(f2)放到reset(f1)的后面

我来回复

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