UC知道Pascal文件输出错误,急救~~
来源：百度知道 编辑：UC知道 时间：2024/05/24 09:56:01
这是我随手做的一个实验品,
问题是调试和保存以后,in和out为后辍的文件
始终都没有出现,
Program vista;
var a,b,c,d:integer;
x:array[1..3] of integer;
begin
read(a,b,c);
x[1]:=a;
x[2]:=b;
x[3]:=c;
for d:=1 to 3 do begin
write(' ',x[d]);
end;
end.
RUN的时候还弹出窗口,上面写:
exited with exitcode = 2
不知道为什么,哪位哥哥姐姐帮帮我饿~~
问题是调试和保存以后,in和out为后辍的文件
始终都没有出现,
Program vista;
var a,b,c,d:integer;
x:array[1..3] of integer;
begin
read(a,b,c);
x[1]:=a;
x[2]:=b;
x[3]:=c;
for d:=1 to 3 do begin
write(' ',x[d]);
end;
end.
RUN的时候还弹出窗口,上面写:
exited with exitcode = 2
不知道为什么,哪位哥哥姐姐帮帮我饿~~
楼上没有实际用上文件。
Program vista;
var a,b,c,d:integer;
x:array[1..3] of integer;
f,f1:text;
begin
assign(f,'a.in'); reset(f);
assign(f1,'a.out'); rewrite(f1);
read(f,a,b,c);
x[1]:=a;
x[2]:=b;
x[3]:=c;
for d:=1 to 3 do begin
write(f1,' ',x[d]);
end;
close(f); close(f1);
end.