展开全部
首先,最简单的:
assign(input,'a.txt);{这里a.txt必需存在,不然会报错}
assign(output,'b.txt');{这里b.txt可以不存在,程序会自动生成}
reset(input);
rewrite(output);
{正文部分}
close(input);
close(output);
以上是最简单的,比赛时在程序两端加这六句话即可,a.txt,b.txt文件名到时候自己改
下面说点别的:
var
t,f:text;
i:longint;
begin
assign(t,'a.txt');
assign(f,'b.txt');
reset(t);
rewrite(f);
{正文}
read(i);
writeln(i);
read(t,i);
writeln(f,i);
close(t);
close(f);
end.
用这个的好处是调试程序比较方便。这时的read(i),i是从屏幕读入,read(t,i)则是文件读入,下面的write同样。
在谈点不常用的(竞赛不会用到,不学没关系):
file 类型
不知道大家有没有尝试过用上述两种方法读无类型文件,如:exe文件。大家会发现读进来是乱码,甚至程序自动退出。如果想要对无类型文件进行操作,就用file类型。可以实现无类型文件的保密等等操作。
具体函数很多了,建议大家看看蓝色的书后函数过程表。
注:file类型的读入和输出不是用read和write,真正操作时参数也有不同的用处,如果想了解可以追问(不清楚你到底要多深的文件操作,再往下更难的如果还想知道就追问吧)
assign(input,'a.txt);{这里a.txt必需存在,不然会报错}
assign(output,'b.txt');{这里b.txt可以不存在,程序会自动生成}
reset(input);
rewrite(output);
{正文部分}
close(input);
close(output);
以上是最简单的,比赛时在程序两端加这六句话即可,a.txt,b.txt文件名到时候自己改
下面说点别的:
var
t,f:text;
i:longint;
begin
assign(t,'a.txt');
assign(f,'b.txt');
reset(t);
rewrite(f);
{正文}
read(i);
writeln(i);
read(t,i);
writeln(f,i);
close(t);
close(f);
end.
用这个的好处是调试程序比较方便。这时的read(i),i是从屏幕读入,read(t,i)则是文件读入,下面的write同样。
在谈点不常用的(竞赛不会用到,不学没关系):
file 类型
不知道大家有没有尝试过用上述两种方法读无类型文件,如:exe文件。大家会发现读进来是乱码,甚至程序自动退出。如果想要对无类型文件进行操作,就用file类型。可以实现无类型文件的保密等等操作。
具体函数很多了,建议大家看看蓝色的书后函数过程表。
注:file类型的读入和输出不是用read和write,真正操作时参数也有不同的用处,如果想了解可以追问(不清楚你到底要多深的文件操作,再往下更难的如果还想知道就追问吧)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询