fortran程序设计.第6章节.pptVIP

[例6.7]从一篇文章中查出包含多少个CHINA。假设文章有K行，每行80个字符。 CHARACTER LINE*80, WORD*5 PARAMETER (WORD=’CHINA’) N=0 READ *, K DO 10, I=1, K READ *, LINE J=1 20 L=INDEX(LINE(J:80), WORD) IF (L .EQ. 0) THEN J=81 ELSE N=N+1 J=J+L+5-1 END IF IF (J .LE. 76) GOTO 20 10 CONTINUE PRINT *, ‘THE NUMBER OF CHINA IS’, N END 习题 用双精度数据计算sinx=x-x3/3!+x5/5!-…+(-1)n-1*x2n-1/(2n-1)!。直到第n项的绝对值小于10-15为止。 输入一个单词，将它按逆序打印出来（如输入FORTRAN应打印NARTROF）。 打印出以下图案，要求用字符型变量。 * *** ***** ******* ********* ******* ***** *** * 4. 输入10个国家名，将其中按字母顺序在最前面的打印出来。 FORTRAN语言--FORTRAN 77结构化程序设计 第六章 FORTRAN的数据结构6.1 程序中的数据结构 程序处理的对象是数据。前几章用到的数据类型是最简单的，称为基本类型数据。有时所处理的数据对象比较复杂，数据之间存在某种内在联系，例如一个职工的人事数据包括：职工名、职工号、性别、年龄、住址、职务等。这些数据都属于同一个职工的数据。 在编写程序时不仅需要考虑程序本身的结构，即操作语句间的结构关系，还要考虑数据的结构，要清楚数据的特性及数据间的联系，设计出适当的数据结构，然后考虑用什么样的算法。例如学生记录那样的数据结构可以用数组来实现。 对于同一个问题的求解，可以采用不同的数据结构和不同的算法。对不同的数据结构有不同的算法，它们的复杂程度不同。选择合适的数据结构，可以降低算法的复杂程度，因此，在程序设计中应重视数据结构的设计。 在计算机高级语言中提供实现各种数据结构的功能，用数据类型表示不同的数据结构。每种高级语言都规定它可以使用的数据类型。 三类数据结构： 1）基本类型：最基本的数据项，是不可再分的。基本类型包括整型、实型、双精度型、复型、逻辑型等类型 2）构造类型：由已知类型，按一定规则构造而成的复合类型数据，包括数组、记录、文件和集合等 3）指针类型：用于构造各种形态的动态数据结构，如链表、队、栈、树、图等 在FORTRAN 77中基本类型有以下六种： 整型 实型 双精度型 复型 逻辑型 字符型 6.2 双精度类型数据 实型提供7位有效数字，双精度型提供15~17位有效数字。 双精度常数要用指数形式表示，将实数中表示指数的字母E改成字母D即可。 例如：1示为1+0 0.123 表示为1.23D-01 [例6.1] 分数序列2/1，3/2，5/3，8/5，13/8，21/13…，求出这个序列的前20项之和。Fibonacci数列：1、1、2、3、5、8、13、21...。 DOUBLE PRECISION A, B, C, S S=0.0D0 A=1.0D0 B=1.0D0 C=A+B DO 10, I=1, 20, 1 S=S+C/B A=B B=C C=A+B 10 CONTINUE PRINT *, ‘S=’, S END 6.3 复型类型数据 FORTRAN提供复型数据结构，用复型变量存放复数的实部和虚部，并且直接进行复数运算。 在程序中要对复型变量作出说明。但只在本程序单位中有效。说明语句可用COMPLEX语句或IMPLICIT语句。例如： COMPLEX C, D IMPLICIT