For90 第3篇基本语句.ppt

选择恰当的数据类型：运算速度、范围、精度、注意实数的误差 整型数据运算速度快，在机内存储没有误差，但能表达的值的范围较小； 实型数据能表示小数、分数及不同的精度，表达的值的范围大，但数的外部表示和机器存储会有误差。 例，10.2，在机内表示可能为10.1999998。 使用实数时，尽量避免作相等或不相等的比较 例：A是实型变量，对其与10.2作相等与否比较，不能写成 ：IF（A==10.2） PRINT *,A 应改写为：IF（ABS(A-10.2)1.0E-6）PRINT*，A 带控制信息表的输入输出 1、带控制信息表的读语句(P49) READ（说明符1，说明符2，…说明符n）输入表 关键字=指定参数 这里的说明符是指一些附加的功能（例如，指示读入是否出错，出错如何处理等），这些功能每一个可写成一个控制说明符，彼此用逗号分开，全部控制说明符用一对括号括起，写在读关键字和输入表之间，称为控制信息表。 例如： WRITE(说明符1,说明符2,…说明符n)输出表 WRITE(UNIT=6,FMT=‘(1X,2F8.2)’,IOSTAT=M)X,Y 各部分与输入语句中基本相同。 例: program main real::a,b integer::m read *,a,b WRITE(UNIT=6,FMT=(2F8.2),IOSTAT=m) A,B print *,m end 二、 编辑符的类型必须与输入（或输出）表中对应位置数据的类型一致，否则出错。 三、 编辑符个数和变量个数应相等，如编辑符个数变量个数，则多余编辑符不起作用；如编辑符个数变量个数，则重复使用格式说明，每重复一次产生一个新纪录。 * 3． /斜杠编辑符 作用：结束本记录的输出并开始下一个记录的输出 注意：1.如两个连续斜杠，在输完前面记录后，空一行再输出 2.如在编辑符的最后出现一个斜杠在输出完记录后，再输出一个空行 * 例： WRITE(*,(XYZ,ABC)) 结果： XYZABC 又如： 改用格式串 WRITE(*, “(‘XYZ’,/,‘ABC’)”） XYZ ABC 改用格式串 WRITE(*, “(‘XYZ’,///,‘ABC’)”） XYZ 空两行 ABC * 4． \反斜杠编辑符 作用：使数据输出时不结束本行，下一语句输出的数据从本行末开始输出。 例： integer::x,y x=123;y=456 print (x=,i3,\),x print (2x,y=,i3),y end X=123 y=456 部件号是必需的，可用*代表部件号 READ(UNIT=5,FMT=‘(4I3)’,IOSTAT=M)A,B,C,D 也是必需的，指定编辑格式 该说明符是可选的， M是任意一个整型变量名，也可是整型数组元素名 READ语句执行完后，M的状态如下： M= 0 读正常 正整数 读出错 负整数 遇文件结束 带控制信息的输出语句(P51) WRITE(*,(2F8.2),IOSTAT=m) A, B * §3.4.2 有关一个记录的编辑格式说明 1．?一个记录的编辑格式由它所需的各种类型编辑符组合在一起，彼此用逗号分开，并用括号括起来，再在外面加上单撇号（或双撇号）做定界符。如： ‘(编辑符1，编辑符2，……，编辑符n)’ 例：PRINT ‘(1X,F3.1,”AND”,F3.1)’,X,Y 例1： READ（*，100）A，B，C 100 FORMAT（10F8.3） !!多出7个F8.3不用，不影响语句的执行 例2： PRINT ‘(1X,I4,F6.1,E10.3)’,A,B,C,D,E,F,G,H 规定一行内I/O三个数，如一行输完后， I/O表还有内容未输，则按此行数据格式在下一行继续I/O。 A B C D E F G H 这样同一列的数据类型必须一致。 READ（*，‘（10F8.3）’）A，B，C * 四、记录编辑格式中如有相连的几个相同的编辑符，则可简化为一个编辑符，只需在前面加上重复系统数， 例： PRINT ‘(1X,F6.1,F6.1,I4,I7,I7,I7)’,A,B,C,D,E,F 也可写成： PRINT ‘(1X,2F6.1,I4,3I7)’,A,B,C,D,E,F * 五、相同的编辑符串连续出现时，可简化为1串，用括号括起来，前置重复系统数。 例： PRINT ‘(1X,F5.1,2I4,F5.1,2I4,E10.3)’,A,B,C,D,E,F,G 可写为： PRINT ‘(1X,2(F5.1,2I4),E10.3)’,A