1、第四章第四章 数据的输入与输出数据的输入与输出4.1 整型数的输入输出整型数的输入输出4.2 实型数的输入输出实型数的输入输出4.3 复型数的输入输出复型数的输入输出4.4 逻辑型数的输入输出逻辑型数的输入输出4.5 字符型数据的输入输出字符型数据的输入输出4.6 双精度数的输入输出双精度数的输入输出4.7 其他格式编辑符其他格式编辑符输入输出的三种不同的格式：输入输出的三种不同的格式：1 1表控格式的输入输出表控格式的输入输出2 2有格式的输入输出有格式的输入输出3 3无格式的输入输出无格式的输入输出要素：要素：1 1在什么外部设备上输入或输出在什么外部设备上输入或输出2 2用什么格式输入输
2、出用什么格式输入输出3 3输入输出哪些数据输入输出哪些数据输入与输出编辑符输入与输出编辑符常用输入设备：键盘、卡片机、磁盘常用输入设备：键盘、卡片机、磁盘常用输出设备：显示器、打印机、磁盘常用输出设备：显示器、打印机、磁盘如：如：READ（*，*）X WRITE（*，*）X一般形式：一般形式：READ(,)READ,WRITE(,)PRINT,格式说明：格式说明：*、格式字符表达式、格式字符表达式作用：作用：精确地说明每一个数据应该怎样输入或输出，包括类型、小数点精确地说明每一个数据应该怎样输入或输出，包括类型、小数点位置、有效位数、输出结果的形式位置、有效位数、输出结果的形式1I 编辑符控制
3、输出编辑符控制输出：功能：功能：用于整型数据的输入输出用于整型数据的输入输出格式：格式：IwIw.mrIww输入输出数据字段宽度输入输出数据字段宽度m无符号整数，表示数据输出时最小含有无符号整数，表示数据输出时最小含有的位数，它的位数，它不包括符号位不包括符号位。在输出时，在输出时，m位数，位数，则在整数之前补则在整数之前补0，使宽度为使宽度为m；若；若m位数，位数，则按照实际数输出结果。则按照实际数输出结果。r为重复系数为重复系数4.1 整型数的输入输出整型数的输入输出 例例1设设 J=10，K=-12，L=123 WRITE(*,(I3，I5，I7)J,K,L10-12123注意：注意：1
4、数字在指定的区域内右端对齐，不足数字在指定的区域内右端对齐，不足w则左边补则左边补空格。空格。2负数的符号也包含在字段宽度内。负数的符号也包含在字段宽度内。3如果应输出的列数超过了规定的字段宽度，则不如果应输出的列数超过了规定的字段宽度，则不输出有效数据，以输出有效数据，以w个个*填充。填充。例例2在上例中，如果在上例中，如果 J=-100，则结果为：，则结果为：*-12123 例例3如果将格式串改为：如果将格式串改为：“（I3，I5.4，I7.5）”则输出：则输出：10-001200123 例例4如果如果L=123456 10-0012123456 ！Iw.m：m位数，位数，则在左边用则在左
5、边用0补齐，使宽度为补齐，使宽度为w；若；若w=n+d+2当实型数值大于或等于0.0时，则w=n+d+1用此来确定w的宽度F编辑符编辑符rFw.d 1）实数的输入（三种方式）实数的输入（三种方式）设设a=1.2；b=45.67；c=-8.3527 READ（*，(F4.1,2F10.6)）A，B，C（1）124567-83527 ！不带小数点不带小数点 按按w截取数据，由截取数据，由d决定小数点的位置，按右对齐，空格当决定小数点的位置，按右对齐，空格当0（2）1.245.67-8.3527 ！带小数点带小数点 带小数点，带小数点，d不起作用，小数点记入不起作用，小数点记入w中中（3）1.2，4
6、5.67，-8.3527（表控格式）（表控格式）用自由格式，逗号分隔，每个字段长度必须用自由格式，逗号分隔，每个字段长度必须=d+3+4优点：不必事先估计数的大小，能容纳任意大小的优点：不必事先估计数的大小，能容纳任意大小的数据。数据。Ew.dEe e指定指数的宽度指定指数的宽度E编辑符编辑符例：用例：用E格式输入格式输入A=103.610-5B=3598.4510-8C=-67.24102 READ（*，100）A，B，C 100 FORMAT（E8.2，E12.4，E10.3）（1）10360E-5359845E-8-6724E2 （2）103.6E-53598.45E-8-67.24E2
7、 （3）103.6E-5，3598.45E-8，-67.24E2 例：用例：用E格式输出数据格式输出数据 X=-84.31Y=3.141592Z=0.0187 WRITE（*，200）X，Y，Z 200FORMAT（E10.3，E13.6，E15.6）结果：结果：-0.843E+020.314159E+010.187000E-01规则：规则：1wd+7 数据右对齐，左边用空格填满数据右对齐，左边用空格填满w位位 若若wd 四舍五入取四舍五入取d位位 尾数位数尾数位数d 其后用其后用0补齐补齐注意：注意：一般格式一般格式E16.77+7+2（2个空格，以便阅读）个空格，以便阅读）功能：功能：根据
8、输出实数大小决定用根据输出实数大小决定用F或或E格式输出。格式输出。较大或较小，自动按较大或较小，自动按E格式格式Gw.d条件：条件：1.abs（A）10d 使用使用E格式输入输出格式输入输出条件：条件：10dabs（A）=0.1 使用使用F格式输入输出格式输入输出G编辑符编辑符A=758321.6 G14.7ABS（A）107 用用E格式格式 0.7583216E+08注意：注意：采用采用F格式，格式，d为全部数字的位数为全部数字的位数 优先满足整数位优先满足整数位输入复数，用输入复数，用2Fw.d或或（Fw.d，Fw.d）如：（如：（F8.3，F5.2）1.3456，37.56（1.345
9、6，37.56）5768D-1，2.5E3（0.577，2500.00）！无小数点，则认为时！无小数点，则认为时5.678*0.14.3 复型数的输入输出复型数的输入输出格式：格式：rLw功能：功能：逻辑值的输入输出逻辑值的输入输出规则：规则：输出一个字母，在字段最右段，前面补空格输出一个字母，在字段最右段，前面补空格 输入时按宽度读取，以第一个字母作为逻辑值输入时按宽度读取，以第一个字母作为逻辑值4.4 逻辑型数的输入输出逻辑型数的输入输出格式格式1：rAw1字符型数据的输入字符型数据的输入字符变量的长度字符变量的长度L对格式起一定的作用对格式起一定的作用若若wL，仅保留右边的，仅保留右边的
10、L个字符个字符若若wL，右边加，右边加L-w个空格个空格例：例：CHARATER X*4，Y*10READ（*，100）X，Y100 FORMAT（A5，A7）END输入：输入：BASICFORTRAN4.5 字符型数据的输入输出字符型数据的输入输出结果：结果：X=ASIC Y=FORTRAN2.字符变量的输出，输出形式要有字符变量的输出，输出形式要有w个字符个字符若若wL 右对齐，左边补右对齐，左边补w-L个空格个空格 CHARATER X*4，Y*10 X=BASIC Y=FORTRAN WRITE（*，(A7,2X,A4)）X，Y END输出：输出：BASIFORTA7 2X A4格式格
11、式2：A CHARATER*5 A，B，C READ（*，(A,A,A)）A，B，CWRITE（*，(A,2X,A,2X,A)）A，B，CEND输入：输入：ABCDBASICFORMAT结果：结果：ABCDBASICFORMA例：如下表所示输入：例：如下表所示输入：变量长度变量长度输入串输入串编辑编辑符符接收值接收值说明说明4ABCDEFA6CDEF保留左边保留左边4个个5ABCDA5ABCD 6ABCDEA3ABC右边补右边补3个空格个空格7FORTRANAFORTRANW=7输出：输出：变量长度变量长度变量值变量值编辑符编辑符输出值输出值说明说明6FORMATA2FO 5BASICA5BA
12、SIC 3NEW A6NEW 7FORTRANAFORTRAN 格式：格式：Dw.d数符数符+0+小数点小数点+小数部分小数部分+E+符号符号+指数部分指数部分4位位 3 d 6方法同方法同E格式格式双精度数有双精度数有16位有效数字，位有效数字，则一般采用则一般采用D27.16格式（格式（9+16+2）4.6 双精度数的输入输出双精度数的输入输出注意：注意：对于字符型数据的输入：对于字符型数据的输入：1、在表控格式输入的时候，输入的字符串可以加上在表控格式输入的时候，输入的字符串可以加上撇号，也可省略，撇号不起作用。撇号，也可省略，撇号不起作用。2、在有格式输入的时候，输入的字符串的时候不需
13、在有格式输入的时候，输入的字符串的时候不需要加上撇号，如果输入带撇号，则撇号算入要加上撇号，如果输入带撇号，则撇号算入W宽度。宽度。一）一）X编辑描述符编辑描述符功能功能1：在输出时产生空格在输出时产生空格 1不需变量对应不需变量对应2.是不可重复的编辑符是不可重复的编辑符nXn0 右移光标右移光标K=123L=2001A=34.5 WRITE（*，(I3,I4,F4.1)）K，L，A结果：结果：123200134.54.7 其他格式编辑符其他格式编辑符 将格式串改为：将格式串改为：（I3，2X，I4，3X，F4.1）!X表示空格表示空格 结果：结果：123200134.5功能功能2：输入时，
14、表示跳过输入时，表示跳过n个字符个字符 READ（*，(2X,F7.1)）A 输入：输入：1234.51A=34.51！12跳过跳过二）其他编辑描述符二）其他编辑描述符1撇号编辑符撇号编辑符功能：输入所需的字符串，描述字符串常量。功能：输入所需的字符串，描述字符串常量。2H编辑符编辑符:描述字符串描述字符串nH注意：注意：1.N 必定等于字符串长度，否则编译出错必定等于字符串长度，否则编译出错 2.字符串中空格有意义字符串中空格有意义X=45.7Y=289.7WRITE（*，100）X，Y100 FORMAT（2HX=，F5.1，4HY=，F6.2）END 结果：结果：X=45.7Y=289.
15、70也可也可FORMAT（X=，F5.1，Y=，F6.2）3 3斜杠编辑描述符斜杠编辑描述符作用：结束本记录的输出并开始下一个记录的输出作用：结束本记录的输出并开始下一个记录的输出WRITEWRITE（*，(5HABCDE,/,5HBCDEF,/,1X,5HCDEFG)(5HABCDE,/,5HBCDEF,/,1X,5HCDEFG)）结果如下所示：结果如下所示：ABCDEABCDE BCDEF BCDEF CDEFGCDEFG注意：注意：1.1.如两个连续斜杠，在输完前面记录后，空一行再如两个连续斜杠，在输完前面记录后，空一行再输出输出 2.2.如在编辑符的最后出现一个斜杠在输出完记录后，如在
16、编辑符的最后出现一个斜杠在输出完记录后，再输出一个空行再输出一个空行例：例：WRITE（*，”（XYZ,ABC）”）WRITE(*,”(XYZ,/,ABC)”)END 结果：结果：XYZABCXYZABC又如：又如：改用格式串改用格式串 :“(XYZ,/1X,ABC)”XYZABC改用格式串改用格式串“（XYZ/1X，ABC）”XYZABC4 4冒号编辑符冒号编辑符 作用：结束前一个编辑符的功能。1 变量个数变量个数A和编辑符个数和编辑符个数B、类型上一一对、类型上一一对应，与应，与X，H无关系无关系AB 多次重复使用格式说明，产生一个新的记录多次重复使用格式说明，产生一个新的记录WriteW
17、rite语句和语句和FormatFormat语句的相互作用语句的相互作用例：例：READ（*，100）A，B，C FORMAT（10F8.3）多出多出7个个F8.3不用，不影响语句的执行不用，不影响语句的执行例：例：WRITE（*，100）I FORMAT（I=）输出输出I=，永不停止，原因是漏写了，永不停止，原因是漏写了I4编辑符编辑符2 2用空格式语句来输出一个空行，用空格式语句来输出一个空行，如：如：FORMATFORMAT（）（）此时，此时，WRITEWRITE语句不应有变量输出语句不应有变量输出3 3遇到右括号或斜杠遇到右括号或斜杠/编辑符，表示结束本记录的输出，编辑符，表示结束本记
18、录的输出，但不意味着停止全部输出，只要输出列表中还有未输出变量，但不意味着停止全部输出，只要输出列表中还有未输出变量，将重复使用格式说明或斜杠右边的格式说明组织输出。将重复使用格式说明或斜杠右边的格式说明组织输出。4 4FORMATFORMAT语句和语句和WRITEWRITE语句的位置可以相邻，也可在程序语句的位置可以相邻，也可在程序的任何一个地方。的任何一个地方。5 5用表控格式输出时，在用表控格式输出时，在WRITEWRITE语句中的输出项可以包含语句中的输出项可以包含字符串但在输出时用到字符串但在输出时用到FORMATFORMAT语句，则不能再包含字符串，语句，则不能再包含字符串，否则必须加以说明。否则必须加以说明。50QUESTION？
