《2022年高中信息技术 竞赛班第二阶段培训 第八课 文件的综合应用教案》由会员分享，可在线阅读，更多相关《2022年高中信息技术 竞赛班第二阶段培训 第八课 文件的综合应用教案（6页珍藏版）》请在金锄头文库上搜索。
1、2022年高中信息技术 竞赛班第二阶段培训 第八课 文件的综合应用教案在前面的编程中，我们常需要从键盘输入数据，在屏幕显示运算结果。当需要输入的数据量较大时，调试时就必须一次次输入大量的数据，相当麻烦而且容易出错；当输出的数据很多时，屏幕上一闪而过，来不及看清，而且对输出数据无法加以利用。Pascal提供了这样的功能：先把输入数据存到某个文件中（如txt文档），程序从文件中读入数据；程序的运算结果也可以输出到某个文件中。Pascal中有三种类型的文件：有类型文件、文本文件、无类型文件，我们主要用到文本类型的文件。8.1 定义路径使用文件时，必须说明输入输出文件和程序源文件的相对位置，因此，输入
2、输出文件最好跟程序的源文件处于同一个位置。例如要将源程序保存到D盘的“jz0401”目录中： 先在D盘建文件夹“jz0401”；在Pascal环境中，File菜点下的“Change dir”设置路径，在弹出的对话框中输入 D:jz0401。8.2 文件的建立输入文件必须自己建立，建立的方法有两种。方法一： 在指定位置新建文本文档，如上例中，到D盘jz0401目录中新建一文本文档，然后打开该文档，输入内容，最后将该文档改名。方法二：在Pascal中，用File菜单中的“new”新建一文件，输入内容后保存，注意保存时必须输入后缀名。输入文件的后缀名可以是txt，也可以是其它自定义的类型，如“in”
3、、“dat”等，但无论其后缀名如何写，都是可以用记事本打开（直接双击该文件后在打开方式中选择记事本），也可以在Pascal环境中用File菜单下的open（F3）打开。输入文件的内容按程序中读入变量的顺序逐一输入，即以前在键盘输入时如何输入，在文件中也如何输入，该回车换行时也要回车换行。例如在程序中：readln (a,b); a、b为实型变量readln (c); c为字符型变量for i:=1 to 5 do read(Si); S数组为整型3.54 7.1h6 22 89 1 8则输入文件中的内容可以为： 8.3 文件的使用使用文件读入数据或输出数据时，源程序必须按如下步骤使用文件：1文
4、件变量的说明： var f ：text ；2文件变量与实际文件的连接： assign（f ， 文件名.后缀名 ）；3打开文件，做好读或写准备：只读Reset（f）； 打开文件并作好处理准备，指针指向的第0号元素，f 必须是一个已存在的文件。 * reset 打开的文件只能读写Rewrite（f）； 建立并打开一个新的文件（该文件名由assign赋给f ），同时作好处理准备，把文件指针指向文件的开头，即第0号元素。以前已存在的同名文件将被覆盖。 追加Append（f）； 打开一个已存在的文件并把指针指向文件尾部，用于向文件尾部添加数据。4从文件中读出数据，或将数据写入文件 读Read（f ，V1
5、 ，V2 ，V3 ）；/ Readln（f ，V1 ，V2 ，V3 ）； 从文件中读出数据，依次赋给变量V1 ，V2 ，V3 Readln（f）； 文件指针移到下一行开头 写Write（f ，V1 ，V2 ，V3 ）；/ writeln（f ，V1 ，V2 ，V3 ）； 把变量V1 ，V2 ，V3 的值依次写到文件上Writeln（f）； 把一个行结束符写到文件中，并转入下一行5Close（f）； 关闭文件，注意：凡是进行文件操作后（无论读或写），都必须关闭文件，否则可能丢失文件！【例1】从文件fe01.in中读出两个正整数n和m，打印1n的sin值到文件fe01.out，每行m个数值。n36
6、0，m20program jszx8_1; var n,m,i,j:integer; f1,f2:text; f1、f2为文件变量begin assign (f1, fe01.in); 将文件变量f1与实际文件fe01.in联系起来 reset (f1); 以只读方式打开文件f1read (f1,n,m); 从文件f1中读出n和mclose(f1); 关闭文件f1 assign (f2, fe01.out);rewrite (f2); 以写方式打开文件f2，若f2未存在，则生成并打开f2 j:=0;for i:=1 to n do begin write(f2,sin(i); j:=j+1;
7、if j mod m=0 then writeln(f2); end; close(f2);end.输出文件系统会自动生成，如果该路径下已有同名文件，则该同名文件会被覆盖。【例2】编写一个加密程序，先从键盘读入源文件名和目的文件名（两个字符串），然后从源文件读入若干段文字（只包含小写字母和空格），将其加密并输出到目的文件中。加密规则如下：将a变为z，b变为y，y变为b，z变为a；空格不变。program jszx8_2;var s1,s2:string; cc:char; f1,f2:text; begin readln(s1); readln(s2); 读入源文件名和目的文件名assign
8、(f1,s1); assign (f2,s2); reset (f1); 以只读方式打开文件f1 rewrite (f2); 以写方式打开文件f2repeat read(f1,cc); if cc= then write(f2, )else write(f2,chr(122-(ord(cc)-97); z对应的ASCII码为122，a对应97；详见ASCII码表 if eoln(f1)=true then 判断是否读到行末begin readln(f1);writeln(f2); end; until eof(f1)=true; 判断是否已读到文件末尾 close(f1); close(f2)
9、;end.8.2 其它相关函数 Seek（f）； 把文件指针移到文件的第n个元素，n是整数或实数表达式。注意，文件的第一个元素位置为0 。可用语句Seek（f ，filesize（f）；把文件指针移到文件末尾。Filesize是一个函数，自变量是文件名，其功能是回送文件中元素的个数。因为元素是从0开始编号，所以回送的数字要比最后一个元素的编号大1。 Erase（f）； 删除文件，必须先执行Close后才能生效。 Rename（f ，文件名）； 将文件改名 Eof（f）； 这是一个布尔函数，用于判断文件结束否，当文件指针指到文件尾部，则其值为true，否则为false ，（ CtrlZ字符是文本
10、文件尾部标记）。 例： repeat readln (f1,s1,s2,s3); until eof(f1); Eoln（f）； 判断行结束的布尔函数，当文件指针指向行结束符时返回true，否则返回false。 例： repeat read (f2,ci); i:=i+1; until eoln(f2); Filepos（f）； 整数函数，返回文件指针当前位置，文件的第一个元素位置为零。 Filesize（f）； 整数函数，返回文件的大小即元素个数，若为0则文件为空。 Flush（f）； 刷新文件的输出缓冲区，以保证把缓冲区的内容写到文件。练 习1为例2编写一个解密程序：先从键盘读入源文件名和目的文件名（两个字符串），然后从源文件读入若干段密文，将其解密后输出到目的文件中。解密规则如下：将a变为z，b变为y，y变为b，z变为a；空格不变。2金中的校园网中出现一种新计算机病毒，这种病毒高深莫测，所有查毒软件都无能为力。经jzoi小组研究，发现被这种病毒感染的文件的第三行为一串字符“ I am a lovely worm. ”，现需要对若干个文件进行查毒，请你帮忙编写这个查毒程序。这需检查的文件的文件名已事先存入一个文件 fname.txt，每行一个文件；查毒的结果请存入fresult.out，每行对应fname.txt中的文件，若该文件已被感染，则输出worm!，否则输出ok。
