资源预览内容
第1页 / 共8页
第2页 / 共8页
第3页 / 共8页
第4页 / 共8页
第5页 / 共8页
第6页 / 共8页
第7页 / 共8页
第8页 / 共8页
亲,该文档总共8页全部预览完了,如果喜欢就下载吧!
资源描述
7.3 格式输出 格式输出语句由两部分组成:输出语句和输出格式语句。输出语句的一般形式为: WRITE(*,L) 输出表列 或: PRINT L 输出表列其中:* 代表隐含的输出设备,L 指输出格式语句的标号。 输出格式语句的一般形式:L FORMAT(1X,S)其中:L 输出格式语句的标号,1X 纵向走纸符,S 输出格式,用不同的“格式编辑符”(简称“编辑符”)来实现指定的输出格式,各格式间用逗号相隔。 FORMAT语句又叫“格式语句”,是一个非执行语句,本身不产生任何操作,只是提供输入或输出的格式。FORMAT语句可以出现在程序的任何地方(但必须在PROGRAM语句之后和END语句之前,如果在子程序中用FORMAT语句,则应在子程序定义语句之后)。系统按WRITE语句或PRINT语句中指定的语句标号找到相应的FORMAT语句,并按FORMAT语句所规定的格式对数据进行输出。注意,PRINT语句中不能再用“*”,PRINT语句中的第一个标识符是语句标号而不是要打印输出的数据。输出格式分两类 基本格式 7.3.1 I格式(又叫整数格式) 一般形式:Iw 或:Iw.m其中:w 一个数据占的位数宽度(又称“字段宽度”),m 需要输出的最少数字位数。例1: WRITE (*,100)M,N 100 FORMAT(1X,I4,I4)如果M=40,N=-12,则输出如下:40 -12 例2: WRITE (* , 100) I,J,K 100 FORMAT(1X,I5.3,I6.3,I4)若 I=1234, J=-24, K=24689 则输出为:1234 -24 * (1)数字在指定的区域内向右端靠齐,如果数字位数比指定的字段宽度w小,则左边补以空格。负数的符号也包含在字段宽度内。 (2)如果数字的位数超过了规定的字段宽度w,则不输出有效数据,而在该字段宽度范围内充满“*”符号。 (3)如果数字的位数超过了m,则按实际应输出的位数输出(但条件是不能超过w)。m不包括负号所占的一列。7.3.2 F格式(又叫小数型格式) 一般形式:Fw.dw 各数值占的总位数 d 输出数据的小数位数(小数点后的位数)。 例1: WRITE(*,100)A,B,C100 FORMAT(1X,F10.2,F9.3,F8.4)若 A=1234.56, B=3456.78,C=234.56789 则输出:1234.56 3456.780 234.5679 例2: WRITE (* , 100) X,Y100 FORMAT(1X,F10.4,F10.2)若 X=24680135.7, Y=0.0012345, 则输出为:* .00 (1)数字在指定的区域内向右端靠齐,如果数字位数(含小数点和符号位)比指定的字段宽度w小,则左边补以空格;如果数字的位数超过了规定的字段宽度w,则不输出有效数据,而在该字段宽度范围内充满“*”符号。 (2)如果数据的小数位数比指定的小数位数d小,则在小数右边补0以凑足d位;如果小数位数大于d位,则输出时多于的小数位数按“四舍五入”规则舍去。 (3)假设b为数据整数部分的位数,则应使wb+d+1(小数点占一列),如果输出负数,则应保证wb+d+2(小数点和负号各占一列)。 (4)用F格式输出时应注意,由于难以事先确切估计出数据的大小,输出大的数时容易产生“宽度不够”的错误(由于w不够大),输出小的数时会出现丢掉有用数字的情况(由于d不够大而将后面的数字截去),这就是“大数印错,小数印丢”。7.3.3 E格式(又叫指数型格式) 一般形式:w.dw 各数值占的总位数,d 输出数据的小数位数(小数点后的位数)。例1: WRITE (*,100)X,Y 100 FORMAT(1X,E12.4, E12.5 )如:X=3.17 Y=1234.56 则输出结果为:0.3170E+01 0.12346E+04。 (1)采取标准化的指数形式输出一个实数,d为以指数形式出现的数据的数字部分的小数位数。 (2)指数部分一般占4列,其中字母“E”和指数的符号各占一列,指数2列。 小数部分d列,再加上一个小数点和小数点前的一个“0”,因此要保证wd+6,输出负数时,wd+7。 (3)有的计算机系统允许有较大的实数范围,FORTRAN77提供了一种扩充的编辑符, 可以输出三位或四位指数。这种编辑符的形式为:Ew.dEe,用e指定指数的位数。有的计算机系统的FORTRAN编译系统已根据其允许的实数范围,自动将指数的位数改为3位或4位,不必在RORMAT语句中用Ew.dEe编辑符单独为某些数据指定所需的指数位数,只需写Ew.d形式即可,输出时系统会给出三位(或四位)指数。7.3.4 G格式 G格式可以根据输出的实数大小决定用小数形式(F格式)输出或指数形式(E格式)输出。当输出大数值或小数值时自动按E格式,当输出的数不大不小时用F格式。其一般形式为:Gw.d (1)凡绝对值小于0.1的数或绝对值大于10d的数用E格式输出;其余的数用F格式输出。 (2)用E格式输出时,最后4列为指数部分,而用F格式输出时最后4列留空。 (3)用指数形式输出时,格式同Ew.d;用F格式输出时,不是按Fw.d形式输出,d规定的不是小数位数而是打印出来的全部数字的位数,小数位数根据数值大小和d的大小而定,这样做的目的是使数的整数部分能全部保留,而适当截去小数部分,以保证输出数值的正确性。因为小于10d的数,其整数部分最多为d位,因此,可以全部输出这d位整数,小数的位数为:d-(数值整数位数)。7.3.5 D格式 一般形式:Dw.a用于双精度数据的输出,使用方法与E格式相仿,只是把字母“E”换成“D”。7.3.6L格式 一般形式:Lw用于逻辑型数据的输出,w 输出数据的字段宽度。逻辑值“.TRUE.,在输出时打印一个字母T;逻辑值.FLASE.,在输出时打印一个字母F。T和F打印在字段范围内的最右端。7.3.7 A格式 一般形式:Aw 或:A用于字符型数据的输出,w为字段宽度,不指定w时(即形式:A),按字符变量的实际长度(即程序定义该变量时的长度)输出。 字符串在指定的区域内向右端靠齐,如果字符串的位数比指定的字段宽度w小,则左边补以空格;如果字符串的位数超过了规定的字段宽度w,则只输出最左面的w个字符。7.3.8 (撇号)格式 用来插入所需的字符串,例如: WRITE(*,100) I,J100 FORMAT(1X,I=,I3,J=,I4)如果I=123,J=2347,则输出:I=123J=2347 如果需要输出的字符包括撇号,则用两个连续的撇号代表一个被输出的撇号字符。例如: CHARACTER *10 STUD READ * STUD WRITE(*,10) STUD10 FORMAT(1X,A,IS LIS STUDENT.) END如果输入给STUD的值为ZHANG SUN,则输出为:ZHANG SUN IS LIS STUDENT.7.3.9 H格式 一般形式:nH 用来输出字符常量,与撇号格式相似。n为字符串中字符的个数。如上面的例子(I=123,J=2347),可改写为: WRITE(*,100) I,J100 FORMAT(1X,2HI=,I3,2HJ=,I4)则输出与上例相同:I=123J=2347 可以单独用撇号格式或H格式输出字符串而不必要求WRITE语句中有相应的输出项。如: WRITE(*,100) 100 FORMAT(1X,ZHANG SUN IS LIS STUDENT.)或:100 FORMAT(1X,26HZHANG SUN IS LIS STUDENT.) 用H格式必须准确地数出字符串中的字符个数,数错了就会造成错误。所以最好不用H编辑符而用撇号编辑符,后者不必数字符,使用方便,字符串界线清楚无误。FORTRAN 77之所以保留H编辑符主要是为了与FORTRAN 66兼容(FORTRAN 66只能用H编辑符输出字符串而没有撇号编辑符)。7.3.10 X格式 一般形式:nX用于输出空格,n 输出的空格数目。即插入n个空格,或者说,使打印的“当前位置”向右移动n列。例: WRITE(*,100)I,A,B100 FORMAT(1X,I3,2X,F6.2,2X,E11.5)当I=146,A=124.32,B=1247.32时,输出为:146 124.32 0.12473E+04如果不用X格式插入空格,数据将连成一片,难以区分开。 注意:不要把2X作为与A对应的格式符,WRITE语句中的I,A,B分别与FORMAT语句中的I3,F6.2和E11.5格式符对应。X格式符不能用来提供整数、实数、以及其它类型数据的输出格式,它只能插入若干个空格。 FORTRAN 77还允许n是负整数,表示从当前位置向左移动n的绝对值列。微机上使用的FORTRAN子集不能使用n为负值的格式符。7.3.11 /(斜杠)格式 斜杠(/)编辑符的作用是:结束本记录的输出并开始下一个记录的输出。例如: WRITE(*,100)I,A,J,B100 FORMAT(1X,I3,F6.1/1X,I3,F6.1)若I=246,A=12.36,J=35,B=173.5,输出结果为:246 12.4 35 173.5 一个WRITE语句输出打印了二行信息,这是由于FORMAT语句中有一斜杠,使之产生两个输出记录(注意,斜杠之后也有一个“1X”,使第二个记录的第一个字符为“空格”,作为纵向走纸符)。 如果有两个连续的斜杠,如:100 FORMAT(1X,I3,F6.1/1X,I3,F6.1)输出完第一行后,空一行,再输出第二行。即:246 12.4(空一行) 35 173.5 如果在编辑符的最后出现斜杠,如:100 FORMAT(1X,I3,F6.1/1X,I3,F6.1/)输出完第二个记录后,再输出一个空行。即:246 12.4 35 173.5(空一行) 7.3.12 重复系数 重复使用的编辑符可以在其前加一个重复系数,其形式为:rIw,rFw.d,rEw.d,rGw.d,rAw,rLw等,r为重复系数。以下两个FORMAT语句等价:100 FORMAT(1X,I3,I3,F10.2,F10.2,F10.2)100 FORMAT(1X,2I3,3F10.2) 如果有以下FORMAT语句:150 FORMAT(1X,I4,2X,F10.2,2X,I4,2X,F10.2,2X)其中下划线的二组编辑符是相同的,可以只写一次而用重复系数使之重复使用:150 FORMAT(1X,2
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号