怎么复制pascal输出内容？用写文件的方法为什么写不全？

文件最后close(f);楼上close错东西了…………

所有的文件最好全部关掉，否则会出现问题，。
这是经常容易OI上出现问题的情况。一旦出现，没拿到分数就囧了。

平时建议你assign(input,'filename.in')像这样用文件。
使用input或output作为文件变量不需要申明，在writeln（xx）的时候也不需要输input，output。
和没有文件基本是一样的。

另外同求最佳= =

文件的End.前面加上一行
Close(output);
不关闭输出文件有时候可能产生这样的现象
要习惯关闭啊。。。
求最佳

Program Exam65;
Var x,y,z : char;
N, k : integer;
Procedure sub(n: integer; a, c , b: char);
begin
if n=0 then exit;
sub(n-1, a,b,c);
inc(k);
writeln(k,': from', a, '-->', c);
sub(n-1,b,c,a);
end;
begin
write('n=');
assign(output,'yun.txt');
rewrite(output);
readln(n);
writeln(n);
k:=0;
x:='A'; y:='B'; Z:='C';
sub(n,x,z,y); write('ok');
close(output);
end.
你试试这个、、我调了一下、、应该对了
不过这样输出是在你使用的fp根目录下的、