write是输出操作,而一般的我们有两种输出方式,一种是屏幕输出,另一种是文件输出。
如果没有特别说明,那么程序默认从屏幕输出,如果用了assign,那么在assign到close之间所有的read操作都向选定的文件输出。assign相当于打开一个文件的作用,同时一个assign对应一个close.
其实你的问题是这样的,你想要文件输出再屏幕输出,然而你已经将输出定向文件了,为了再次从屏幕输出,可以这样改
begin
assign(output,'E:\1.txt');rewrite(output);
write('a');
close(output);
assign(output,'CON');
rewrite(output);
write('a');/就是使这句话不在E:\1.txt输出,要在pascal软件中直接输出/
close(output);
end.
希望可以帮到你
close之后就不能继续向原来的读写区操作了.
想重新定位回控制台,可以assign(output,'');rewrite(output);
很简单
我今天就遇到这个问题
我按你的程序说一下:
var fp:text; {这是一个文本变量,名字你随便起。}
begin
assign(fp,'E:\1.txt');
rewrite(output);
write('a');
close(fp);
write('a');
end.