FORTRAN90程序设计10.pptVIP

FORTRAN90程序设计 扬州大学计算机中心 楚红 2007.1 第10章 指针与递归 10.1 指针的概念 10.2 指针的使用 10.3 指针数组 10.4 链表 10.5 递归及其应用 指针的概念 数据结构的概念 ：数据的组织形式 数组的特点 同一数组中各元素的类型都是相同的 元素在内存中都占具同样大小的存储空间 数组元素按下标从小到大在内存中连续存放 具有元素寻址快、随机存取等特点 缺点： 在数组中插入和删除一个元素时需要移动大量数据，操作很不方便。 如果数组元素较多，实际数据项较少时，会浪费大量存储空间。 指针变量在处理数据插入、删除这类操作时非常方便，还可以利用指针变量形成比较复杂的数据结构，如链表、树等 指针变量的定义 指针变量简称为指针。说明指针变量时需要指出指针变量的类型，并说明它具有POINTER属性。指针的定义方式为： 类型，POINTER [ :: ] 变量名表 或将数据类型的说明和指针的说明分开定义为： 类型 [ :: ] 变量名表 POINTER 变量名表 其中，类型可以是任意数据类型的关键字，POINTER说明变量为指针属性的关键字。例如： REAL，POINTER :: P1，P2 目标变量及其定义 目标变量即是指针变量所指向的对象，习惯上简称为目标。 使用之前，必须进行定义，即用类型说明语句对变量进行说明，且该变量必须具有TARGET属性。其定义形式为： 类型，TARGET ：：变量名表 例如： REAL，TARGET :: X，Y 该语句说明X和Y都是实型目标变量 INTEGER，TARGET ：：I，J 该语句说明I和J都是整型目标变量 ? 由于指针变量类型必须与所指的目标变量类型相同，因而对应的可以定义实型指针P1、P2指向目标变量X、Y，定义整型指针PP1，PP2指向目标变量I，J。 指针赋值语句 指针变量指向目标变量，这种指向关系需要通过指针赋值语句来建立。指针赋值语句的一般形式为： 指针变量名 = 目标变量名 其中，指针变量和目标变量应具有相同的数据类型。指针赋值语句的赋值号是 = ，读作“指向”。 它只能用于给指针变量赋指针值，使指针变量与目标变量之间建立指向关系。 例如它可以是数组片断或数据结构。下述语句将V说明为一个一维数组的指针： REAL, DIMENSION ( : ), POINTER :: V 有了上面的说明，V可以指向任何一个一维实型数组，包括二维数组的一行或者一列。例如： V = REAL_ARRAY (4,:) 使V变成了数组REAL_ARRAY的第四行的别名。当然，此处的REAL_ARRAY必须具有TARGET属性,其说明语句为： REAL, DIMENSION (5,6), TARGET :: REAL_ARRAY 一旦具有指针属性的变量成为某个数据对象的别名(即指向某个数据对象)，它就可以像其他变量一样使用，例如上面的例子中对V执行赋值语句： V = 1 就是将数组REAL_ARRAY的第四行全部设置为1。 指针变量的使用举例 [例10.1] 定义一个指针并指向目标，改变目标值后打印指针与目标变量的值。 PROGRAM EX1 IMPLICIT NONE INTEGER, TARGET :: R = 3 INTEGER, POINTER :: PR PR = R PRINT *，R，PR R = 2 * PR PRINT *, R, PR END [例10.2] 指针赋值的例子。 PROGRAM EX2 IMPLICIT NONE REAL, TARGET :: R = 13 REAL, POINTER :: P1, P2 P1 = R P2 = P1 PRINT *, P1, P2, R END [例10.3] 指针应用的例子。 PROGRAM EX3 IMPLICIT NONE REAL, TARGET :: R1 = 13 REAL, TARGET :: R2 = 15 REAL, POINTER :: P1, P2 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 [例10.4] 用指针的方法实现将任意两个整型数进行交换。 PROGRAM EX4 IMPLICIT NONE INTEGER,POINTER::PA,PB,PC