fortran第7章输入和输出.ppt

《fortran第7章输入和输出.ppt》由会员分享，可在线阅读，更多相关《fortran第7章输入和输出.ppt（47页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 第七章第七章 输入和输出输入和输出 7.1 7.1 输入输出的概念输入输出的概念 7.2 7.2 表控输入表控输入 7.3 7.3 表控输出表控输出 7.4 7.4 简单的格式输入输出语句简单的格式输入输出语句 7.5 7.5 含简单控制信息表的输入含简单控制信息表的输入/输出输出 7.4 7.4 格式输入格式输入/输出输出 一一.简单的格式输入输出简单的格式输入输出 格式格式:READ f,:READ f,输入表列输入表列 PRINT f,PRINT f,输出表列输出表列 功能功能:实现数据信息的输入和输出实现数据信息的输入和输出说明说明:1.f1.f是格式标识符是格式标识符,用来指出数据

2、在输入输出中的编用来指出数据在输入输出中的编 辑格式辑格式 2.2.输入输出表列是由一个或多个用逗号分隔的变量输入输出表列是由一个或多个用逗号分隔的变量 名名,数组名数组名,数组元素名及字符串名等组成数组元素名及字符串名等组成例例:READ f,I,J,k:READ f,I,J,k PRINT F,A,B,C PRINT F,A,B,C 二二.格式标识符格式标识符 FORRAN77FORRAN77规定有五种格式标识符规定有五种格式标识符:*、字符常数、语句标号、变量名、字符常数、语句标号、变量名1.1.*当格式标识符是一个星号当格式标识符是一个星号*时表示输入输出是表控时表示输入输出是表控格式

3、因此表控格式实际上是最简单的格式输入输出语句格式因此表控格式实际上是最简单的格式输入输出语句 例例:READ*,I,J,K,A,B,C:READ*,I,J,K,A,B,C PRINT*,X,Y,Z PRINT*,X,Y,Z 这两条语句表明数据信息的输入输出按系统规定的格式这两条语句表明数据信息的输入输出按系统规定的格式进行进行,同时所使用的输入输出设备也是由系统指定的同时所使用的输入输出设备也是由系统指定的 例例:READ(I4,F10.4,F10.4),K,A,B:READ(I4,F10.4,F10.4),K,A,B PRINT(1X,I6,3X,F10.4,3X,F10.4),K,A,B

4、PRINT(1X,I6,3X,F10.4,3X,F10.4),K,A,B说明说明:(I4,F10.4,F10.4)(I4,F10.4,F10.4)和和(1X,I6,3X,F10.4,3X,F10.4)(1X,I6,3X,F10.4,3X,F10.4)称为格式标识符称为格式标识符(字符常数型字符常数型),),格式说明符必须用格式说明符必须用 单引号括起来单引号括起来 括号中的各项称为格式说明括号中的各项称为格式说明,每项之间用逗号隔开每项之间用逗号隔开 2.2.字符常数字符常数 将数据信息输入输出的格式用一字符常数的形式来表将数据信息输入输出的格式用一字符常数的形式来表示示,这样各数据信息的输入

5、输出按用户指定格式进行这样各数据信息的输入输出按用户指定格式进行 各格式说明中的字母称之为编辑描述符各格式说明中的字母称之为编辑描述符.例例:I4:I4中的中的I I表明该数据是整型表明该数据是整型,F10.4 F10.4中的中的F F表明该数据是实型表明该数据是实型 格式说明中的数值表明该数据的宽度格式说明中的数值表明该数据的宽度 例例:I4:I4表明该数据是整型输入输出宽度为表明该数据是整型输入输出宽度为4 4位位.F10.4 F10.4表明该数据是实型输入输出宽度表明该数据是实型输入输出宽度1010位位 其中小数位占其中小数位占4 4位位.实际中小数点也占一位实际中小数点也占一位 3.3

6、.标号标号 格式符用一个语句标号的形式出现格式符用一个语句标号的形式出现,这个语句标号所这个语句标号所表示的语句必须是格式语句表示的语句必须是格式语句(FORMAT(FORMAT语句语句)例例:READ 10,I,J,K:READ 10,I,J,K 10 FORMAT(I3,I5,I8)10 FORMAT(I3,I5,I8)PRINT 20,X,Y,Z PRINT 20,X,Y,Z 20 FORMAT(1X,F10.2,F10.2,F10.4)20 FORMAT(1X,F10.2,F10.2,F10.4)上述语句用字符常数来表示时为上述语句用字符常数来表示时为 READ(I3,I5,I8),I

7、,J,K READ(I3,I5,I8),I,J,K PRINT(1X,F10.2,F10.2,F10.4),X,Y,Z PRINT(1X,F10.2,F10.2,F10.4),X,Y,Z说明说明:1.1.语句标号必须是整型常数语句标号必须是整型常数,变量名必须是整型变量名变量名必须是整型变量名 2.2.该语句不能用于一般变量赋值该语句不能用于一般变量赋值,其值不能参加算术运算其值不能参加算术运算4.4.变量名变量名 当格式标识符是标号变量名时当格式标识符是标号变量名时,这时其值是通过赋标号语这时其值是通过赋标号语句来定义的句来定义的 格式格式:ASSIGN(:ASSIGN(语句标号语句标号)T

8、O)TO 变量名变量名 功能功能:将指定的语句标号值赋给指定的整型变量中将指定的语句标号值赋给指定的整型变量中 例例:ASSIGN 10 TO NUM:ASSIGN 10 TO NUM READ NUM,I,J,K READ NUM,I,J,K NUM FORMAT(I3,I5,I8)NUM FORMAT(I3,I5,I8)三三 编辑描述符编辑描述符1.I 1.I 编辑描述符编辑描述符2.F 2.F 编辑描述符编辑描述符3.E 3.E 编辑描述符编辑描述符7.L 7.L 编辑描述符编辑描述符5.5.可重复的编辑符可重复的编辑符6.X 6.X 编辑描述符编辑描述符7.7.撇号撇号 和和 H H

9、编辑描述符编辑描述符 8.8.斜线斜线 编辑描述符编辑描述符下一节 1.I1.I编辑描述符编辑描述符 格式格式:IW:IW 功能功能:用于整型数据的描述用于整型数据的描述.指明被编辑的数据为整型指明被编辑的数据为整型 宽度为宽度为W.W.说明说明:1.I 1.I 说明被编辑的数据为整型说明被编辑的数据为整型 2.W 2.W 是整型数据允许的最多位数即宽度是整型数据允许的最多位数即宽度例例1:1:READ 5,I,J,K,L READ 5,I,J,K,L 5 FORMAT(I3,I5,I4,I4)5 FORMAT(I3,I5,I4,I4)输入记录输入记录 -12-973 214 69 -12-9

10、73 214 69 I3 I5 I4 I4 I3 I5 I4 I4 例例2:PRINT 10,I,J,K,L2:PRINT 10,I,J,K,L 10 FORMAT(1X,I6,I7,I8,I8)10 FORMAT(1X,I6,I7,I8,I8)输出记录输出记录:-12 -973 214 69:-12 -973 214 69 I6 I7 I8 I9 I6 I7 I8 I9注注:若输出数据的实际位数超过所给定宽度时若输出数据的实际位数超过所给定宽度时,则产生则产生 溢出溢出,此时将输出满字段宽度的此时将输出满字段宽度的*(*(随计算机不随计算机不同同)例例3:PRINT 20,I,J,KK3:P

11、RINT 20,I,J,KK 20 FORMAT(1X,I4,I5,I6)20 FORMAT(1X,I4,I5,I6)若若I=128,J=7142,K=1234567I=128,J=7142,K=1234567 输出记录输出记录:128 7142*128 7142*I4 I5 I6 I4 I5 I6 2.F 2.F 编辑描述符编辑描述符 格式格式:FW.d:FW.d 功能功能:用于实型数据的描述用于实型数据的描述 说明说明:1.F 1.F说明被编辑的数据为实型说明被编辑的数据为实型 2.W 2.W说明字段的总宽度说明字段的总宽度 3.d 3.d说明小数点占的宽度说明小数点占的宽度例例:PRIN

12、T 6,A,B,C:PRINT 6,A,B,C 6 FORMAT(1X,F6.2,F6.2,F7.4)6 FORMAT(1X,F6.2,F6.2,F7.4)若若A=21.1,B=96.32,C=0.46A=21.1,B=96.32,C=0.46 输出记录输出记录:21.10 96.32 0.4600 21.10 96.32 0.4600 F6.2 F6.2 F7.4 F6.2 F6.2 F7.4 例例2:2:不带小数点的输入不带小数点的输入 READ 7,A,B READ 7,A,B 7 FORMAT(F6.2,F7.2)7 FORMAT(F6.2,F7.2)若输入记录为若输入记录为:1234

13、5 678912:12345 678912 F6.2 F7.2 F6.2 F7.2计算机赋值的过程计算机赋值的过程:1.1.根据根据W W的值取前六位数字字符的值取前六位数字字符 2.2.按按d d值从数字字符串的右边截值从数字字符串的右边截d d位位,再加上小数点再加上小数点 3.3.将该值赋给输入变量表列的第一个变量将该值赋给输入变量表列的第一个变量 7.7.后面的情况以此类推后面的情况以此类推 于是于是 A=123.45 B=6789.12 A=123.45 B=6789.12 计算机赋值的过程计算机赋值的过程:1.1.根据根据W W的值的值 取前取前6 6位数字字符位数字字符 2.2.

14、将其赋给输入变量表列中的第一项将其赋给输入变量表列中的第一项 3.3.后面的情况以此类推于是后面的情况以此类推于是 A=29.672 B=0.8946 A=29.672 B=0.8946例例3:3:自带小数点自带小数点 READ 10,A,B READ 10,A,B 10 FORMAT(F6.2,F6.2)10 FORMAT(F6.2,F6.2)F6.2 F6.2 F6.2 F6.2注注:1.1.自带小数点输入时自带小数点输入时,d,d不起作用不起作用.即自带小数点优先即自带小数点优先.2.2.对对w,dw,d的取值一定要根据实际来的取值一定要根据实际来,否则会出现大数出否则会出现大数出 错错

15、,小数印丢小数印丢,但但w w取太大也会发生难以表示的情况取太大也会发生难以表示的情况,如如 7.2*10 7.2*103636,7.2*10,7.2*10-36-36,这就只有用这就只有用 E E 编辑符来表编辑符来表示了示了.3.E3.E编辑描述符编辑描述符 格式格式:Ew.d:Ew.d 功能功能:用于以指数形式描述实型数用于以指数形式描述实型数说明说明:1.E 1.E是指明被编辑的数据是指数型是指明被编辑的数据是指数型 2.w,d 2.w,d的含义同的含义同F F型型 例例:READ 5,A,B,C:READ 5,A,B,C 5 FORMAT(E11.4,E12.2,E12.2)5 FO

16、RMAT(E11.4,E12.2,E12.2)输入输入:85132E-28 796E+15 414E-10 85132E-28 796E+15 414E-10 E11.4 E12.2 E12.2 E11.4 E12.2 E12.2 结果结果:A=8.5132*10:A=8.5132*10-28-28 B=7.96*10 B=7.96*101515 C=7.14*10 C=7.14*10-10-10(3)E(3)E前的前的11-411-4位从右向左截取位从右向左截取d d的位数的位数,在其前面打在其前面打小数点小数点(4)(4)将这值赋给输出变量表列中的第一项以后各项以将这值赋给输出变量表列中的

17、第一项以后各项以此类推此类推.计算机赋值过程计算机赋值过程:(1)(1)根据根据w w取前取前1111位字符数字位字符数字 (2)(2)将将E E后的数字字符作为指数部分后的数字字符作为指数部分*指数形式输出指数形式输出 指数形式用标准形式输出即输出的整数位为指数形式用标准形式输出即输出的整数位为0,0,小数点小数点后是一非零的数后是一非零的数说明说明:1.1.负号是必需的负号是必需的,正号可任选正号可任选 2.2.小数点前为零小数点前为零 3.Z 3.Z1 1Z Z2 2前的符号必需前的符号必需 7.X 7.X1 1XXd d是小数位是小数位,有效数据从左开始取有效数据从左开始取d d位位,

18、(d+1),(d+1)位四舍五入位四舍五入 5.Z1Z2 5.Z1Z2是是00-9900-99的整数的整数标准形式标准形式:0.X:0.X1 1X X2 2XXd dE ZE Z1 1Z Z2 2*指数形式输出指数形式输出 指数形式用标准形式输出即输出的整数位为指数形式用标准形式输出即输出的整数位为0,0,小数点小数点后是一非零的数后是一非零的数 例：例：PRINT 6,A,B,C PRINT 6,A,B,C 6 FORMAT(1X,E10.3,E13.4,E13.4)6 FORMAT(1X,E10.3,E13.4,E13.4)若若A=-1.87,B=0.178,C=-178.558A=-1.

19、87,B=0.178,C=-178.558 输出输出:-0.187E+01 0.1780E+00 -0.1786E+03 -0.187E+01 0.1780E+00 -0.1786E+03 1 2 3 4 2 4 4 2 4 4 1 2 3 4 2 4 4 2 4 4 7.L7.L编辑描述符编辑描述符 格式格式:LW:LW 功能功能:用于逻辑性数据的描述用于逻辑性数据的描述例例:(1):(1)自由格式输入自由格式输入 READ*,A,B,C,D READ*,A,B,C,D输入的数据输入的数据:T,.TRUE.,F,FF:T,.TRUE.,F,FF说明说明:逻辑数据输入时逻辑数据输入时,若第一个

20、非空格的字符是若第一个非空格的字符是T T或或 紧跟一紧跟一T T时时,则作为则作为.TRUE.TRUE.若第一个非空格的字符是若第一个非空格的字符是F F或或 紧跟紧跟 一一F F时时,则作为则作为.FALSE.FALSE.如如:T,.TRUE.,.T.,TP:T,.TRUE.,.T.,TP等价等价例例1:1:编辑符编辑符 输入字符输入字符 输入的值输入的值 L3 T .TRUE.L3 T .TRUE.L5 FALSE .FALSE.L5 FALSE .FALSE.L4 TRUE .TRUE.L4 TRUE .TRUE.L6 .TRUE.TRUE.L6 .TRUE.TRUE.L4 .FAL

21、.FALSE.L4 .FAL .FALSE.L3 FFF .FALSE.L3 FFF .FALSE.L1 F .FALSE.L1 F .FALSE.L5 F T F .FALSE.L5 F T F .FALSE.(2)(2)格式输入格式输入 READ(*,10)A,B,C,D READ(*,10)A,B,C,D 10 FORMAT(L3,L4,L1)10 FORMAT(L3,L4,L1)输入数据输入数据:T T F F :T T F F 结果结果A,B A,B 为为.TRUE.,C,D.TRUE.,C,D为为.FALSE.FALSE.(3)(3)格式输出格式输出 PRINT 10,A,B,C,

22、D PRINT 10,A,B,C,D 10 FORMAT(1X,L2,L2,L4,L4)10 FORMAT(1X,L2,L2,L4,L4)若若 A,B A,B为真为真,C,D,C,D为假输出值为为假输出值为:T T F F T T F F 2 2 4 4 2 2 4 4 输出时按字段宽度输出输出时按字段宽度输出,字符字符TT或或FF打在字段打在字段的右端的右端(4)(4)自由格式输出自由格式输出 PRINT*,A,B,C PRINT*,A,B,C 其值为其值为.TRUE.TRUE.时输出时输出 T T 其值为其值为.FALSE.FALSE.时输出时输出 F F 输出所占列数由机器输出所占列数由

23、机器定定 5.5.可重复的编辑符可重复的编辑符 对于重复出现的编辑符对于重复出现的编辑符,可以只写一次只需在前面加一可以只写一次只需在前面加一个重复数即可个重复数即可 格式格式:可重复的编辑符一般形式如下可重复的编辑符一般形式如下:nIW,nIW.d,nEW.d,nLW (n nIW,nIW.d,nEW.d,nLW (n为重复数为重复数)例例:100 FORMAT(1X,I10,I10,F8.3,F8.3,5X,E16.7,E16.7)100 FORMAT(1X,I10,I10,F8.3,F8.3,5X,E16.7,E16.7)可写成可写成 100 FORMAT(1X,2I10,2F8.3,5

24、X,2E16.7)100 FORMAT(1X,2I10,2F8.3,5X,2E16.7)例例:100 FORMAT(1X,I5,F10.2,E8.2,1X,I5,F10.2,E8.2)100 FORMAT(1X,I5,F10.2,E8.2,1X,I5,F10.2,E8.2)可写作可写作 100 FORMAT(2(1X,I5,F10.2,E8.2)100 FORMAT(2(1X,I5,F10.2,E8.2)6.X6.X编辑描述符编辑描述符 格式格式:nX:nX 功能功能:对数据的输入输出的位置进行控制对数据的输入输出的位置进行控制 说明说明:n:n为空格的个数为空格的个数例例:输入输入:READ

25、 5,A,B READ 5,A,B 5 FORMAT(4X,2F7.1)5 FORMAT(4X,2F7.1)43.1 52.4 43.1 52.4 结果结果:A=43.1 B=52.4:A=43.1 B=52.4 READ 5,A,B READ 5,A,B 5 FORMAT(4X,F7.1,2X,F7.1)5 FORMAT(4X,F7.1,2X,F7.1)输入记录输入记录:输入记录输入记录:43.1 52.443.1 52.4结果结果:A=43.1 B=52.4:A=43.1 B=52.4 PRINT 6,A,B PRINT 6,A,B 6 FORMAT(1X,F6.2,15X,F6.1,-1

26、5X,I4)6 FORMAT(1X,F6.2,15X,F6.1,-15X,I4)若若A=43.1 B=52.4A=43.1 B=52.4 结果结果:A=43.1 B=52.4:A=43.1 B=52.4输出输出:PRINT 6,A,B PRINT 6,A,B 6 6 FORMAT(1X,A=,F7.1,4X,B=,F7.1)FORMAT(1X,A=,F7.1,4X,B=,F7.1)24572457 若若A=123.56,T=2456.3,I=2457A=123.56,T=2456.3,I=2457输出输出:123.56 2456.3:123.56 2456.3 7 7 撇号和撇号和 H H 编

27、辑描述符编辑描述符 格式格式:nHh1h2hn:nHh1h2hn h1h2.hn h1h2.hn功能功能:输出字符型常量输出字符型常量例例:PRINT 10:PRINT 10 10 FORMAT(1X,3HNO.,5X,4HNAME)10 FORMAT(1X,3HNO.,5X,4HNAME)输出结果输出结果:NO.NAME NO.NAME格式语句亦可写成格式语句亦可写成:10 FORMAT(1X,12HNO.NAME)10 FORMAT(1X,12HNO.NAME)或或 10 FORMAT(1X,NO.,5X,NAME)10 FORMAT(1X,NO.,5X,NAME)或或 10 FORMAT

28、(1X,NO.NAME)10 FORMAT(1X,NO.NAME)说明说明:1.:1.这两种编辑描述符只能用于输出语句中这两种编辑描述符只能用于输出语句中 2.n 2.n为无符号整常数为无符号整常数,其值为其值为H H后的字符常数个数后的字符常数个数 3.h1h2hn 3.h1h2hn是一个长度为是一个长度为n n的字符串常数的字符串常数(含空含空白白)注注:若字符常数中含有一个撇号若字符常数中含有一个撇号,在使用撇号描述符时则将在使用撇号描述符时则将一个撇号写成两个撇号一个撇号写成两个撇号.例例:ITS A BOOK.ITS A BOOK.的格式语句应为的格式语句应为:10 FORMAT(1

29、X,ITS A BOOK.)10 FORMAT(1X,ITS A BOOK.)8.8.斜线编辑描述符斜线编辑描述符 斜线编辑描述符在格式说明中均作为分隔符使用斜线编辑描述符在格式说明中均作为分隔符使用 功能功能:指出当前记录上数据信息传输的结束指出当前记录上数据信息传输的结束例例1:1:输入语句输入语句:READ 5,N,X READ 5,N,X 5 FORMAT(I4/F7.2)5 FORMAT(I4/F7.2)输入输入:1 2 3 4 5 6 7 8 9 10 11 3 2 7 4 2.5 3 2 7 4 2.5 5 9 4.3 5 5 9 4.3 5 结果结果:N=327 X=597.3

30、5:N=327 X=597.35例例2:2:输出输出:PRINT 6,N,X:PRINT 6,N,X 6 FORMAT(1X,I4/1X,F7.2)6 FORMAT(1X,I4/1X,F7.2)结果结果:1 2 3 4 5 6 7 8 9 10 11 12 3 2 7 3 2 7 5 9 4.3 5 5 9 4.3 5 例例3:3:PRINT 6,N,X PRINT 6,N,X 6 FORMAT(1X,I4/1X,F7.2)6 FORMAT(1X,I4/1X,F7.2)结果结果:1 2 3 4 5 6 7 8 9 10 11:1 2 3 4 5 6 7 8 9 10 11 3 2 7 3 2

31、7 5 9 7.3 5 5 9 7.3 5 例例4:PRIINT 44:PRIINT 4 4 FORMAT(1X,/)4 FORMAT(1X,/)结果结果:输出五个空行输出五个空行 四四 纵向走纸控制纵向走纸控制 FORTRAN77FORTRAN77规定输出格式记录的第一个字符起纵规定输出格式记录的第一个字符起纵向控制作用向控制作用,其控制符的作用如下其控制符的作用如下:格式语句式为格式语句式为:5 FORMAT(,2I3):5 FORMAT(,2I3)5 FORMAT(1H,2I3)5 FORMAT(1H,2I3)例例1:PRINT 5,I,J1:PRINT 5,I,J 5 FORMAT(1

32、X,2I3)5 FORMAT(1X,2I3)打印记录前走纸一行打印记录前走纸一行 0 0 打印记录前走纸两行打印记录前走纸两行 1 1 打印记录前走到下一页的第一行打印记录前走到下一页的第一行 +打印记录前不走纸打印记录前不走纸 其他字符其他字符 一般起空格作用一般起空格作用例例2:2:巧用纵向控制语句巧用纵向控制语句 PRINT 6,K PRINT 6,K PRINT 7 PRINT 7 6 FORMAT(Y,I3)6 FORMAT(Y,I3)7 FORMAT(+=)7 FORMAT(+=)注注:在输出方式下记录中的首字符是纵向走纸控制数据信在输出方式下记录中的首字符是纵向走纸控制数据信息不

33、能占用息不能占用,否则出现不应有的错误否则出现不应有的错误.例例3:3:PRINT 4,L,K PRINT 4,L,K 4 FORMAT(I4,I6)4 FORMAT(I4,I6)若若:L=1234 K=567:L=1234 K=567 输出输出 234 567 234 567 且打印纸走到下一页的第一行且打印纸走到下一页的第一行结果结果:=100 100五五 格式控制应用例解格式控制应用例解 1.PRINT 10 M,N,L1.PRINT 10 M,N,L 10 FORMAT(1X,I4)10 FORMAT(1X,I4)2.2.将格式语句改为将格式语句改为 5 FORMAT(,2I4)5 F

34、ORMAT(,2I4)结果结果 187 8 187 8 24 24若若M=187,N=8,L=24M=187,N=8,L=24 结果结果 187 187 8 8 24 24 7.7.将格式语句改为将格式语句改为 9 FORMAT(2F5.0)9 FORMAT(2F5.0)0.15 0.15 结果结果:A=7.23 B=-3.52 C=0.15:A=7.23 B=-3.52 C=0.153.READ 9,A,B,C3.READ 9,A,B,C 9 FORMAT(F5.0)9 FORMAT(F5.0)输入输入 7.23 7.23 -3.52 -3.52 0.15 0.15 结果结果:A=7.23

35、B=-3.52 C=0.15:A=7.23 B=-3.52 C=0.155.PRINT 12,M,N,L5.PRINT 12,M,N,L 12 FORMAT(REPORT/(1X,I4)12 FORMAT(REPORT/(1X,I4)结果结果:REPORT:REPORT 187 187 8 8 24 246.6.将格式语句改为将格式语句改为 12 FORMAT (12 FORMAT (REPORT,2(1X,I4)REPORT,2(1X,I4)结果结果:REPORT 187 8:REPORT 187 8 24 247.7.若若 A=3.5,B=0.4,C=5.8,D=1.7 A=3.5,B=0

36、.4,C=5.8,D=1.7 PRINT 3,A,B,C,D PRINT 3,A,B,C,D 3 FORMAT(0,37(*)/2(5X,F5.1)3 FORMAT(0,37(*)/2(5X,F5.1)结果结果:1.:1.2.*2.*(共共3737次次)3.3.7.3.5 0.4 7.3.5 0.4 5.5.8 1.7 5.5.8 1.7注注:1.1.输入时输入时,输入表和格式说明相互作用的结果输入表和格式说明相互作用的结果,不能从一不能从一 个输入记录中要求获得多于该记录所包含的字符个输入记录中要求获得多于该记录所包含的字符 2.2.输出时一条记录的字符个数不能超过外设所规定的输出时一条记录

37、的字符个数不能超过外设所规定的 个数个数.例如例如,显示器显示器:80 :80 打印机打印机:80:80或或132132 3.3.打印输出时格式控制返回将产生一个新纪录打印输出时格式控制返回将产生一个新纪录,不能忘不能忘 掉给出纵向控制字符掉给出纵向控制字符.7.7.纵向格式控制字符只对打印机纵向格式控制字符只对打印机,不对显示器不对显示器.7.4 7.4 含简单控制信息表的输入含简单控制信息表的输入/输出输出 格式格式:READ(u,f)READ(u,f)输入表列输入表列 WRITE(u,f)WRITE(u,f)输出表列输出表列 功能功能:对用户指定的输入输出设备进行数据信息传递对用户指定的

38、输入输出设备进行数据信息传递说明说明:1.u 1.u是设备号是设备号(通道号通道号)2.f 2.f是格式标识符是格式标识符 3.3.带控制信息表的输出语句只能用于带控制信息表的输出语句只能用于WRITE,WRITE,不能用不能用 于于PRINTPRINT例例1:1:READ(*,*)A,B,C READ*,A,B,C READ(*,*)A,B,C READ*,A,B,C WRITE(*,*)A,B,C PRINT*,A,B,CWRITE(*,*)A,B,C PRINT*,A,B,C(WRITE语句中括弧内有两个“*”，第一个“*”表示在系统隐含指定的输出设备上输出，第二个“*”表示按隐含的指定

39、格式输出)例例2:2:READ(05,*)A,B,C READ(05,*)A,B,C 终端键盘输入数据终端键盘输入数据 WRITE(07,*)A,B,C WRITE(07,*)A,B,C 打印机上输出打印机上输出A,B,CA,B,C数据数据例例3:3:READ(*,10)A,B,C READ(*,10)A,B,C10 FORMAT(3F7.1)10 FORMAT(3F7.1)在系统指定的设备上在系统指定的设备上 WRITE(*,20)A,B,C WRITE(*,20)A,B,C20 FORMAT(1X,3F7.1)20 FORMAT(1X,3F7.1)例例4:4:READ(05,10)A,B,

40、C READ(05,10)A,B,C10 FORMAT(3F7.1)10 FORMAT(3F7.1)在指定的设备上在指定的设备上 WRITE(07,20)A,B,C WRITE(07,20)A,B,C20 FORMAT(1X,3F7.1)20 FORMAT(1X,3F7.1)WRITE语句和FORMAT语句的相互作用.打印或显示出来的记录或信息来源于两个方面：打印或显示出来的记录或信息来源于两个方面：WRITE WRITE语句数出表列的值语句数出表列的值 FORMAT FORMAT语句中提供的字符常数语句中提供的字符常数 其相互作用其相互作用 1.1.WRITEWRITE语句中输出量的个数和语

41、句中输出量的个数和FORMATFORMAT语句中编辑符语句中编辑符(如：如：I,F,E,D,LI,F,E,D,L等）的个数可以相等也可以不相等等）的个数可以相等也可以不相等.如果输如果输出量的个数少于编辑符的个数出量的个数少于编辑符的个数(不包括不包括H H编辑符、撇号编辑符、编辑符、撇号编辑符、X X编辑符，），则多余的编辑符不起作用编辑符，），则多余的编辑符不起作用。如：如：WRITE WRITE（*，200200）A A，I I，K K 200 FORMAT 200 FORMAT（1X1X，F6.2,I6,2X,I7,I8)F6.2,I6,2X,I7,I8)或或 200 FORMAT(1

42、X,F6.2,I6,2X,I7,END,I8,2X)200 FORMAT(1X,F6.2,I6,2X,I7,END,I8,2X)2.2.如果输出量的个数多于编辑描述符个数如果输出量的个数多于编辑描述符个数,即即输出表列中还有未输出的元素输出表列中还有未输出的元素,而格式说明中编而格式说明中编辑描述符已用完辑描述符已用完,则重新使用该格式说明则重新使用该格式说明,但产但产生一个新的记录生一个新的记录.如如:WRITE(*,110)A,B,C,D WRITE(*,110)A,B,C,D 110 FORMAT(1X,2F6.2)110 FORMAT(1X,2F6.2)它相当于用了它相当于用了:110

43、 FORMAT(1X,2F6.2/1X,2F6.2):110 FORMAT(1X,2F6.2/1X,2F6.2)不等同于不等同于:110 FORMAT(2(1X,2F6.2):110 FORMAT(2(1X,2F6.2)它产生如下结果它产生如下结果:12.34 1.00 12.34 1.00 2.00 3.54 2.00 3.54两个记录两个记录 3.3.如果在格式说明语句中包含有重复使用编如果在格式说明语句中包含有重复使用编辑描述符组辑描述符组,则当格式说明用完后再重复使用时则当格式说明用完后再重复使用时,只有最后一个描述符组只有最后一个描述符组(包括其重复系数包括其重复系数)和它和它右面的

44、编辑符被重复使用右面的编辑符被重复使用.如：如：WRITE WRITE（*,100*,100）K,S,J,HK,S,J,H100 FORMAT100 FORMAT（1X,21X,2（I3,F6.2I3,F6.2）如：如：WRITE(*,100)A,B,C,D,E,F,G,H,X WRITE(*,100)A,B,C,D,E,F,G,H,X100 FORMAT(1X,2(F6.2,2X),F7.2,2X,2(F8.2,2X),F10.4)100 FORMAT(1X,2(F6.2,2X),F7.2,2X,2(F8.2,2X),F10.4)6678810 127.89 11.94 18.79 118.

45、20 10182.12 127.201478101278.66 98.80 1836.7760 7.7.如果有输出量而格式说明中无相应的编辑描述符如果有输出量而格式说明中无相应的编辑描述符(非非X,H X,H 型型),),则有如下错误信息则有如下错误信息:run-time F6202:WRITE(CON)run-time F6202:WRITE(CON)5.5.在执行格式输出时在执行格式输出时,系统对输出表列和格式说明同系统对输出表列和格式说明同时扫描时扫描.按格式说明中各字段编辑描述符的次序输出各值按格式说明中各字段编辑描述符的次序输出各值,X,X、H H型编辑符不要求输出表中有相应的输出量

46、，而型编辑符不要求输出表中有相应的输出量，而I I，F F，E E编辑描述符则要求必须有相应的输出量才能输出。编辑描述符则要求必须有相应的输出量才能输出。6.6.可以有可以有“空格说明空格说明”，如，如FORMATFORMAT（）。用来输出（）。用来输出一个空行。一个空行。7.7.遇格式说明的右括号或斜杠时遇格式说明的右括号或斜杠时,结束本行打印结束本行打印.但只但只要输出表列中还有未输出量要输出表列中还有未输出量,将重复使用格式说明或按斜将重复使用格式说明或按斜杠后面的格式说明组织输出杠后面的格式说明组织输出.8.FORMAT 8.FORMAT语句可以与语句可以与WRITEWRITE语句相邻

47、语句相邻,也可以放在程也可以放在程序中任一位置序中任一位置.不用不用FORMATFORMAT语句的格式输出语句的格式输出.例如例如:WRITE(*,100)X,Y,Z,I WRITE(*,100)X,Y,Z,I100100 FORMAT(1X,F6.2,2X,F6.2,2X,F6.2,2X,I3)FORMAT(1X,F6.2,2X,F6.2,2X,F6.2,2X,I3)可以看出可以看出,WRITE,WRITE语句的一般形式为语句的一般形式为：WRITE(WRITE(输出设备号输出设备号,格式说明格式说明)输出表列输出表列可写成可写成:WRITE(*,WRITE(*,(1X,F6.2,2X,F6

48、.2,2X,F6.2,2X,I3)(1X,F6.2,2X,F6.2,2X,F6.2,2X,I3)应用举例应用举例 例例:打印九九表打印九九表 PRINT 1 PRINT 1 1 FORMAT(1X/9X,28H*A MILTIPLICATION TABLE*)1 FORMAT(1X/9X,28H*A MILTIPLICATION TABLE*)DO 20 I=1,9 DO 20 I=1,9 DO 20 J=1,9 DO 20 J=1,9 K=I*J K=I*J PRINT 2,I,J,K PRINT 2,I,J,K 2 FORMAT 2 FORMAT(11X,2X,I2,4X,*,4X,I2,

49、4X,=,4X,I2)(11X,2X,I2,4X,*,4X,I2,4X,=,4X,I2)20 CONTINUE20 CONTINUE END END 应用举例应用举例(续续)例例:打印九九表（上三角）打印九九表（上三角）DO 10 I=1,9 DO 10 I=1,910 WRITE(*,20)(J,I,J*I,J=1,I)10 WRITE(*,20)(J,I,J*I,J=1,I)20 FORMAT(11X,9(2X,I1,*,I1,=,I2)20 FORMAT(11X,9(2X,I1,*,I1,=,I2)END END 例例2 2 借款额的计算借款额的计算.假如你向银行借款假如你向银行借款,你

50、应当你应当先估计一下你每年能还多少钱先估计一下你每年能还多少钱,才能确定你最多才能确定你最多能借多少钱能借多少钱.计算公式计算公式:其中其中I=1+r,rI=1+r,r是年利率是年利率 INTEGER D WRITE(*,10000)READ(*,120)N,P,R T=(1+R)*N A=12*P D=(T-1)*A/(T*R)WRITE(*,200)N,P,R,D10000 FORMAT(INPUT THE YEARS OF INSTALLMENT,&THE INSTALLMENT AND INTEREST)120 FORMAT(I3,F6.2,F6.2)200 FORMAT(YEARS