nbsp; { 写一个行结束符到文件中 }end;close(f); writeln; reset(f); { 以读状态再次打开该文件 }while not eof(f) do { 读取数据,直到文件结束符为止 }beginwhile not eoln(f) do { 读取一行数据 }begin read(f,c); write(c:3) end;readln(f); { 读到回车换行符换一行继续读 }writeln { 屏幕换行 } end;close(f)end. 2、类型文件的操作步骤:类型文件只能存放一种类型的数据,而文本文件可以包含多种数据类型的数据项。 ①类型文件的定义(合并定义)var f1,f2:file of integer; ②用assign过程外部文件与文件变量(内部文件)联系;③调用rewrite或reset过程将文件打开;④用read命令进行读操作;用 write命令进行写操作;file 类型文件没有行的概念,类型文件中不允许使用readln 和writeln过程;也不能使用eof函数。filepos(filename)函数返回指定文件的当前指针; filesize(filename)函数返回指定文件的当前长度(文件元素个数)。file文件是随机文件,seek(filename,位置值/算术表达式)过程提供指针定位。⑤文件操作完毕,用close过程关闭所有文件。 练习:1、产生20个100以内的随机正整数,存放在文本文件file1中,再从文件中读取所有数据进行排序,并将排好序的数存放在文本文件file2中,最后将文件file2中的数据在屏幕输出。