Pascal文件的操作课件.ppt

成功学校程序设计兴趣小组 B班 文件的操作 文本文件的概念 在 Lazarus 中,文件被定义为同一种类型的元素组成的顺序集合. 文件具有3个特点: 1、顺序性 2、永久性 3、容量大 文件使用的重要性在我们信息学竞赛的复赛中所有的数据都是在文本文件中读取的，而所有的输出结果都要输出到文本文件中，所以毫不夸张的说在信息学竞赛的复赛中如果你不懂得熟练的使用文件那么你一分也得不到。 在通常的使用中我们只使用文本文件这种类型（TEXT）； 文本文件 （TEXT）的概念 文本文件的内容有ASCII字符集中的字符组成，因此文本文件也称ASCII码文件，它可以用DOS中的type命令列出内容。文本文件具体是由一系列行组成，每一行可以包括0个或多个字符型成分，并以也行结束符结尾。 　　文本文件读写上只能按次序顺序读写。 适用文本文件的函数和过程除了用于类型文件操作的过程和函数外主要还有： （1)readln过程形式：readln(f,var表);或readln(f）；功能：从磁盘文件f中，将数据依次读到var表表示的各变量中（其中readln(f)只读数据），并将文件指针移到行结束符后，就是下一行开头。（2）writeln过程　　形式：writeln(f,var表)或writeln(f);　　功能：将var表所表示的各个变量的值依次写到磁盘文件f上去（writeln(f)不写值），然后再写一个行结束符。（3）append过程　　形式：append(f);　　功能：打开一个已经存在的磁盘文件，其文件名必须和assign过程中的变量名f相对应，该文件只能写，此时文件指针指向文件尾。（4）eoln函数　　形式：eoln(f);　　功能：若文件指针指向行结束符或文件结束符，则返回true，否则返回false。 使用文件的步骤 （１）说明文件类型，定义文件标识符 （２）建立内部文件与外部文件的联系； （３）打开文件； （４）对文件进行操作； （５）关闭文件。 文本文件的读、写过程 　对文本文件的写操作步骤：　　　assign(f,str);　　　rewrite(f);　　或append(f);　　　write(f,var表);或writeln(f);　　　close(f);　　对文本文件的读操作步骤：　　　assign(f,str);　　　reset(f);　　 　　　readln(f,var表);或readln(f);　　　close(f);  题目：随机产生30个随机整数存放于文本文件zhoufei.txt 中 　　program zhoufei;　　　const n=30;　　　var ra:text;{定义RA为文本文件类型}　　　　　 i:integer;　　begin　　　randomize;　　　assign(ra,‘zhoufei,txt’);{将外部文件名赋予文件变量}　　　rewrite(ra);{建立并打开这个文件}　　　for i:=1 to n do writeln(ra,random(100));{输出结果到文件中}　　 　close(ra)；{关闭文件} 　　end. 习题一 :陶陶摘苹果(apple.pas) 【问题描述】 陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。 现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。 输入、输出要求 【输入文件】 输入文件apple.in包括两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。 【输出文件】 输出文件apple.out包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。 【样例输入】 100 200 150 140 129 134 167 198 200 111 110 【样例输出】 5 Program apple; Var f1,f2:text; Begin Assign(f1,’apple.in’); Assign(f2,’apple.out’); Reset(f1); Rewrite(f2); ***************** Cl