for90 第8章讲义教材.pptVIP

8.1 字符型数据基础 ; 长度为字符的个数: 起止界不算 两个单撇号或双撇号算一个 空格为有效字符算一个;比其它变量多长度说明;个别优于统一;6、有时可把长度值写成一个星号，表示此处暂不指明其长度，也可理解为长度任意，但要加括号。例： Character（LEN=*）::CH，PARA Character（*）::CH，PARA Character*（*）::CH，PARA Character（2）:: CH，PARA*（*） 使用范围: （1）具有PARAMETER属性的字符常量 Character(*),parameter::para=‘FORTRAN_90’ 字符串长度取对应的字符常量的长度。 （2）用字符变量作为虚元时，虚元的长度取对应实元的长度 虚元可以和任意长度的实元相结合，有利于提高子程序的通用性。;字符串中一段连续的部分称为字符子串或子字符串，而原字符串称为该字串的母串。 例：已知 A=‘123456’ 则 ‘123’，‘456’是A的子串;字符表达式 ;功能：计算e；转化为V的长度；赋值 例：character :: LONG*8 , SHORT*3 LONG=‘ABCD’; SHORT =‘ABCDEF’ LONG： SHORT： ;用关系运算符把字符常数、字符变量、字符数组元素等字符型数据连接起来的有意义的式子。结果为逻辑型值。 例：‘abc’‘ada’;8.2.1表控格式的输入与输出 ; (1)用字符型编辑符：A 宽度的值同长度的值;（2）用字符型编辑符：Aw w是规定的输入宽度. ; (1)用字符型编辑符：A 按字符变量的实际长度输出，各字符数据间没有空格。;（2）用字符型编辑符：Aw w是规定的输出宽度. ;如果具有Dimension属性，就成为字符数组。 例: character(3),dimension(4)::a A的每个元素的长度均为3 A(1)(1:1)表A(1)中的第1个字符 ;例8-4 用自定格式输入和输出字符型数据。(掌握数据输入格式) 如输入：FORTRAN ;输入：’Harbin’，’Shanghai’，’Anda’，’Beijing’，’Daqing’;习题8-4（1）输出*号图形 算法:引入LINE存放每一行的数据（长度为图形的第一列到最右） LINE子串赋值 输出LINE LINE回归为空串;1.求字符串长度函数，值为数值型 LEN：字符串的长度 例：LEN(‘ASD□□’) 值5 LEN_TRIM：去掉尾部空格后的???度。 例：LEN _TRIM(‘ASD □□’) 值3 注意：若参数是数组名，则结果为数组中元素的长度。 例：CHARACTER(LEN=5),DIMENSION(1:20)::A 则 LEN(A)的值是5。 2.除去字符串尾部空格函数（TRIM），值为字符型 例：TRIM(‘ASD □□’) 值ASD;Ichar 和Iachar:字符向字符序号转化，值为数值型 例： Ichar(‘A’) ！ 值是 65 Ichar(‘REST’) ！ 值是 82 char 和achar :字符序号向字符转化，值为字符型 例: char(82) ！值是 R char(ichar(‘ab’)+4))//’123’ ！值为e123 注意： Iachar和achar只针对ASCII码(其他编码不可)。;;;6.首、尾部空格调整函数（ADJUSTL和ADJUSTR），值为字符型 ADJUSTL（STR1）：首部空格调到尾部 ADJUSTR （STR1）：尾部空格调到首部 其他函数： SCAN、VERIFY……见附录Ⅲ;1.字符型变量作为虚元： 形式：可采用固定长度，长度说明也可采用（*）。 对应实元：字符型变量、字符型数组元素、字符串常量、字符表达式 例8-7 编写函数子程序，实现字符内在函数LEN_TRIM的功能。在主程序中输入一个字符串，对去掉尾部空格部分的字符子串中的字符逆序存放后输出。 例：输入：Good morning！ 打印：!gninrom dooG (1)去尾部空格算法:从右往左