Pascal文件的操作.pptx

2024/8/23 周五成功学校程序设计兴趣小组 B班1文本文件的概念文本文件的概念文本文件的概念文本文件的概念 l在 Lazarus 中,文件文件被定义为同一种类型的元素组成的顺序集合.l文件具有3个特点:1、顺序性 2、永久性 3、容量大l文件使用的重要性在我们信息学竞赛的复赛中所有的数据都是在文本在我们信息学竞赛的复赛中所有的数据都是在文本文件中读取的，而所有的输出结果都要输出到文本文件中读取的，而所有的输出结果都要输出到文本文件中，所以毫不夸张的说在信息学竞赛的复赛中文件中，所以毫不夸张的说在信息学竞赛的复赛中如果你不懂得熟练的使用文件那么你一分也得不到。如果你不懂得熟练的使用文件那么你一分也得不到。l在通常的使用中我们只使用文本文件这种类型在通常的使用中我们只使用文本文件这种类型（TEXT）；）；2024/8/23 周五成功学校程序设计兴趣小组 B班2文本文件文本文件（TEXT）的概念）的概念 文本文件的内容有ASCII字符集中的字符组成，因此文本文件也称ASCII码文件，它可以用DOS中的type命令列出内容。文本文件具体是由一系列行组成，每一行可以包括0个或多个字符型成分，并以也行结束符结尾。文本文件读写上只能按次序顺序读写。2024/8/23 周五成功学校程序设计兴趣小组 B班3适用文本文件的函数和过程除了用于类型文件操作的过程和函数外主要还有：o（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。2024/8/23 周五成功学校程序设计兴趣小组 B班4使用文件的步骤使用文件的步骤（）说明文件类型，定义文件标识符（）建立内部文件与外部文件的联系；（）打开文件；（）对文件进行操作；（）关闭文件。2024/8/23 周五成功学校程序设计兴趣小组 B班5文本文件的读、写过程文本文件的读、写过程对文本文件的写操作步骤：对文本文件的写操作步骤：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);2024/8/23 周五成功学校程序设计兴趣小组 B班6题目：随机产生题目：随机产生3030个随机整数存放于文本文件个随机整数存放于文本文件zhoufei.txt zhoufei.txt 中中program zhoufei;const n=30;var ra:text;定义RA为文本文件类型 i:integer;beginrandomize;assign(ra,zhoufei,txt);将外部文件名赋予文件变量rewrite(ra);建立并打开这个文件for i:=1 to n do writeln(ra,random(100);输出结果到文件中 close(ra)；关闭文件end.2024/8/23 周五成功学校程序设计兴趣小组 B班7习题一习题一:陶陶摘苹果陶陶摘苹果(apple.pas)【问题描述】陶陶家的院子里有一棵苹果树，每到秋天树陶陶家的院子里有一棵苹果树，每到秋天树上就会结出上就会结出10个苹果。苹果成熟的时候，陶个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个陶就会跑去摘苹果。陶陶有个30厘米高的板厘米高的板凳，当她不能直接用手摘到苹果的时候，就会凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。踩到板凳上再试试。现在已知现在已知10个苹果到地面的高度，以及陶陶个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。陶算一下她能够摘到的苹果的数目。假设她碰假设她碰到苹果，苹果就会掉下来到苹果，苹果就会掉下来。2024/8/23 周五成功学校程序设计兴趣小组 B班8输入、输出要求【输入文件】输入文件apple.in包括两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。【输出文件】输出文件apple.out包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。【样例输入】100 200 150 140 129 134 167 198 200 111110【样例输出】52024/8/23 周五成功学校程序设计兴趣小组 B班9Program apple;Var f1,f2:text;BeginAssign(f1,apple.in);Assign(f2,apple.out);Reset(f1);Rewrite(f2);*Close(f1);Close(f2);End.2024/8/23 周五成功学校程序设计兴趣小组 B班102.明明的随机明明的随机（random.pas/c/cpp）【问题描述】明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。2024/8/23 周五成功学校程序设计兴趣小组 B班11【输入文件】输入文件random.in 有2行，第1行为1个正整数，表示所生成的随机数的个数：N第2行有N个用空格隔开的正整数，为所产生的随机数。【输出文件】输出文件random.out 也是2行，第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小到大排好序的不相同的随机数。【输入样例10 20 40 32 67 40 20 89 300 400 15【输出样例】8 15 20 32 40 67 89 300 4002024/8/23 周五成功学校程序设计兴趣小组 B班123奖学金奖学金(scholar.pas/c/cpp)【问题描述问题描述】某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5 5名学名学生发奖学金。期末，每个学生都有生发奖学金。期末，每个学生都有3 3门课的成绩：语文、数学、英语。先门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。面，这样，每个学生的排序是唯一确定的。任务：先根据输入的任务：先根据输入的3 3门课的成绩计算总分，然后按上述规则排序，最后按排门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前名顺序输出前5 5名学生的学号和总分。注意，在前名学生的学号和总分。注意，在前5 5名同学中，每个人的奖名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据（每行输出两个数：学号、总分）是：案中，如果前两行的输出数据（每行输出两个数：学号、总分）是：7 2797 2795 2795 279这两行数据的含义是：总分最高的两个同学的学号依次是这两行数据的含义是：总分最高的两个同学的学号依次是7 7号、号、5 5号。这两名同号。这两名同学的总分都是学的总分都是279279（总分等于输入的语文、数学、英语三科成绩之和），（总分等于输入的语文、数学、英语三科成绩之和），但学号为但学号为7 7的学生语文成绩更高一些。如果你的前两名的输出数据是：的学生语文成绩更高一些如果你的前两名的输出数据是：5 2795 2797 2797 279则按输出错误处理，不能得分。则按输出错误处理，不能得分。2024/8/23 周五成功学校程序设计兴趣小组 B班13【输入】输入文件scholar.in包含n+1行：第1行为一个正整数n，表示该校参加评选的学生人数。第2到n+1行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1n（恰好是输入数据的行号减1）。所给的数据都是正确的，不必检验。【输出】输出文件scholar.out共有5行，每行是两个用空格隔开的正整数,依次表示前5名学生的学号和总分。2024/8/23 周五成功学校程序设计兴趣小组 B班14【输入输出样例1】scholar.inscholar.out 6 906780 876691 788991 889977 678964 788998 6265 4264 3258 2244 1237【限制】50%的数据满足:各学生的总成绩各不相同100%的数据满足:6=n=300【输入输出样例2】scholar.inscholar.out 8 808989 889878 906780 876691 788991 889977 678964 788998 8265 2264 6264 1258 5258 2024/8/23 周五成功学校程序设计兴趣小组 B班15根据下列程序代码写程序的功能。o program test5_1;var f,g:text;ch:char;begin Assign(f,ex5_1.txt);Assign(g,exout5_1.txt);Reset(f);rewrite(g);While not eof(f)do begin while not eoln do begin read(ch);write(ch);End;readln(f);writeln(g);End;Close(f);Close(g);End.