PASCAL第7章--文件操作.pptVIP

第三节 文件操作 在程序设计中，常常需要从键盘输入大量数据，操作相当麻烦、也很容易出错；同时，在程序运行后也往往会产生大量的输出数据（结果），这给验证结果的正确性和测试程序的对错也带来了很大的麻烦。能不能有一种方法，让程序自动从某个地方读取数据运行，再将程序的运行结果保存到指定的地方呢？当然可以，这就是Pascal中的“文件”类型。 　　文件在使用时必须在程序内部以一定的语句与实际文件联系起来，建立一一对应的关系，用内部文件的逻辑名对实际文件进行操作。 　　使用文件大致有以下几个步骤； 　　（１）在使用文件前，必须对文件类型和变量进行说明； 　　（２）建立内部文件(程序中的文件)与外部文件(磁盘上的实际文件)的联系； 　　（３）打开文件，为文件读写作准备； 　　（４）对文件进行读、写操作； 　　（５）在使用完文件后，一定要记住关闭文件，确保文件的完整性和可靠性，否则会引起文件处理错误。切记切记！！！ 　　Free Pascal将文件分为三类：文本文件（顺序）、有类型文件（顺序或随机）和无类型文件（顺序或随机）。下面只对竞赛中用到的文本文件及其操作进行介绍。 　 文本文件又称为正文文件或行文文件，可供人们直接阅读，是人机通信的基本数据形式之一。文本文件可用文字编辑程序（如记事本、word等）直接建立、阅读和编辑， 也可以由Pascal程序在运行过程中建立。 文本文件的定义： 　　文本文件的类型为TEXT，它是由ASCII字符组成的，是Pascal提供的标准文件之一。标准文件 TEXT已由Pascal说明如下： 　 　type text=file of char; 　　因此，TEXT同标准类型Integer、real、char等一样可以直接用于变量说明之中，无需再由用户说明。 例如： var f1，f2：text； 　　这里定义了两个文本文件变量F1和F2。 写入文本文件 　文本文件内容写入操作步骤为： 　　①定义文本文件变量； 　　②把一外部文件名赋于文本文件变量，使该文本文件与一相应外部文件相关联； 　　 命令格式：assign(f，name) 　　 f为定义的文本文件变量 　　 name为实际文件文件名 　　 如：assign(f1,file1.in’) 　　 或：assign(f1, pas/file1.out’) 　　 这样在程序中对文本文件变量F1的操作，也就是对外部实际文件 File1.in’或 File1.out’的操作。上例中文件 File1.in’是存贮在当前目录中，而文件File1.out’则是存贮在PAS子目录中。 　　③打开文本文件，准备写； 　　 命令格式１：Rewrite(f) 　　 功能：创建并打开新文件准备写，若已有同名文件则删除再创建 　　 命令格式２：Append(f) 　　 功能：打开已存在的文件并追加(即文件中的原有信息不丢失),这在竞赛中不会用到。 　　④对文件进行写操作； 　　 命令格式：Write(f，项目名) 　　 或：Writeln(f，项目名) 　　 功能：将项目内容写入文件f中，Write和Writeln的用法与写在屏幕上一样。 　　⑤文件操作完毕后，关闭文件。 　　 命令格式：Close(f) 例7.9 从键盘上读入如下的数据，把它们写入名为b.txt的文件中。 3 4 　　　29 30 50 60 　　　80 90 70 75 　　　60 50 70 45 Program ex7_9; var i,j,n,m,x : integer; f : text; begin readln(n,m); assign(f,‘b.txt’); rewrite(f); //准备写操作 writeln(f,n:4,m:4); for i : =1 to n do //共n行内容 begin for j : =1 to m do //每行有m个值 begin read(x); write(f,x:4); end; readln; //输入时屏幕换行 writeln(f);