fortran数组及其应用.pptx

《fortran数组及其应用.pptx》由会员分享，可在线阅读，更多相关《fortran数组及其应用.pptx（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数组及其应用童传佳童传佳1.1.数组的基本概念数组的基本概念2.数组声明3.数组元素引用4.4.数组的逻辑结构与存储结构数组的逻辑结构与存储结构5.5.数组的输入输出数组的输入输出6.6.给数组赋初值给数组赋初值7.WHERE7.WHERE语句语句8.8.动态数组动态数组 1.1.数组数组的基本概念的基本概念 数组是一个集合，它的元素必须是标量，其标量元素可以属于任何的固有数据类型，派生数据类型，甚至是结构，但数组最关键的一个特征是：数组的所有标量元素必须属于同一个数据类型，并且具有同样的种别参数。这个特征决定了数组是一种功能强大的数据结构，因为存在大量的实际问题，需要用同一个计算过程来处理大

2、规模的同种类型的数据。数组实际上是一组带下标的变量，例如含有五个元素的数组A可写为A(1),A(2),A(3),A(4),A(5)。统计5个数中大于平均值的数据个数结构简单，但是用变量和IF语句较多变量和IF语句较少，但程序结构复杂，需要输入两遍数据使用数组问题都解决，数据规模大的话优势更明显2.数组声明 数数组组包包括括静静态态数数组组与与动动态态数数组组，在在程程序序中中使使用用时时，必必须须进进行行数数组组声明。其一般格式为：声明。其一般格式为：:数组声明表包括了数组名以及维说明表（上、下届及初值）。数组声明表包括了数组名以及维说明表（上、下届及初值）。例如下面都是合法的数组声明：例如下

3、面都是合法的数组声明：INTERGER num(-3:3)!INTERGER num(-3:3)!说明数组说明数组numnum是一个一维整型数组，有是一个一维整型数组，有7 7个元素个元素REAL tcj(-4:2,3:7)!REAL tcj(-4:2,3:7)!说明数组说明数组tcjtcj是一个二维整型数组，有是一个二维整型数组，有2424个元素个元素 若数组声明中含有符号:（双冒号），则允许在声明中给数组赋初值，否则不允许。如：INTERGER:a(3)=(/10,20,30/),b(4)数组a被赋予初值a(1)=10,a(2)=20,a(3)=30.默认下界为1.数组b未赋初值，数组初值

4、默认为0，即b(1)=b(2)=b(3)=b(4)=0DIMENSION语句DIMENSIONDIMENSION DIMENSION 用DIMENSION语句声明数组，数组类型由隐含规则确定，即由数组名第一个字母确定，如：DIMENSION num(3),day(12),ihour(5:7),count(-3:3)其中整型数组有num和ihour，实型数组有day,count。数组类型可结合类型声明语句改变，在上述语句前加上(INTERGER day,count),则全为整型数组。DIMENSION语句中不允许出现符号“:”，不能给数组赋初值。(结合类型声明符则可以）如：DIMENSION:n

5、um(3)=(/10,20,30/)!此语句非法INTERGER,DIMENSION(3):num(/10,20,30/)!此语句合法3.数组元素引用在程序中常常需要引用数组的某个、某些或全部元素，这时得用到数组元素引用INTERGER:a(3)=(/10,20,30/);sum=(a(1)+a(2)+a(3)/3.0(,)数组元素被引用时，若只给出数组名，不指定数组下标，则引用数组全部元素。INTERGER a(8),b(8),c(3,4)a=10 !将10赋值于a数组所有8个元素b=a !将数组a的8个数组元素一次赋值于数组b的8个数组元素c=20 !将20赋值于c数组所有12个元素a(3

6、:7:2)=a(8)+10 !第3、5、7个数组元素赋值20，元素间增加步长为2数组下标可以是整型或实型表达式，若为实型则表达式值将自动取整。3个赋值语句“d(0.315*5+1)=25”、“d(2.575)=25”、“d(2)=25”等价FORTRAN95提供两个内部函数(UBOUND、LBOUND)来检测数组的下标下界和下标上届，在此不多做赘述！4.4.数组的逻辑结构与存储结构数组的逻辑结构与存储结构数组有逻辑结构与存储结构两大特征。数组逻辑结构：从用户角度看，数组是一个与计算机实现无关的抽象的数据表。数组存储结构：从计算机角度看，数组又是一个与计算机实现存储分配有关的具体的数据表。两者是

7、一一对应关系。一维数组是按照数组逻辑结构次序依次将数组元素分配在连续存储单元中。逻辑结构逻辑结构存储结构存储结构 a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8),a(9)a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8),a(9)多维数组则是按照逻辑结构以列为主次序依次将数组元素分配在连续的存储单元中5.数组的输入输出 INTERGER a(8)DO i=1,8 READ*,(a(i),i=1

8、,8)READ*,a(i)ENDDO输入语句中使用隐含DO循环，循环项可以是数组元素或普通变量，但不能是常数、函数或表达式，而输出语句中都可以，如：READ*,(x+10,i=1,5)！此句非法PRINT*,(10，i=1,5)！输出5个10PRINT*,(ABS(-20),i=1,5)！输出5个20使用DO循环语句使用隐含DO循环子句6.给数组赋初值FORTRAN 95允许使用数组构造器给数组赋初值。(/),常见的给一维数组赋初值：INTERGER:a(3)=(/10,20,30/)INTERGER,DIMENSION(3):a(/10,20,30/)INTERGER a(3)a=(/10,

9、20,30/)或a=(/(i,i=10,30,10)/)给二维或多维数组赋初值，需要使用标准函数RESHAPE进行转换,例：INTERGER A(2,3),B(7)A=RESHAPE(/1,2,3,4,5,6/),(/2,3/)!将数组构造器描述的一维数组转换为2行3列的二维数组赋予数组AB=(/RESHAPE(A,(/6/),7/)！将二维数组A转换为有6个元素的一维数组，作为数组构造器中的字表另外还可通过DATA语句给数组赋初值7.WHERE语句WHERE语句是FORTRAN 95专门用于处理数组的语句，也称过滤数组语句。其功能类似IF语句，有三种格式：逻辑、块、多分支WHERE语句。逻辑

10、WHERE语句的一般格式为：WHERE()块与多分支WHERE语句类似IF语句，格式如下：构造名构造名:WHERE(:WHERE(屏蔽表达式屏蔽表达式1)1)块块 ELSEWHERE(ELSEWHERE(屏蔽表达式屏蔽表达式2)2)块块 ELSEWHERE ELSEWHERE 条件条件33 块块 END WHERE END WHERE 例如：例如：要对数组要对数组A A中绝对值大于中绝对值大于1 1的元素取倒的元素取倒数，其余的元素取平方数，其余的元素取平方WHERE(ABS(A)1.0)WHERE(ABS(A)1.0)A A1.0/A1.0/AELSEWHEREELSEWHEREA=A*2A

11、=A*2END WHEREEND WHERE8.动态数组对于静态数组，在编译时就被分配在固定的储存空间，并且直到程序退对于静态数组，在编译时就被分配在固定的储存空间，并且直到程序退出时才被释放，因此数组大小始终不变。其优点是存储分配算法简单，出时才被释放，因此数组大小始终不变。其优点是存储分配算法简单，运行速度快，缺点是存储开销大，存储空间浪费严重。运行速度快，缺点是存储开销大，存储空间浪费严重。在求解数组元素个数不确定的问题时，可以使用动态数组。在求解数组元素个数不确定的问题时，可以使用动态数组。动态数组占动态数组占用的内存大小是在程序执行期间按需分配的，满足需要又不浪费。用的内存大小是在程

12、序执行期间按需分配的，满足需要又不浪费。动态数组占用的内存可以释放掉。动态数组占用的内存可以释放掉。对输入不超过200个数求和 PROGRAM static PROGRAM dynamic PARAMETER(max=200)INTEGER,Dimension(:),Allocatable:A INTEGER A(max),i,n,sum INTEGER i,n,sum READ*,n READ*,n READ*,(A(i),i=1,n)Allocatate(A(n)sum=0 READ*,(A(i),i=1,n)DO i=1,n sum=0 sum=sum+A(i)DO i=1,n ENDD

13、O sum=sum+A(i)print*,“所有数的和为”,sum ENDDO END print*,“所有数的和为”,sum END 静态数组静态数组 动态数组动态数组动态数组的定义方式：1 1、类型说明、类型说明,Dimension(RANK),Allocatable:,Dimension(RANK),Allocatable:数组名数组名2 2、类型声明，、类型声明，ALLOCATABLE:ALLOCATABLE:数组名（数组名（RANKRANK）RANKRANK规定了数组的维数规定了数组的维数,一个一个:代表一维，代表一维，:之间用逗号隔开。不能指定之间用逗号隔开。不能指定各维的上下界。

14、各维的上下界。Real,Dimension(:),ALLocatable:A Real,Dimension(:),ALLocatable:A ！定义一维动态数组！定义一维动态数组A AReal,Allocatable:B(:,:,:Real,Allocatable:B(:,:,:)！定义三维动态数组！定义三维动态数组B BIntegerInteger，Dimension(:),Allocatable:C(1:5)Dimension(:),Allocatable:C(1:5)！非法语句，不能指定上下界！非法语句，不能指定上下界Integer,Allocatable D(:)Integer,Allocatable D(:)！非法语句，！非法语句，AllocatableAllocatable后缺后缺:动态数组不再使用，应及时通过动态数组不再使用，应及时通过DeallocateDeallocate语句释放存储空间，其格式为语句释放存储空间，其格式为DEALLOCATE DEALLOCATE(DEALLOCATE(,STAT=,STAT=)DEALLOCATE(A)DEALLOCATE(A)！释放数组！释放数组A A存储空间存储空间THATS ALL THANK YOU!