F90第九章.pptVIP

第九章 文件与设备 第九章 文件与设备 9.4 文件基本操作 9.4.5 READ语句选项 1. UNIT选项 使用UNIT选项指定与文件相连接的逻辑设备号。如果从标准设备键盘上读取数据,则设备号为“*”。如果从外部文件中读取数据,则设备号允许是一个整数、整型变量、整型表达式,必须为已经打开的文件设备号。如果从内部文件中读取数据,则设备号可以是一个字符串、字符型变量、字符型数组元素、字符型数组等。UNIT选项必须给出。 2. FMT选项 使用FMT选项指定输入数据的格式说明。格式说明可以是“*”、FORMAT语句标号或格式说明字符串。 第九章 文件与设备 9.4 文件基本操作 3. END选项 使用END选项指定输入过程中遇到文件结束将转移执行的语句标号。 4. ERR选项 使用ERR选项指定输入过程中发生错误将转移执行的语句标号。 5. REC选项 使用REC选项指定一个记录号,允许是整数、整型变量或整型表达式。该选项对直接存取文件有效。对于顺序存取文件设置该项,将产生一个输入输出错误。如果设置了该项,则END和NML选项必须省略。 9.4.5 READ语句选项 第九章 文件与设备 9.4 文件基本操作 例如：在文本文件“score.dat”保存某班若干学生的成绩数据（整数）,人数不定,文件中每行一个成绩,统计该班平均成绩。下面给出示例程序： PROGRAM average REAL sum,ave INTEGER n OPEN(1,score.dat) PRINT*,正在统计平均成绩,请等待。 sum=0.0;n=0 DO READ(1,*,END=100) S sum=sum+s n=n+1 ENDDO CLOSE(1) 100 ave=sum/n WRITE(*,(平均成绩为：,F5.2)) ave PRINT*,平均成绩统计完毕。 END 第九章 文件与设备 9.4 文件基本操作 例：在数据文件“arr.dat”中保存有一矩阵的行数、列数及矩阵元素数据。从文件中输入行数、列数及矩阵元素数据,对矩阵进行转置处理,并输出转置矩阵至外部文件“arr1.dat”中 PROGRAM transpose ！Part 1 PARAMETER(max=20) INTEGER arr(max,max),arr1(max,max),n,m OPEN(1,FILE=arr.dat,ACTION=READ) OPEN(2,FILE=arr1.dat,ACTION=WRITE) READ(1,100) m,n,（(arr(i,j),j=1,n),i=1,m） 100 FORMAT(2I5,/,(nI5)) 9.4 文件基本操作 第九章 文件与设备 DO i=1,m ！Part 2 DO j=1,n arr1(j,i)=arr(i,j) ENDDO ENDDO WRITE(2,200) m,n 200 FORMAT(1X,转置前矩阵——行数：,I5, ,列数：,I5) WRITE(2,300) （(arr(i,j),j=1,n),i=1,m) 300 FORMAT(1X,nI5) WRITE(2,400) n,m 400 FORMAT(1X,转置后矩阵——行数：,I5, ,列数：,I5) WRITE(2,500) （(arr1(i,j),j=1,m),i=1,n) 500 FORMAT(1X,mI5) END 第九章 文件与设备 9.4 文件基本操作 9.4.6 文件输出（write) 文件打开后,也常常要向文件输出数据。使用WRITE语句完成数据输出。 文件输出语句WRITE的一般格式： WRITE语句→WRITE([UNIT=]设备号 [,{[FMT=]格式说明∣[NML=]名字列表}] [,ADVANCE=高级输入][,ERR=错误转移] [,IOSTAT=IO状态] [,REC=记录号]）输入数据列表 第九章 文件与设备 9.4 文件基本操作 9.4.6 文件输出（write) WRITE语句的主要功能是将数据写入显示器或文件,实际上是写入文件缓冲区,而不是直接写入磁盘。磁盘与文件缓冲区之间的数据传送由操作系统负责完成。 如果打开一个已经存在的顺序文件,且执行WRITE操作,则将数据写入当前记录位置,其后的记录均被删除,当前文件记录位置就是文件的结尾。 第九章 文件与设