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

记 录 记录 type student=record //记录 num : integer; //数据项1 name : string; //数据项2 sum : integer; //数据项3 end; Var a:array[1..50] of student; p:student; i , j,t :integer; Begin for I:=1 to 50 do begin readln(a[i].num); readln(a[i].name); readln(a[i].summ) end; for I:=1 to 49 do for j:=I+1 to 50 do if a[I].suma[j].sum then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; For I:=1 to 50 do writeln(a[i].num, ‘ ‘,a[i].name, ‘ ‘ ,a[i].sum); end. 文件的概念 文件是指由一系列相同类型数据组成的一个数据序列，是一种由用户定义的构造型的数据类型。作为系统提供的一种手段，是计算机与各类设备进行通讯的媒介，从而用以实现信息在程序内外的交换。对于文件我们实际上早已在使用，前面出现的Pascal程序中的输入、输出就是应用文件的方法来实现的，这些文件的名字是Pascal的标准文件“INPUT”和“OUTPUT”，它们分别对应于标准输入设备和标准输出设备，在Free Pascal中可省略不写。 文件的分类 在Pascal的数据文件中，按文件结构形式划分，以ASCII代码形式（字符形式）存放的称为TEXT类型文件，也称为文本文件，这是我们经常要用到的文件类型。还有一种以二进制代码形式存放的文件，称为File类型文件，它又称为类型文件。我们平时用到的是第一种文件类型：文本文件。 文本文件特征 （1）当程序开始把数据写（输出）到文件中去时，总是从文件的起始位置开始。也就是不能从文件的中间位置开始存放数据。 （2）输出的数据是一个接一个地存放在文件中的。 （3）当程序从文件中读（输入）数据到内存中时，总是从文件的起始位置开始。也就是不可能从文件的中间的某个位置开始读入数据。 （4）读数据时，必须按存入文件时的顺序一个接一个的读入内存中去。 （5）对同一个文件的读写操作不能交叉进行。 文本文件的定义 文本文件不是简单地由某类型的元素序列所组成，它的基本元素是字符，由它们构成行，若干行组成一份原文。由于各行的长度可以不同，所以文本文件只能顺序地处理。 文本文件的定义如下： var 　 fp1,fp2:text; 文件类型的常用命令 (1) assign 语法：assign(filevar,filename); Filename是合法的文件名的字符串表达式，这个名字与文件变量filevar关联，在程序中对文件变量的操作即为对磁盘文件Filename的操作。 如：assign(fp1,’abc.in’); assign(fp2,’abc.out’); 这时fp1,fp2是文件类型变量，abc.in、abc.out是实际文件名字，这样文件变量fp1与abc.in、fp2与abc.out、就建立起联系了，在程序中fp1就可以代表abc.in文件、fp2就可以代表abc.out文件使用了。 （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) 功能：关闭一个文件，无论是向磁盘写文件，还是从磁盘上读取文件的内容，当读、写完毕时都必