FREEPASCAL入门文件输入与输出

使用文件输入输出数据 任何程序都需要产生一些输出，有时也需要接受若干个输入。这些输入、输出实际上是可以用文件的方式来实现的，在Pascal 中可以用标准文件“inpu t”和“ou tpu t”来实现，它们分别对应标准的输入设备和标准输出设备（可省略不写），这也就是一些程序的首部如下书写的原因： program ex(input,output); „„ 对于大量数据的输入和输出都是用文件来实现的，因此，这就要求我们必须熟练掌握在程序中实现对文件的操作。 第1节 产生随机数文件 【问题描述】 编写一个程序，产生500 个1000 以内的随机正整数，存放在data.ou t 文件中，并同时统计从其中大于等于 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. 【相关知识】 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工作目录中，如果工作目录没...