杰克

首先，最简单的： 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，真正操作时参数也有不同的用处，如果想了解可以追问（不清楚你到底要多深的文件操作，再往下更难的如果还想知道就追问吧）