Fortran95设计-第六章—新合编.pptxVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
八、 文件;物理设备与逻辑设备 文件的概念 外部文件分类 文件基本操作(OPEN,WRITE/READ...) 文件记录的存取 ;程序离不开数据,有效组织数据输入是设计和编写程序的基本要求。 从键盘输入数据和向屏幕输出数据,适用于数据量比较小的情况,不能与其它软件或程序交换数据信息。 从文件输入、向文件输出数据,适用于数据量比较大的情况,便于同其它软件或程序交换数据信息。; 物理设备与逻辑设备;;; 文件的概念;内部文件: 存放在内存储器上的文件。 内部文件特点: 保存小批量数据,不能长期保存。 内部文件作用: 一般用于少量二进制数据与字符型数据相互转换,以及字符串和合并或截取。如: ;外部文件: 连接在计算机主机上的一类设备(如:键盘、显示器、打印机等)或存放在外部存储器上的文件。 外部文件特点: 能长期保存大批量数据。 在程序中使用外部文件,必须先用OPEN语句为外部文件指定设备号,建立外部文件与设备号之间的联系。如: ;在Fortran中有4个预定义的外部文件(设备):;外部文件分类: ;两种文件的结构(存储格式): 1、文本文件 字符符号保存,直观;读取时需要转换,占存储空间大 格式化文件 ,记录数据内容的记录是以ASCII字符的方式存在的 ,每一条记录是以ASCII码中的回车符CR(0D)加换行符LF(0A)来结束的,可以用文本编辑软件打开格式文件并直接看懂其内容。即存放在文件中的数字就是平时所看到的数字字符,字符串也就是平时所看到的字符串。FORM=‘FORMATTED’ 2、二进制文件 以二进制代码保存;读取速度快,节省空间 无格式文件由一系列物理块组成的记录组成,所存储的记录序列的存放方式与其在内存中的存放非常相似,在输入输出时几乎不需作转化。由于去掉了格式控制,与有格式文件相比,在使用数据信息时所做的处理更简洁更迅速;同样的原因使得无格式文件中即使存放着数字,也不能用文本编辑软件打开并看到它们。FORM= ’UNFORMATTED’ 3、FORM=’BINARY’?二进制文件,是处理最快、最简洁的一种文件,也是最紧凑的存储格式,适合于大批量数据的存储。在程序中可以用带有选项的OPEN语句来打开或建立二进制文件 ; 文件的基本操作;例: open (10, file=‘d:\data\2006\feb\uwnd.dat’, form=‘unformatted’, status=‘unknown’, access=‘direct’, recl=144*73*4, err=100, iostat=iovar, position=‘asis’ );WRITE / READ 语句——文件的输入输出;program test2 ;CLOSE 语句——文件的关闭; 文件记录的存取;例:把1到10以及它们的平方数、立方数以表格形式存放到TAB.DAT 文件中。程序把输出的数据重新读出并显示在终端屏幕上以检验文件的内容 程序ex802;EX 0909.F90 implicit none integer, parameter :: inputfileid=10, outputfileid=11 4. integer, parameter :: maxbuffer =200 5. character (len=80) :: inputfile, outfpufile 6. character(len=maxbuffer) buffer 7. integer count 8. integer error 9. logical alive 10. write(*,*) “Input Filename” 11. read(*,“(A80)”) inputfile 12. write(*,*) “Output Filename” 13. read(*,“(A80)”) outputfile 14. inquire(file=inputfile, exist=alive) 15. if (.not. alive) then 16. write(*,*) trim(inputfile), “doesn’t exsit” 17. stop 18. end if 19. open(unit=inputfileid, file=inputfile, status=“old”) 20. open(unit=outpufileid, file=outputfile. Status=‘replace’) 21. count=1 22. do while(.true.) 23. !读

您可能关注的文档

文档评论(0)

希望之星 + 关注
实名认证
文档贡献者

我是一名原创力文库的爱好者!从事自由职业!

1亿VIP精品文档

相关文档