pascal文件的读写操作

文件的操作
在我前面的已学的程序中，

输入数据是用键盘输入的 输出数据是显示在屏幕上的. 有没有其它的方式呢???? 有------文件 我们所编写的程序可以从文件中读入要处 理的数据. 同样也可以将结果输出到文件中.
如何实现对文件的操作呢???
设从文件sum.in中读入数据，
特别6句话。 当然加6句话时，要能通过编译。 更稳妥的办法，加6句话，还要用输入输 出文件进行样例测试。
例1:求整数a和 整数b的和.
输入文件:sum.in
输出文件:sum.out 演示
Program sum; Var A,b,s:integer; Begin Assign(input,’sum.in’); Reset(input); Assign(output,’sum.out’); Rewrite(output);
Read(a,b); Sum:=a+b; Write(sum);
{ Close(input); Close(output);} End.
文件的状态检测
文件是否已经读完：Eof/SeekEof
– 格式：Eof: Boolean – 格式：SeekEof : Boolean 文件读数据时是否已到行末：Eoln/SeekEoln – 格式：Eoln : Boolean – 格式：SeekEoln : Boolean
Read(a,b); S:=a+b; Write(s);
Close(input); Close(output); End.
注意:
1、输入输出文件名： 有主文件名和扩展名，中间用“.”隔开。 文件名不能和程序名相同。 文件名不能和变量名相同。 2、调试程序 用{}括起来的语句，pascal认为是程序的注
释，所以不被运行。 所以为了调试方便，一般先用{}将相关文件 输入输出语句括起来，仍用键盘和屏幕作为输 入和输出调试程序。调试好后再将{}去掉。 具体参才下一张幻灯。
Program sum; Var A,b,sum:integer; Begin { Assign(input,’sum.in’); Reset(input); Assign(output,’sum.out’); Rewrite(output);}/加了{}后这4句话就认为是注释了，不运行了/


将结果放在sum.out文件中 在begin后加4句话。 Assign(input,’sum.in’);{建立输入文件的关联} Reset(input);{为读取操作打开文件} Assign(output,’sum.out’);{建立输出文件的关联} Rewrite(output);{为写入操作打开文件} …….(程序执行语句) close(input);{关闭输入文件} Close(output);{关闭输出文件}