PASCAL第7章--文件操作.ppt

第三节文件操作;文本文件的定义：;写入文本文件;例7.9从键盘上读入如下的数据，把它们写入名为b.txt的文件中。

34

29305060

80907075

60507045

Programex7_9;

vari,j,n,m,x:integer;f:text;

begin

readln(n,m);

assign(f,‘b.txt’);rewrite(f); //准备写操作

writeln(f,n:4,m:4);

fori:=1tondo//共n行内容

begin

forj:=1tomdo//每行有m个值

begin

read(x);write(f,x:4);

end;

readln; //输入时屏幕换行

writeln(f); //把回车符写入输出文件中

end;

close(f);

end.;读取文本文件;例7.10读出例7.9建立的文本文件，并输出在屏幕。

Programex7_10;

vari,j,n,m,x:integer;f:text;

begin

assign(f,b.txt);reset(f); //关联并准备读操作

readln(f,n,m);

writeln(n:4,m:4);

fori:=1tondo//共有n行内容

begin

forj:=1tomdo//每行有m个值

begin

read(f,x);

write(x:4);

end;

writeln;

end;

close(f);

readln;//起暂停作用

end.

由于文本文件是以ASCII码的方式存储，故查看文本文件的内容是极为方便。;例7.11建立由50个随机整数组成、文件名为f1.dat的TEXT文件

①定义文件变量f为文本文件类型〔TEXT〕；

②指派f与f1.dat对应；

③准备写文件；

④产生50个随机整数，写入文件中；

⑤关闭文件。;ProgramExam711;

const

n=50;

var

s，i:integer;{s，i为整型}

f:text;{f为text类型}

begin

assign(f,’f1.dat’);{用文件变量f与a驱磁盘上f1.dat文件对应}

rewrite(f);{建立与f对应的实际文件名}

randomize;{初始化随机函数}

forI:=1tondo

begin

s:=random(99)+1;{产生一个100以内的随机整数赋给s}

write(f,s:6);{将s写入文件中}

ifImod5=0thenwriteln(f){每行写5个数据}

end;

close(f){关闭文件}

end.;文本文件的特点;例7.12从文件中读入两个加数，把它们的和写入输出文件