资源预览内容
第1页 / 共47页
第2页 / 共47页
第3页 / 共47页
第4页 / 共47页
第5页 / 共47页
第6页 / 共47页
第7页 / 共47页
第8页 / 共47页
第9页 / 共47页
第10页 / 共47页
亲,该文档总共47页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
第七章 输入和输出,7.1 输入输出的概念 7.2 表控输入 7.3 表控输出 7.4 简单的格式输入输出语句 7.5 含简单控制信息表的输入/输出,7.4 格式输入/输出,一. 简单的格式输入输出 格式:READ f,输入表列 PRINT f,输出表列,功能:实现数据信息的输入和输出,说明: 1.f是格式标识符,用来指出数据在输入输出中的编 辑格式 2.输入输出表列是由一个或多个用逗号分隔的变量 名,数组名,数组元素名及字符串名等组成,例: READ f,I,J,k PRINT F,A,B,C,二. 格式标识符 FORRAN77规定有五种格式标识符: *、字符常数、语句标号、变量名,1. * 当格式标识符是一个星号*时表示输入输出是表控格式因此表控格式实际上是最简单的格式输入输出语句 例: READ *,I,J,K,A,B,C PRINT *,X,Y,Z 这两条语句表明数据信息的输入输出按系统规定的格式进行,同时所使用的输入输出设备也是由系统指定的,例: READ (I4,F10.4,F10.4),K,A,B PRINT (1X,I6,3X,F10.4,3X,F10.4),K,A,B,说明: (I4,F10.4,F10.4)和(1X,I6,3X,F10.4,3X,F10.4) 称为格式标识符(字符常数型),格式说明符必须用 单引号括起来 括号中的各项称为格式说明,每项之间用逗号隔开,2.字符常数 将数据信息输入输出的格式用一字符常数的形式来表示,这样各数据信息的输入输出按用户指定格式进行,各格式说明中的字母称之为编辑描述符. 例:I4中的I表明该数据是整型, F10.4中的F表明该数据是实型,格式说明中的数值表明该数据的宽度 例: I4表明该数据是整型输入输出宽度为4位. F10.4表明该数据是实型输入输出宽度10位 其中小数位占4位.实际中小数点也占一位,3.标号 格式符用一个语句标号的形式出现,这个语句标号所表示的语句必须是格式语句(FORMAT语句),例: READ 10,I,J,K 10 FORMAT (I3,I5,I8) PRINT 20,X,Y,Z 20 FORMAT (1X,F10.2,F10.2,F10.4),上述语句用字符常数来表示时为 READ (I3,I5,I8),I,J,K PRINT (1X,F10.2,F10.2,F10.4),X,Y,Z,说明: 1. 语句标号必须是整型常数,变量名必须是整型变量名 2. 该语句不能用于一般变量赋值,其值不能参加算术运算,4.变量名 当格式标识符是标号变量名时,这时其值是通过赋标号语句来定义的 格式: ASSIGN (语句标号) TO 变量名 功能: 将指定的语句标号值赋给指定的整型变量中,例: ASSIGN 10 TO NUM READ NUM,I,J,K NUM FORMAT (I3,I5,I8),三 编辑描述符,1. I 编辑描述符2. F 编辑描述符3. E 编辑描述符7. L 编辑描述符5. 可重复的编辑符6. X 编辑描述符7. 撇号 和 H 编辑描述符 8. 斜线 编辑描述符,下一节,1. I编辑描述符 格式: IW 功能: 用于整型数据的描述.指明被编辑的数据为整型 宽度为W.,说明: 1. I 说明被编辑的数据为整型 2. W 是整型数据允许的最多位数即宽度,例2: PRINT 10,I,J,K,L 10 FORMAT (1X,I6,I7,I8,I8)输出记录: -12 -973 214 69 I6 I7 I8 I9,2. F 编辑描述符 格式: FW.d,功能: 用于实型数据的描述 说明: 1.F说明被编辑的数据为实型 2. W说明字段的总宽度 3. d说明小数点占的宽度,例2:不带小数点的输入 READ 7,A,B 7 FORMAT (F6.2,F7.2) 若输入记录为: 12345 678912 F6.2 F7.2,计算机赋值的过程: 1.根据W的值取前六位数字字符 2.按d值从数字字符串的右边截d位,再加上小数点 3.将该值赋给输入变量表列的第一个变量 7.后面的情况以此类推 于是 A=123.45 B= 6789.12,计算机赋值的过程: 1.根据W的值 取前6位数字字符 2.将其赋给输入变量表列中的第一项 3.后面的情况以此类推于是 A=29.672 B=0.8946,例3: 自带小数点 READ 10,A,B 10 FORMAT (F6.2,F6.2) 输入记录: 29.6720.8946 F6.2 F6.2,注: 1. 自带小数点输入时,d不起作用.即自带小数点优先. 2. 对w,d的取值一定要根据实际来,否则会出现大数出 错,小数印丢,但w取太大也会发生难以表示的情况, 如 7.2*1036,7.2*10-36 ,这就只有用 E 编辑符来表示了.,3.E编辑描述符,格式:Ew.d 功能:用于以指数形式描述实型数,说明: 1.E是指明被编辑的数据是指数型 2.w,d的含义同F型,例: READ 5,A,B,C 5 FORMAT(E11.4,E12.2,E12.2) 输入: 85132E-28 796E+15 414E-10 E11.4 E12.2 E12.2 结果:A=8.5132*10-28 B=7.96*1015 C=7.14*10-10,(3)E前的11-4位从右向左截取d的位数,在其前面打小数点 (4)将这值赋给输出变量表列中的第一项以后各项以此类推.,计算机赋值过程: (1)根据w取前11位字符数字 (2)将E后的数字字符作为指数部分,*指数形式输出 指数形式用标准形式输出即输出的整数位为0,小数点后是一非零的数,说明: 1.负号是必需的,正号可任选 2.小数点前为零 3. Z1Z2前的符号必需 7. X1Xd是小数位,有效数据从左开始取d位,(d+1)位四舍五入 5.Z1Z2是00-99的整数,标准形式: 0.X1X2XdE Z1Z2,*指数形式输出 指数形式用标准形式输出即输出的整数位为0,小数点后是一非零的数,例: PRINT 6,A,B,C 6 FORMAT(1X,E10.3,E13.4,E13.4),若A=-1.87,B=0.178,C=-178.558 输出: -0.187E+01 0.1780E+00 -0.1786E+03 1 2 3 4 2 4 4 2 4 4,7. L编辑描述符 格式: LW 功能: 用于逻辑性数据的描述,例: (1)自由格式输入 READ *,A,B,C,D输入的数据: T,.TRUE.,F,FF,说明: 逻辑数据输入时, 若第一个非空格的字符是T或 紧跟一T时,则作为.TRUE. 若第一个非空格的字符是F或 紧跟 一F时,则作为.FALSE. 如: T,.TRUE.,.T.,TP等价,例1: 编辑符 输入字符 输入的值 L3 T .TRUE. L5 FALSE .FALSE. L4 TRUE .TRUE. L6 .TRUE. .TRUE. L4 .FAL .FALSE. L3 FFF .FALSE. L1 F .FALSE. L5 F T F .FALSE.,(2) 格式输入 READ (*,10) A,B,C,D 10 FORMAT(L3,L4,L1) 输入数据: T T F F 结果A,B 为.TRUE.,C,D为.FALSE.,(3)格式输出 PRINT 10,A,B,C,D 10 FORMAT (1X,L2,L2,L4,L4) 若 A,B为真,C,D为假输出值为: T T F F 2 2 4 4 输出时按字段宽度输出,字符T或F打在字段的右端,(4) 自由格式输出 PRINT *,A,B,C 其值为.TRUE.时输出 T 其值为.FALSE.时输出 F 输出所占列数由机器定,5.可重复的编辑符 对于重复出现的编辑符,可以只写一次只需在前面加一个重复数即可 格式: 可重复的编辑符一般形式如下: nIW ,nIW.d ,nEW.d ,nLW (n为重复数),例: 100 FORMAT(1X,I10,I10,F8.3,F8.3,5X,E16.7,E16.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 (2(1X,I5,F10.2,E8.2),6. X编辑描述符 格式: nX 功能: 对数据的输入输出的位置进行控制 说明: n为空格的个数,例:输入: READ 5,A,B 5 FORMAT (4X,2F7.1),43.1 52.4 结果: A=43.1 B=52.4, READ 5,A,B 5 FORMAT (4X,F7.1,2X,F7.1),输入记录:,输入记录:,43.1 52.4,结果: A=43.1 B=52.4, PRINT 6,A,B 6 FORMAT (1X,F6.2,15X,F6.1,-15X,I4),若A=43.1 B=52.4 结果: A= 43.1 B=52.4,输出: PRINT 6,A,B 6 FORMAT(1X,A=,F7.1,4X,B=,F7.1),2457,若A=123.56 , T=2456.3 , I=2457,输出: 123.56 2456.3,
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号