FORTRAN90第六章数组.ppt

§6 数组 §6.1 数组的定义与操作 §6.1.2 数组的逻辑结构与存储结构 §6.1.3 数组元素的引用 §6.1.4 数组的输入与输出 §6.1.5 数组的操作 §6.1.5 数组的操作 §6.1.5 数组的操作 §6.1.6 数组片段 §6.1.6 数组片段 §6.1.7 给数组元素赋初值 §6.2 动态数组 §6.2 动态数组 §6.2 动态数组 §6.2 动态数组 §6.2 动态数组 §6.3 数组在函数和子程序中的应用 §6.3 数组在函数和子程序中的应用 §6.3 数组在函数和子程序中的应用 §6.4 数组的应用举例 CALL SUB(C(1,2)) C(1,1) C(2,1) C(3,1) C(1,2) C(2,2) C(3,2) C(1,3) C(2,3) C(3,3) B(1) B(2) B(3) B(4) B(5) 注意:虚参数组不能越出实参数组的范围.如 CALL SUB(C(3,2))是错误的 (2)当虚参数组为字符型,实参为同类型的数组名或数组元素,虚参与实参是按字符位置一一对应. PROGRAM MAIN SUBROUTINE SUB(B) CHARACTER*4 A(5) CHARACTER*3 B(4) CALL SUB(A) parameter (n=20) integer a(n),X data a/52,98,-45,0,8,10,-23,6,25,12, -89,8,4,15,2,-5,81,60,32,75/ write(*,100) a write(*,*) Enter a number for search read(*,*) X do k = 1,n 例1(顺序查找):在一组数据中查找数据X if(x==A(k)) then write(*,120) K,X; STOP endif ENDDO write(*,*) X, Could not be found! 100 format(1x,Ordinary:/(1x,10i6)) 120 format(1x,The,I3,th number is,I3) end 顺序查找要对所有数据进行比较 ,因此也叫遍历式查找。 如果数据X多次出现在数组中,本程序只能查找到第一次出现的位置。 parameter (N=10) INTEGER A(N) Data a/18,10,6,25,12,8,4,15,2,-5/ WRITE(*,100) A DO I = 1,N-1 DO J = N,I+1,-1 IF(A(J).LT.A(J-1)) THEN M = A(J);A(J) = A(J-1);A(J-1) = M ENDIF ENDO ENDO 例2(冒泡排序):把一组数据从小到大排列 WRITE(*,120) A 100 FORMAT(1X,Ordinary:/(1X,10I6)) 120 FORMAT(1X,Sorted:/(1X,10I6)) END 例3(选择排序):把一组数据从小到大排列 parameter (n=10) integer a(n),p read(*,*) a；write(*,100) a do i = 1,n-1 p = I do j = i+1,n;if(a(j)a(p)) p = j;Enddo if(p/=i) then j = a(p); a(p) = a(i);a(i) = j endif Enddo write(*,120) a 100 format(1x,Ordinary:/(1x,10i6)) 120 format(1x,Sorted:/(1x,10i6)) end * §6.1 数组的定义与操作 §6.2 动态数组 §6.3 数组在函数和子程序中的应用 §6.4 数组的应用举例 数组:相同类型数据组成的有序的有限集合 数组必须先定义后使用。定义数组时,要对数组的名称、类型、数组的维数和元素的数量加以说明。 用类型说明结合DIMENSION属性进行定义: 类型,dimension(维数说明[,维数说明])::数组名[,数组名] §6.1.1 数组的定义 维数说明:由下标界限说明组成,有几个下标界限说明就表示数组是几维的。多于一维的数组称多维数组,下标界限说明之间