FREE_PASCAL入门-文件输入与输出.doc

使用文件输入输出数据
任何程序都需要产生一些输出，有时也需要接受若干个输入。这些输入、输出实际上是可以用文件的方式来实现的，在Pascal中可以用标准文件“input”和“output”来实现，它们分别对应标准的输入设备和标准输出设备（可省略不写），这也就是一些程序的首部如下书写的原因：
programex(input,output);
……
对于大量数据的输入和输出都是用文件来实现的，因此，这就要求我们必须熟练掌握在程序中实现对文件的操作。
第1节产生随机数文件
【问题描述】
编写一个程序，产生500个1000以内的随机正整数，存放在data.out文件中，并同时统计从其中大于等于500的数据个数。
【问题分析】
本题有两个问题需要解决，一要掌握随机数的生成原理，让计算机自动生成随机数；二是将计算机产生的随机数据存入文件中。
【程序实现】
Programp4_1(input,output);
constn=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; {统计变量清零}
fori:=1tondo
begin
a:=random(1001); {产生随机数}
write(f,a:5); {将随机数写到文件里}
ifimod10=0thenwriteln(f); {每写10个数换一行}
ifa>=500thens:=s+1; {统计>=500的数的个数}
end;
close(f); {关闭文件}
write('>=500:',s); {在屏幕上打印>=500的数的个数s}
end.
【相关知识】
1．pascal程序中写文件的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工作目录中，如果工作目录没有更改，FreePascal默认的工作目录一般为“C:\”。
经过关联后，在程序中，如果对文本文件变量file1或f1的操作，也就是对外部实际磁盘文件fileout.dat或e:\aq2006\a1.out的操作。
③写准备：如果要向文件中写入数据，则在写入数据之前应先以写入方式打开。具体的写打开方式有两种：
命令格式１：rewrite(f)
功能：创建并打开新文件准备写，若已有同名文件则删除再创建
命令格式２：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．文本文件的特点
①行结构
文本文件由若干行组成，行与行之间用