for9第10章.pptVIP

Visual Fortran 90 程序设计 10.1 文件概述 3、文件的概念和类型 文件类型： 10.2 文件的基本操作 10.3 顺序文件的存取 REWIND语句（反绕语句） Backspace语句（回退一个记录语句） 阅读程序，写出执行结果 例10-3 :通过例2检查文件STUDENT.DAT中学生的数据后发现第K1个记录的学生姓名有错，第K2个记录的学生的成绩有误。编写程序修改原来的文件。 END FILE语句（结束语句） 10.4 直接文件的存取 10.5 INQUIRE语句 10.6 无格式文件 练习1： 练习2： 练习3： function f(x,c) result(g) !程序代码 implicit none real::x,c,g,un,pi=3.1415926,eps=1e-10,n n=1 !n不能在说明语句中赋初值 un=cos(pi*x/c) g=0 do while(abs(un)=eps) g=g+un n=n+1 un=cos((2*n-1)*pi*x/c)/(2*n-1)**2 enddo g=c*pi**2/(2*x)-4*c/x*g g=sqrt(g) end function f program main implicit none real::x,c,f,z integer::i open(1,file=d:\myf2.dat) open(2,file=d:\myf2.out) do i=1,7 read (1,*),x,c z=f(x,c) write(2,(2f6.2,f9.5)),x,c,z write(*,(2f6.2,f9.5)),x,c,z enddo close (1) close (2) end program main 本章小结 在读写语句中通过指明记录号，就可直接存取该记录内的数据，而不必从文件的开头依次去读写。 例： READ(UNIT=1,FMT=(I3,A),REC=12)n,string WRITE(FMT=(I3,A),UNIT=1,REC=12)n,string 该语句又称查询语句。按功能分为三种：按文件号查询，按文件名查询和按长度查询。 INQUIRE（1，EXIST=E，NAME=N） INQUIRE（FILE=‘STUD.DAT’，OPENED=OPD， ACCESS=ACE，NUMBER=NR） INQUIRE(IOLENGTH=L)a(1:n) 其功能是查询输出表的长度，一般用在建立无格式直接存取文件之前。查询的结果作为记录长度（RECL说明符使用）。 无格式文件中的数据采用与内存中数据同样的存储方式，即采用二进制内码进行存放数据(占4个字节)。 如：654321：00000000000010011111101111110001 系统读写文件时不需要进行格式转换，加快了数据存取速度、也节省了大量的外存空间。 但在操作系统环境下无法看懂其中的内容。 FORTRAN文件系统中标准输入文件指键盘、标准输出文件指屏幕，以下叙述中错误的是： A.标准输入文件、标准输出文件以及磁盘文件均可按有格式、顺序方式读写 B.标准输入文件、标准输出文件以及磁盘文件均可按有格式、直接方式读写 C.磁盘文件才可按有格式、直接方式读写，而标准输入文件、标准输出文件不可以 D.磁盘文件才可按无格式、顺序方式读写，而标准输入文件、标准输出文件不可以 以下带有控制信息表的读写语句中，错误的是(P260) A. READ(FMT=*,UNIT=2,IOSTAT=ios)a,b,c,i,j,k B. READ(UNIT=2,FMT=(3A6,3I4),REC=number)a,b,c,i,j,k C. WRITE(UNIT=*,FMT=(3A6,3I4),REC=number)a,b,c,i,j,k D. WRITE(IOSTAT=ios,UNIT=3,REC=number)a,b,c,i,j,k 若用OPEN语句打开直接存取有格式（1号）文件，那么以下读写语句中，错误的是：（P267) A. READ(UNIT=1,FMT=(I3,A),REC=12)n,string B. WRITE(UNIT=1,FMT=(I3,A),RECL=12)n,string C. READ(UNIT=1,REC=12,FMT=(I3,A))n,string D. WRITE(FMT=(I3,A),UNIT=1,REC=12)n,string 【题目】函数f(x,c)的展开式如