PASCAL第9讲记录与文件操作.ppt

var
num:array[1..1000]ofinteger;
name:array[1..1000]ofstring;
sum:array[1..1000]ofinteger;type
node=record
x:integer;
y:integer;
end;
var
p:array[1..1000]ofnode;文件的概念文件的分类文本文件特征文本文件的定义文件类型的常用命令（2）rewrite
语法：rewrite(filevar)
功能：创建一个新的磁盘文件，并以写的方式打开该文件，初始化文件为空，文件指针指向开始位置。在使用此命令前需先用assign过程，给文件变量一个实在的文件名。
如：rewrite(fp2);这时将在磁盘上工作目录下新建一个空文件abc.out，并打开该开件。若以前工作目录下存在abc.out，则会将原来的文件清空，并将文件指针指向开始位置。（3）reset
语法：reset(filevar);
功能：打开一个已存在的文件，并将文件指针指向开始位置，表示可开始读入文件，但不能向文件写数据，同样filevar文件名必须存在。
如：reset(fp1);打开fp1所代表的文件abc.in，并将文件指针指向开始位置。如果工作目录下不存在abc.in，将会出现错误信息。(4)close
语法：close(filevar)
功能：关闭一个文件，无论是向磁盘写文件，还是从磁盘上读取文件的内容，当读、写完毕时都必须用close命令关闭已打开的文件，以保证文件的完整性和可靠性，否则将引起文件处理错误。
如：close(fp2);这时将关闭文件fp2，对于被读的文件，可以关闭也可以不关闭，但对于被写的文件，程序结束时，必须关闭，否则，所有写入的信息将不会被写入文件。（5）read或readln
语法：read(filevar,var1,var2,…,varm)
功能：从文件filevar中读出若干个数,赋给变量var1，…,varm，这里使用规则和read原来的使用方法相同，只不过在原来变量前加一个文件类型变量filevar而已。
如：read(fp1,a,b);这时将从abc.in文件读出两个量分别赋值给a和b两个变量。(6)write或writeln
语法：write(filevar,var1,var2,…,varm);
功能：向文件filevar中写入若干个数。这里使用规则和write原来的使用方法相同，只不过在原来变量前加一个文件类型变量filevar而已。
如：write(fp2,a,b);这时将向abc.out文件写入a和b两个变量的值。(7)eoln函数
语法：eoln(filevar);
功能：行结束函数，其中文件filevar一定为text类型，函数值为布尔型。当文件指针向回车换行符时，函数值为true（真），否则为false(假)。(8)eof函数（相当于seekeof()）
语法：eof(filevar)
功能：文件结束函数，其中文件filevar是文件类型变量，函数值是布尔值。当文件指针指向文件结束标志时，函数值为true(真)，否则为false(假)。它通常写作seekeof。该函数一般用以判断文件是否结束。文件类型输入输出一般用法例：读入两个整数，输出两个数的和。用文件类型输入输出。文件名为：abc.pas
测试数据：
输入文件：
abc.in
152908
输出文件：
abc.out
1060
程序1：
programabc;
var
fp1,fp2:text;
a,b,c:longint;
begin
assign(fp1,'abc.in');
reset(fp1);
assign(fp2,'abc.out');
rewrite(fp2);
read(fp1,a,b);
c:=a+b;
write(fp2,c);
close(fp1);
close(fp2);
end.例：读入长方形的长和宽，求它的周长和面积。用文件类型输入输出。文件名为：cfx.pas
保留两位小数，两个数字隔一空格。
测试数据：
输入文件cfx.in：
2.53.6
输出文件cfx.out：
12.209.00练习题