- 1、本文档共15页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
FREEPASCAL入门文件输入与输出讲解
使用文件输入输出数据
Pascal中可以用标准文件“input”和“output”来实现,它们分别对应标准的输入设备和标准输出设备(可省略不写),这也就是一些程序的首部如下书写的原因:
program ex(input,output);
……
第1节 产生随机数文件
【问题描述】
500个1000以内的随机正整数,存放在data.out文件中,并同时统计从其中大于等于500的数据个数。
【问题分析】
【程序实现】
Program p4_1(input,output);
const n=500; {n为控制随机数个数的变量}
var
i,a,s:integer; {i为循环变量、a为暂时存放随机数的变量、s为=500的数的个数}
f:text; {定义f为文本文件变量}
begin
assign(f,data.out); {关联文件变量f到一个外部文件data.out}
rewrite(f); {以新建写文件的方式打开文件}
randomize; {设置随机种子}
s:=0; {统计变量清零}
for i:=1 to n do
begin
a:=random(1001); {产生随机数}
write(f,a:5); {将随机数写到文件里}
if i mod 10 =0 then writeln(f); {每写10个数换一行}
if a=500 then s:=s+1; {统计=500的数的个数}
end;
close(f); {关闭文件}
write(=500 :, s); {在屏幕上打印=500的数的个数s }
end.
【相关知识】
1pascal程序中写文件的5个步骤
在Pascal程序重创建文件并写入数据要经历5个步骤,即:定义文件变量、关联、写准备、写数据、关闭文件变量。
① 定义:在变量说明部分定义文件变量,变量名自己取,类型定义为text型。
② 关联:将一外部磁盘文件名赋于文本文件变量,使该文本文件与一相应外部磁盘文件相关联。命令格式为:
assign(f,name)
其中f为定义的文本文件变量,name为实际磁盘上文件的文件名
如:assign(file1, fileout.dat )
或:assign(f1,e:\aq2006\a1.out )
磁盘文件如包含路径,如e:\aq2006\a1.out ,则表示将文件存放到e:\aq2006文件夹中,文件名为a1.out,如果不加路径,则存放在pascal工作目录中,如果工作目录没有更改,Free Pascal默认的工作目录一般为“C:\”。
经过关联后,在程序中,如果对文本文件变量file1或f1的操作,也就是对外部实际磁盘文件fileout.dat或e:\aq2006\a1.out的操作。
③ 写准备:如果要向文件中写入数据,则在写入数据之前应先以写入方式打开。具体的写打开方式有两种:
命令格式1:rewrite(f)
功能:创建并打开新文件准备写,若已有同名文件则删除再创建
命令格式2:append(f)
功能:打开已存在的文件并追加
④ 写数据:写入数据时,就使用输出语句write和writeln语句,写入的效果就如同将屏幕上的数据原样写入文件中。只是在使用这两条语句时,必须先使用文件变量指明写入对象。如:
Write(f,s) 或 writeln(file1,a(5),a(6))
前者含义为向文件f中写入变量s的值,后者的含义为向文件file1写入数组变量a(5)、a(6)的值。注意,这些数据实际上是写入这些文件变量所关联的磁盘文件中。
⑤ 关闭:文件写完后,必须关闭,关闭的格式为:Close(f),即关闭文件变量f。
2.查看文本文件
由于文本文件是以ASCII码的方式存储,故查看文本文件的内容是极为方便,在DOS状态可使用 DOS中TYPE等命令进行查看,在Pascal中可以象取程序一样取出文件进行查看。而在windows操作系统中,最方便的方法是按下键盘上空格键两边的windows键,切换到桌面,再找到刚才程序生成的数据文件,用记事本查看该数据文件的内容,如图1.1图4.1所示的就是用记事本打开示例数据文件的效果。
图4.1?????? 用记事本打开数据
3.文本文件的特点
① 行结构
文本文件由若干行组成,行与行之间用行结束标记隔开,文件末尾有一个文件结束标记。由于各行长度可能不同,所以无法计算出给定行在文本文件中的确定位置,从而只能顺序地处理文本文件,而且不能对一文本文件同时进行输入和输出。
② 自动转换功能
文本文件的每
您可能关注的文档
- 各类工种的安全生产明白卡要点.doc
- FMEA管理规定文件讲解.doc
- 各类牛B电影要点.doc
- FMEA--观念理解讲解.ppt
- FM同步广播网分术(下)-0621讲解.doc
- FM无线话筒设计讲解.ppt
- FMEA潜在失效模式与后果分析讲解.ppt
- 各类报告审查要点要点.ppt
- FO211铝制容器上管架尺寸选用规范-2013-N讲解.doc
- 各级护士规范化培训要点.doc
- 2024至2030年中国精密裁板合金主锯片行业投资前景及策略咨询研究报告.docx
- 2024年03月故宫博物院招考聘用笔试历年典型考题与考点剖析含答案详解.docx
- 2024年03月甘肃长春中医药大学附属医院定西医院(定西市中医医院)引进人才笔试历年典型考题与考点剖.docx
- 2024年03月浙江宁波市鄞州区公立学校招考聘用编外员工笔试历年典型考题与考点剖析含答案详解.docx
- 2024年03月长江海事局后勤管理中心2024年度公开招考10名工作人员笔试历年典型考题与考点剖析含.docx
- 2024至2030年太阳能双黄闪灯项目投资价值分析报告.docx
- 2024至2030年探人雷达项目投资价值分析报告.docx
- 2024年中国汽车计量器市场调查研究报告.docx
- 2024年中国拎袋市场调查研究报告.docx
- 2024至2030年中国超薄脚踏网行业投资前景及策略咨询研究报告.docx
最近下载
- 智慧医院-医务管理系统设计方案.pdf VIP
- 医务管理系统建设方案.doc VIP
- 石油 - GB-T 7631.10-2013 润滑剂、工业用油和有关产品(L类)的分类 第10部分:T组(涡轮机).pdf
- 2023年北京市中考英语试卷(附答案详解).docx VIP
- 《防止校园欺凌》ppt课件(图文).pptx
- 2024初中语文新部编版七年级上册全册核心素养教案.pdf VIP
- 数字电子技术3套考试题目(含答案) .pdf VIP
- 卡特彼勒C11 和C13 ON-HIGHWAY 发动机装配手册 英文.pdf VIP
- 设备管理思路及方案.docx
- 年产3万吨塑料制品、2万吨再生塑料颗粒项目环境影响报告表.doc
文档评论(0)