FORTRAN90第十章 指针及递归.ppt

§10 指针与递归 §10.1 指针的概念 §10.1 指针的概念 §10.1 指针的概念 §10.2 指针的使用 §10.2 指针的使用 §10.2 指针的使用 §10.2 指针的使用 §10.2 指针的使用 §10.2 指针的使用 §10.3 指针数组 §10.3 指针数组 §10.3 指针数组 §10.3 指针数组 §10.4 链表 链表概念 链表的创建 链表的插入 链表的删除 链表的输出 链表举例 §10.4.1 链表概念 §10.4.2 链表的创建 §10.4.3链表的插入 §10.4.4链表的删除 §10.4.5链表的输出 §10.5 递归及其应用 §10.5 递归及其应用 删除结点程序段: IF(FOUND)THEN IF(ASSOCIATED(P))THEN P%NEXT=Q%NEXT ELSE L%HEAD =Q%NEXT END IF DEALLOCATE(Q) END IF 删除一个链表全部结点的子程序为： Subroutine empty(L) type(list),intent(inout)::L type(node),pointer::temp do while(associated(L%HEAD)) temp=L%head L%head=temp%next deallocate(temp) End do End Subroutine empty SUBROUTINE PRINT_LIST(L) TYPE(LIST),INTENT(IN)::L TYPE(NODE),POINTER::P P=L%HEAD DO WHILE(ASSOCIATED(P)) PRINT*,P%VALUE P=P%NEXT END DO END SUBROUTINE PRINT_LIST 过程直接或间接地调用自身,就形成递归过程。有递归函数和递归子程序。 §10.5.1 递归函数 定义方式: RECURSIVE FUNCTION func (虚参表)[ RESULT (result-name) ] 　　…函数体… 　END [Function [fun]] 关键词RECURSIVE说明函数是递归的 recursive Function Fact(n) result(f) real::f if (n =1) then f=1 else f = fact(n-1)*n endif end function fact 例:计算n! * * §10.1 指针的概念 §10.2 指针的使用 §10.3 指针数组 §10.4 链表 §10.5 递归及其应用 指针变量的定义格式: 类型,Pointer[::] 变量名列表 或者分两步定义: 类型 [::] 变量名列表 Pointer 变量名列表 指针变量的类型与它的目标变量的类型必须一致。 指针变量所指向的变量称为目标变量,简称为目标。对目标变量的定义必须用target属性:类型, target[::] 变量名列表 指针赋值语句: 指针变量=目标变量 赋值号=读作“指向”,注意它的写法。 同类型的指针变量可相互赋值 指针变量=指针变量 指针变量通过指针赋值语句指向目标变量之后, 使用目标变量和使用它的指针是等同的。这两者之间的暂时等同关系直到用指针赋值语句使指针变量指向另外的目标变量为止。 例:Real,pointer ::p1,p2 !p1,p2可指向实型目标变量。 Real,target::x,y !实型目标变量 P1=x;p2=y !指针赋值语句 X=-0.618 ! P1=-0.618 P2=1.414 ! Y=1.414 例:Real,Dimension(:),pointer ::p !p可指向有target属性的一维实型数组(包括二维数组的一行或一列)。 Real,target::a(5,6) !实型目标数组 P=A(2,:) !指针赋值语句 p=1 ! 赋值语句,使A数组第2行元素全为1 例: Real,pointer ::p1,p2 Real,target::r=13 P1=r P2=p1 Prinr*,p1,p2,r end Real,pointer ::p1,p2 Real,target::r1=13 Real,target::r2=15 Print*,r1,r2 P1=r1;p2=r2 Print*,p1,p2 P1=p2 Print*,p1,p2,r1,r2 r2=2*r2 P2=p1 Print*,p1,p2,r1,r2 end 说明