Visual Fortran90第8章.pptVIP

第8章 字符型数据 8.1 字符型数据基础 8.1 字符型数据基础 字符型变量的类型说明： 字符型变量的类型说明： 类型说明 8.1.2 字符子串 8.1.3 字符表达式与字符赋值语句 字符型赋值语句 8.1.4 字符关系表达式 8.2 字符型数据的输入与输出 8.3 字符型数组 程序设计举例（P206） 例8-5 从键盘上输入5个城市的名称（用汉语拼音表示），然后按从小到大的顺序排序。 习题8-4（1）输出*号图形 8.4 用于字符处理的内在函数 4.子串位置函数（INDEX） 5.字符串比较函数（LGE、LGT、LLE和LLT） 8.5 字符型数据作为过程变元及函数值 字符型数据作为函数过程变元 主调程序 2.字符型数组作为虚元 字符型数组作为虚元 例8-8 字符型虚实数组元素长度不一致 主调程序 8.5.3 字符型数据作为子例过程变元 例8-9 编一子例子程序，将一字符数组中各元素连接成一个长串。 主调程序 8.6 程序举例（P213） 例8-13: 验证一字符串是否为“回文”。 引申问题：如何判断一个整数是否是回文？ 本章小结 PROGRAM CHAR_8 IMPLICIT NONE CHARACTER(LEN=5),DIMENSION(1:4)::S CHARACTER(LEN=3)::MAX_STRING,R S=(/POUND,FRANC,DINAR,RUPEE/) R=MAX_STRING(S) PRINT*,最大字符串为：,R END PROGRAM 说明函数类型 实数组长度为5 POU NDF RAN CDI 最大字符串为：RAN 函数子程序的副作用：函数子程序的功能是通过函数result后边的变量名返回函数值。但，若某些虚元的INTENT属性设置为“OUT”或缺省INTENT属性，这些虚元的值在函数中被修改时，与之对应的实元也会发生变化，这称为函数的“副作用”。 子例子程序的虚元也可以是字符型变量和数组，与函数子程序的使用方法相似。由于子例子程序不能通过过程名返回值，只能通过虚实结合带回值，因此子例子程序不存在副作用。 SUBROUTINE LINK_STRING(S,S_RES,N) IMPLICIT NONE INTEGER,INTENT(IN)::N CHARACTER(LEN=15),DIMENSION(:),INTENT(IN)::S CHARACTER(LEN=*),INTENT(OUT)::S_RES INTEGER::I S_RES=TRIM(ADJUSTL(S(1))) DO I=2,N S_RES=TRIM(S_RES)// //TRIM(ADJUSTL(S(I))) ENDDO END SUBROUTINE 假定形状数组作虚元。对每个虚元明确指明INTENT属性 长度为*，则取实元长度 PROGRAM LINKER IMPLICIT NONE INTERFACE SUBROUTINE LINK_STRING(S,S_RES,N) INTEGER,INTENT(IN)::N CHARACTER(LEN=15),DIMENSION(:),INTENT(IN)::S CHARACTER(LEN=*),INTENT(OUT)::S_RES END SUBROUTINE END INTERFACE CHARACTER(LEN=15),DIMENSION(1:4)::SS CHARACTER(LEN=90)::SS_RES READ*,SS CALL LINK_STRING(SS,SS_RES,4) PRINT*,TRIM(SS_RES) END PROGRAM 假定形状数组作虚元，主调程序要写接口块 实元长度为90 I am a, Chinese. , I love my ,motherland. I am a Chinese. I love my motherland. 例8-11 统计英文文章中单词及空格的个数。 共N行,每行40个字符 算法: 按行统计,计数器语句统计个数 NW=NW+1 NB=NB+1 引入标记变量标记是否是单词的首字母: LABEL=0 当前是空格 LABEL=1 当前是字母 首字母: 前一次LABEL=0 ,当前LAB