pascal文件读写操作.pptVIP

文件的操作 在我前面的已学的程序中， 输入数据是用键盘输入的 输出数据是显示在屏幕上的. 有没有其它的方式呢???? 有------文件 我们所编写的程序可以从文件中读入要处理的数据. 同样也可以将结果输出到文件中. 设从文件sum.in中读入数据， 将结果放在sum.out文件中 在begin后加4句话。 Assign(input,’sum.in’);{建立输入文件的关联} Reset(input);{为读取操作打开文件} Assign(output,’sum.out’);{建立输出文件的关联} Rewrite(output);{为写入操作打开文件} …….(程序执行语句) close(input);{关闭输入文件} Close(output);{关闭输出文件} 如何实现对文件的操作呢??? 例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); 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句话就认为是注释了，不运行了/ 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 特别推荐 在竞赛中先不用文件输入输出。编好程序后，再加6句话。 当然加6句话时，要能通过编译。 更稳妥的办法，加6句话，还要用输入输出文件进行样例测试。