FREEPASCAL入门文件输入与输出剖析.doc

使用文件输入输出数据 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); {将随机数写到文件里}