chap05_one_dimensional_array Fortran 教材.pptVIP

一维数组 2018-5-20 2018-5-20 Chap 4 文件操作 Page 2 Outline 数组的基本概念 隐式DO循环和数组的输入/输出 程序举例 2018-5-20 Chap 4 文件操作 Page 3 数组基本概念 什么是数组？ 相同类型的数据的集合 其中的数据以一定的顺序进行编排 数组的要素 要有名字, 如：ARRAY_A 要指定类型（INTEGER, REAL） 要给定一个范围(指定方式灵活) 合法的数组范围： -3:11 1:5 3:8 2018-5-20 Chap 4 文件操作 Page 4 数组基本概念 数组声明 type, DIMENSION( extent ) :: name-1, name-2, ..., name-n REAL, DIMENSION(-1:1) :: a, Sum INTEGER, DIMENSION(0:100) :: InputData FORTRAN77语句 更加简便的方式： REAL :: a (-1:1), Sum(-1:1) INTEGER(0:100) :: InputData(0:100) 2018-5-20 Chap 4 文件操作 Page 5 数组范围可以用常量表示 INTEGER, PARAMETER :: MaximumSize = 100 LOGICAL, DIMENSION(1:MaximumSize) :: AnswerSheet INTEGER, PARAMETER :: LowerBound = -10 INTEGER, PARAMETER :: UpperBound = 10 REAL, DIMENSION(LowerBound:UpperBound) :: Score, Mark 2018-5-20 Chap 4 文件操作 Page 8 隐式DO循环 program implicit_do implicit none integer :: i write(*,(I6,I6)) (i, i**2, i=1,10,1) end program implicit_do DO I=1,10,1 WRITE(*,”(I6,I6)”) I, I**2 END DO 2018-5-20 Chap 4 文件操作 Page 9 还可以嵌套 用于数组的输入和输出 使程序简洁 ((a(i)*b(j), j=1, 2), i=1, 3) ( item-1, item-2, , item-n, DO-var = initial, final, step ) ( item-1, item-2, , item-n, DO-var = initial, final ) 2018-5-20 Chap 4 文件操作 Page 10 数组的引用 INTEGER id(10),下面给出合法的数组元素引用示例： id=25 !等价于id(1)=25;id(2)=25;…;id(10)=25 id(1)=2*id(1);id(5)=3*id(5);id(10)=2*id(2)+3*id(9) id(2:4)=15;id(6:9)=35 !等价于id(2)=15;id(3)=15;id(4)=15 id(:10)=999 !等价于id(1:10)=999 步骤 ID(1) ID(2) ID(3) ID(4) ID(5) ID(6) ID(7) ID(8) ID(9) ID(10) 1 25 25 25 25 25 25 25 25 25 25 2 50 25 25 25 75 25 25 25 25 125 3 50 15 15 15 75 35 35 35 35 125 4 999 999 999 999 999 999 999 999 999 999 2018-5-20 Chap 4 文件操作 Page 11 EXAMPLE 1计算数组中m－n的元素之和 REAL, PARAMETER :: MAX_SIZE = 100 REAL, DIMENSION(-MAX_SIZE:MAX_SIZE) :: DataArray REAL :: Sum INTEGER :: m, n, k READ(*,*) m, n Sum = 0.0 DO k = m, n Sum = Sum + DataArray(k) END DO 2018-5-20 Chap 4 文件操作 Page 12 EXAMPLE 2找出数组最小元素及其位置 INTEGER, PARAMET