fortran程序设计.徐红波.第11章讲述.ppt

FORTRAN语言--FORTRAN 77结构化程序设计 讲师：徐红波 Email: x_h_b@ 第十一章 文件 FORTRAN程序可以通过文件操作语句，经过指定的外部设备把数据输出到外部介质上，或者从外部介质上输入数据。对文件的一系列操作（包括打开、关闭、定位、输入输出等）称为对文件的存取、访问。 FORTRAN数据文件由记录组成，FORTRAN中对文件的存取以记录为单位。输入时，从文件一次输入一个记录；输出时，一次把一个记录输出到文件中。 FORTRAN数据文件可以按存取的方式分成顺序存取文件和直接存取文件。顺序文件的特点是：对文件的存取操作必须从头到尾顺序进行。程序中要读（写）第n个记录时，必须已经对前n-1个记录进行过读（写）。而直接文件则可以在程序执行的过程中对任意一个指定的记录进行读（写）。 无论是顺序文件还是直接文件，数据在文件中可以用两种形式存放：字符形式（ASCII代码），二进制形式。前者称为有格式存放，后者称为无格式存放。 11.1 有格式顺序存取文件 READ (*, *) A READ (*, *) B C=A+B WRITE (*, *) ‘A=’, A WRITE (*, *) ‘B=’, B WRITE (*, *) ‘C=’, C END [例11.1]从预先准备好的数据文件中输入数据，并将输出数据写到文件中 OPEN(UNIT=1, FILE= ’F1.DAT’, STATUS=’OLD’, ACCESS=’SEQUENTIAL’, FORM=’FORMATTED’) READ (1, *) A READ (1, *) B C=A+B OPEN(UNIT=2, FILE=’F2.DAT’, STATUS=’NEW’, ACCESS=’SEQUENTIAL’, FORM=’FORMATTED’) WRITE (2, *) ‘A=’, A WRITE (2, *) ‘B=’, B WRITE (2, *) ‘C=’, C CLOSE(1) CLOSE(2) END [例11.2]把1至10以及它们的平方数、立方数以表格形式放到TAB.DAT文件中 OPEN(UNIT=2, FILE=’TAB.DAT’, STATUS=’NEW’, ACCESS=’SEQUENTIAL’, FORM=’FORMATTED’) DO 10 X=1, 10, 1 WRITE (2, *) X, X*X, X*X*X 10 CONTINUE REWIND(2) WRITE (*, *) ‘X X*X X*X*X’ 20 READ (2, *, END=30) A, B, C WRITE (*, *) A, B, C 30 GOTO 20 CLOSE(2) END 对顺序文件进行输入输出的基本规则： （1）当用READ语句去读入文件时，为了正确输入，READ语句中各输入项在类型上、在采用的格式说明上必须与输出语句的输出项按位置一一对应。 （2）当对顺序文件进行读入时，在OPEN或者REWIND语句之后总是从文件的第一个记录开始去输入。每执行一次READ语句，总是从一个新的记录开始去读入。 （3）当用READ语句去读文件记录时，如果READ语句中的输入项少于记录中的数据项，则记录中剩余的数据就被忽略，下一个READ语句从一个新的记录开始去读入。如果READ语句中的输入项多于记录中的数据项时，它将接着去读入一个记录，直到所有的输入项都得到数据或者遇到文件结束标志为止。 （4）当对顺序文件进行输出时，在OPEN或者REWIND语句之后总是把第一个WRITE语句输出的记录放在文件的开头，作为文件的第一个记录。当前WRITE语句所输出的记录总是作为文件的最后一个记录。如果所写的文件是一个老文件，则原来的内容全部丢失。因此在程序设计中对一个顺序文件不可能做到重写前半部分而保留后半部分。 （5）可以采用以下方法把新的内容添加到老文件的后面。 10 READ (2, *, END=20) GOTO 10 20 BACKSPACE(2) WRITE (2, ……) …… （6）一个WRITE语句总是开始一个新的记录。记录的形成与在终端上输出的新行一致。 （7）对一个顺序文件在读操作后立刻进行写操作，则当前写的这个记录就成了文件的最后一个记录，此记录后的原来的记录全部丢失。在写操作后立刻进行读操作，则必须遇到文件