格式化输出与文件.pptxVIP

Fortran程序设计第四讲根本I/O

第四讲内容WRITE语句格式化输出READ语句格式化读取文件操作

5.1格式化输出WRITE(*,*)是自由格式输出，也称表控输出INTEGER::iDOi=1,10WRITE(*,*)sin(,i,)=,sin(3.141593*i/180)ENDDOWRITE(*,*)---------1---------2---------3---------4输出的数据不直观也不美观所以我们要采用格式输出

INTEGER::iDOi=1,10WRITE(*,(10X,A4,I2,A2,F8.6))sin(,i,)=,sin(3.141593*i/180)ENDDOWRITE(*,*)---------1---------2---------3---------4利用格式控制，可以将输出按照自己的需求排列，便于分析数据

5.2格式化输出的根本格式有两种格式WRITE(*,100)a100FORMAT(I3)WRITE(*,’(I3)’)a

前面输出正弦表的程序也可以修改为：WRITE(*,200)sin(,i,)=,sin(3.141593*i/180)200FORMAT(10X,A4,I2,A2,F8.6)还可以修改为：WRITE(*,200),i,,sin(3.141593*i/180)200FORMAT(10X,sin(,I2,)=‘,F8.6)

格式化描述符整数 I实数 F E ES字符 A空格 X跳转 T换行 /

5.3整数的输出--I描述符I描述符用来描述整数数据的显示格式,形式为：rIw或rIw.mr重复计数-----表示这个格式重复的次数w域宽-----输出使用的字符数m要显示的最小位数

例：INTEGER::i=-12,j=4,k=-12345WRITE(*,(2I5,I6,I10))i,i+12,j,kWRITE(*,(2I5.0,I6,I10.8))i,i+12,j,kWRITE(*,(2I5.3,I6,I5))i,i+12,j,kWRITE(*,(T1,A40))---------1---------2---------3---------4整数数值在其域内右对齐如果整数太大，用*显示如果m值超过整数位数，就在左侧用0补满

INTEGER::i=-12,j=4,k=-12345WRITE(*,100)i,i+12,j,kWRITE(*,101)i,i+12,j,kWRITE(*,102)i,i+12,j,k100FORMAT(2I5,I6,I10)101FORMAT(2I5.0,I6,I10.8)102FORMAT(2I5.3,I6,I5)WRITE(*,(T1,A40))---------1---------2---------3---------4上一个例子也可以写成这样，结果是一样的

5.4实数输出-----F描述符rFw.dd表示小数点右边的位数实数在其显示域内右对齐如果d值小于数据的小数位数，那么显示前会被四舍五入如果d值超出数据的小数位数，那么在小数最后补齐足够的0如果实数太大，给定的域放不下，那么用*填充12.345678用下面的格式会输出什么?F10.8 F12.8 F5.3 F5.2

5.5实数输出----E描述符rEw.d和科学记数法不同，E描述法把实数标准到0.1~1.0之间的一个数乘以10的幂比方阿伏伽德罗常数用科学记数法为：6.02x1023E表示是0.602x1024，显示在计算机上是0.602E+24如果数据的有效位数是7，用E表示的时候，w和d分别要取多少呢？w至少要14：1个字符用来表示尾数的符号，2个字符用于表示0和小数点，7个字符表示实际的尾数，1个字符表示E，1个字符表示指数的符号，2个字符用于表示指数自身±0.dddddddE±ee所以，用E表示的时候，要特别注意表示域的宽度问题，一般至少满足如下表达式： w≥d+7

5.6实数输出----ES描述rESw.dES描述和E描述的区别在于尾数的选取不同，ES描述是用的科学记数法，尾数选取范围是1.0~10.0，这种表示方式更适合科研和工程人员ES表示：±d.dddddddE±ee可以看出，同样宽度下，ES可以比E多一个有效位

6.1字符----A描述rA或rAwrA使用宽度与被显示字符数相同rAw使用w个宽度显示字符，w超出字符个数时，右对齐，w缺乏时，只显示字符的前