F90第四章.ppt

第四章 数据有格式输入输出 4.1 概述 4.1 概述 4.2 格式说明与格式编辑符 4.2 格式说明与格式编辑符 4.2 格式说明与格式编辑符 4.2 格式说明与格式编辑符 4.2 格式说明与格式编辑符 4.2 格式说明与格式编辑符 4.2格式说明与格式编辑符 4.2格式说明与格式编辑符 4.2 格式说明与格式编辑符 4.3 整数有格式输入输出 4.3 整数有格式输入输出 4.3 整数有格式输入输出 4.3 整数有格式输入输出 4.3 整数有格式输入输出 4.3 整数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.4 实数有格式输入输出 4.5 复数有格式输入输出 4.6 字符串有格式输入输出 4.6 字符串有格式输入输出 4.6 字符串有格式输入输出 4.6 字符串有格式输入输出 4.7 逻辑值有格式输入输出 4.7 逻辑值有格式输入输出 4.7 逻辑值有格式输入输出 4.8 二、八、十六进制有格式输入输出 4.9 任意数据类型有格式输入输出 4.10 不可重复编辑符 第四章 数据有格式输入输出 4.6.1 格式 字符串有格式输入输出, A 编辑符： [r]A[w] 其中：r为A编辑符重复次数。 w为字符串输入输出域宽。 缺省w,域宽为输入和输出表中对应字符型变量的长度。 示例： CHARACTER s1*5,s2*4,s3*3,s4*3 READ 24,s1,s2,s3,s4 24???? FORMAT(A5,A4,2A3) PRINT *,s1//s2//s3//s4 END 第四章 数据有格式输入输出 设：字符型变量声明长度为L。 W=L,按域宽依次截取字符串赋予对应变量,不足补空格、多余字符截去。 WL,按域宽截取左侧子字符串输出。 WL,则将表达式值左补空格至域宽输出。 缺省域宽w,取输入表中对应字符型变量声明长度。 输入字符串中的引号、逗号和空格按一般字符对待。 4.6.2 输入 第四章 数据有格式输入输出 4.6.3 输出 W=L,按域宽输出字符串,字符串中空格有效。 PRINT (1X,#,A15,#),ABC??//DEFG//?HI//J?K‘ 程序执行后,输出结果为#ABC??DEFG?HIJ?K#。 WL,则按域宽截取左侧子字符串输出。 PRINT (1X,#,A10,#),ABC??//DEFG//?HI//J?K‘ 程序执行后,输出结果为：#ABC??DEFG?# WL,则将表达式值左补空格至域宽输出。 PRINT (1X,#,A18,#),ABC??//DEFG//?HI//J?K‘ 程序执行后,输出结果为：#???ABC??DEFG?HIJ?K#。 第四章 数据有格式输入输出 字符串编辑符和H编辑符：在输出数据中插入提示信息。 1、字符串编辑符：“字符序列”或‘字符序列’。 READ*, I,J,K PRINT 25,I,J,K 25 FORMAT(1X,’I=‘,I3,’ J=‘,I3,’ K=‘,I3) END 输入：125，-5，980 2、H编辑符：nH字符序列 其中：n为字符序列中字符个数。 H后为不加引号的字符串。 25 FORMAT(1X,2HI=,I3,3H J=,I3,3H K=,I3) 4.6.4 字符串编辑符和H编辑符 第四章 数据有格式输入输出 L 编辑符用于逻辑值的有格式输入输出： [r]L[w] 其中：r为L编辑符重复次数。 w为逻辑值输入输出域宽。 缺省w,域宽为2。 程序示例： LOGICAL log1,log2,log3,log4 READ 26,log1,log2,log3,log4 PRINT 27, log1,log2,log3,log4 26????? FORMAT(L,L1,L2,L3) 27????? FORMAT(1X,L,L1,L2,L3) END 4.7.1 格式 第四章 数据有格式输入输出 4.7.2 输入 域宽内首个非空格或非小数点“.”字符是“T”或“t”,则输入为.TRUE.,并赋值;若是“F”或“f”,则输入为.FASLE.。 域宽内T、t、F、f后可跟任意字符。