您所在位置：主题：请教关于一个文件输入输出问题，百思不得其解
朽木白哉
[专家分：0] 发布于 2007-11-25 16:26:00
请大家帮我分析一下这个程序
ar s,g:text;
a:integer ;
begin
assign(s,'po.txt'); assign(g,'pl.txt');
reset(s); rewrite(g);
while not eof(s) do
begin
while not eoln(s) do
begin
read(s,a);
write(g,a);
end;
readln(s);
writeln(g);
end;
close(s); close(g);
我的测试输入文件po.txt
5
4
3
执行完我的程序后输出文件(pl.txt)为什么是
5
4
3
0
我本想实现两个文件的复制操作
ar s,g:text;
a:integer ;
begin
assign(s,'po.txt'); assign(g,'pl.txt');
reset(s); rewrite(g);
while not eof(s) do
begin
while not eoln(s) do
begin
read(s,a);
write(g,a);
end;
readln(s);
writeln(g);
end;
close(s); close(g);
我的测试输入文件po.txt
5
4
3
执行完我的程序后输出文件(pl.txt)为什么是
5
4
3
0
我本想实现两个文件的复制操作