Pascal文件的操作.ppt

文件的操作 2020 1 7 成功学校程序设计兴趣小组B班 2 文本文件的概念 在Lazarus中 文件被定义为同一种类型的元素组成的顺序集合 文件具有3个特点 1 顺序性2 永久性3 容量大文件使用的重要性在我们信息学竞赛的复赛中所有的数据都是在文本文件中读取的 而所有的输出结果都要输出到文本文件中 所以毫不夸张的说在信息学竞赛的复赛中如果你不懂得熟练的使用文件那么你一分也得不到 在通常的使用中我们只使用文本文件这种类型 TEXT 2020 1 7 成功学校程序设计兴趣小组B班 3 文本文件 TEXT 的概念 文本文件的内容有ASCII字符集中的字符组成 因此文本文件也称ASCII码文件 它可以用DOS中的type命令列出内容 文本文件具体是由一系列行组成 每一行可以包括0个或多个字符型成分 并以也行结束符结尾 文本文件读写上只能按次序顺序读写 2020 1 7 成功学校程序设计兴趣小组B班 4 适用文本文件的函数和过程除了用于类型文件操作的过程和函数外主要还有 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 2020 1 7 成功学校程序设计兴趣小组B班 5 使用文件的步骤 说明文件类型 定义文件标识符 建立内部文件与外部文件的联系 打开文件 对文件进行操作 关闭文件 2020 1 7 成功学校程序设计兴趣小组B班 6 文本文件的读 写过程 对文本文件的写操作步骤 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 2020 1 7 成功学校程序设计兴趣小组B班 7 题目 随机产生30个随机整数存放于文本文件zhoufei txt中 programzhoufei constn 30 varra text 定义RA为文本文件类型 i integer beginrandomize assign ra zhoufei txt 将外部文件名赋予文件变量 rewrite ra 建立并打开这个文件 fori 1tondowriteln ra random 100 输出结果到文件中 close ra 关闭文件 end 2020 1 7 成功学校程序设计兴趣小组B班 8 习题一 陶陶摘苹果 apple pas 问题描述 陶陶家的院子里有一棵苹果树 每到秋天树上就会结出10个苹果 苹果成熟的时候 陶陶就会跑去摘苹果 陶陶有个30厘米高的板凳 当她不能直接用手摘到苹果的时候 就会踩到板凳上再试试 现在已知10个苹果到地面的高度 以及陶陶把手伸直的时候能够达到的最大高度 请帮陶陶算一下她能够摘到的苹果的数目 假设她碰到苹果 苹果就会掉下来 2020 1 7 成功学校程序设计兴趣小组B班 9 输入 输出要求 输入文件 输入文件apple in包括两行数据 第一行包含10个100到200之间 包括100和200 的整数 以厘米为单位 分别表示10个苹果到地面的高度 两个相邻的整数之间用一个空格隔开 第二行只包括一个100到120之间 包含100和120 的整数 以厘米为单位 表示陶陶把手伸直的时候能够达到的最大高度 输出文件 输出文件apple out包括一行 这一行只包含一个整数 表示陶陶能够摘到的苹果的数目 样例输入 100200150140129134167198200111110 样例输出 5 2020 1 7 成功学校程序设计兴趣小组B班 10 Programapple Varf1 f2 text BeginAssign f1 apple in Assign f2 apple out Reset f1 Rewrite f2 Close f1 Close f2 End 2020 1 7 成功学校程序设计兴趣小组B班 11 2 明明的随机 random pas c cpp 问题描述 明明想在学校中请一些同学一起做一项问卷调查 为了实验的客观性 他先用计算机生成了N个1到1000之间的随机整数 N 100 对于其中重复的数字 只保留一个 把其余相同的数去掉 不同的数对应着不同的学生的学号 然后再把这些数从小到大排序 按照排好的顺序去找同学做调查 请你协助明明完成 去重 与 排序 的工作 2020 1 7 成功学校程序设计兴趣小组B班 12 输入文件 输入文件random in有2行 第1行为1个正整数 表示所生成的随机数的个数 N第2行有N个用空格隔开的正整数 为所产生的随机数 输出文件 输出文件random out也是2行 第1行为1个正整数M 表示不相同的随机数的个数 第2行为M个用空格隔开的正整数 为从小到大排好序的不相同的随机数 输入样例 102040326740208930040015 输出样例 8152032406789300400 2020 1 7 成功学校程序设计兴趣小组B班 13 3 奖学金 scholar pas c cpp 问题描述 某小学最近得到了一笔赞助 打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金 期末 每个学生都有3门课的成绩 语文 数学 英语 先按总分从高到低排序 如果两个同学总分相同 再按语文成绩从高到低排序 如果两个同学总分和语文成绩都相同 那么规定学号小的同学排在前面 这样 每个学生的排序是唯一确定的 任务 先根据输入的3门课的成绩计算总分 然后按上述规则排序 最后按排名顺序输出前5名学生的学号和总分 注意 在前5名同学中 每个人的奖学金都不相同 因此 你必须严格按上述规则排序 例如 在某个正确答案中 如果前两行的输出数据 每行输出两个数 学号 总分 是 72795279这两行数据的含义是 总分最高的两个同学的学号依次是7号 5号 这两名同学的总分都是279 总分等于输入的语文 数学 英语三科成绩之和 但学号为7的学生语文成绩更高一些 如果你的前两名的输出数据是 52797279则按输出错误处理 不能得分 2020 1 7 成功学校程序设计兴趣小组B班 14 输入 输入文件scholar in包含n 1行 第1行为一个正整数n 表示该校参加评选的学生人数 第2到n 1行 每行有3个用空格隔开的数字 每个数字都在0到100之间 第j行的3个数字依次表示学号为j 1的学生的语文 数学 英语的成绩 每个学生的学号按照输入顺序编号为1 n 恰好是输入数据的行号减1 所给的数据都是正确的 不必检验 输出 输出文件scholar out共有5行 每行是两个用空格隔开的正整数 依次表示前5名学生的学号和总分 2020 1 7 成功学校程序设计兴趣小组B班 15 输入输出样例1 scholar inscholar out690678087669178899188997767896478899862654264325822441237 限制 50 的数据满足 各学生的总成绩各不相同100 的数据满足 6 n 300 输入输出样例2 scholar inscholar out880898988987890678087669178899188997767896478899882652264626412585258 2020 1 7 成功学校程序设计兴趣小组B班 16 根据下列程序代码写程序的功能 programtest5 1 varf g te