Visual Fortran90 第9章 派生类型和指针 FORTRAN90程序设计 教学课件.ppt

FORTRAN90程序设计 第9章 派生类型和指针 9.1 数据结构与派生类型 9.1.2 派生类型的定义 9.1.3 派生类型的简单应用 练习1：关于FORTRAN90的派生类型定义，以下说法错误的是 。 A、派生类型定义由TYPE语句、成员声明序列和ENDTYPE三部分组成 B、派生类型的名字必须给出，而且惟一 C、派生类型定义后，系统即为它分配存储空间 D、派生类型的成员还可以包含派生类型 练习2：设有结构体定义： TYPE student INTEGER:: no CHARACTER:: name*8,sex*1 INTEGER:: age ENDTYPE student 以下定义结构体变量并初始化正确的是 。 A、TYPE(student)::st1=(990101,Smith,M,20) B、TYPE(student)::st1=student(990101,Smith,M,20) C、TYPE(student)，st1=student(990101,Smith,M,20) D、TYPE(student)，st1=(990101,Smith,M,20) 9.2 指针 9.2.1 指针变量的基本概念 二、目标变量的说明： 9.2.2 指针指向派生类型 练习：设有下列变量和指针的定义： INTEGER, TARGET::i,j INTEGER, POINTER::p1,p2,p3 i=15; j=25 p1=i;p2=j 能够正确实现两个指针变量交换的语句是 。 A、p3=p1; p1=p2; p2=p3 B、p3=p1; p1=p2; p2=p3 C、p1=p2; p2=p3; p3=p1 D、p1=p2; p2=p3; p3=p1 练习：执行程序后，第一行输出 ？，第二行输出 ？ program pointer integer,pointer::p,q integer,target::i,j character(Len=50)::fmt fmt=(p=,I2, q=,I2, i=,I2, j=,I2) i=3;j=5 p=i;q=j p=3*q+i*j print fmt,p,q,i,j if(p==6*q) p=q !P与X断开，再指向q,即P亦指向j,此时P=5， p=p*q-1 print fmt,p,q,i,j end program 9.2.3 动态控制 本章小结 数据结构与派生类型（派生类型定义、应用） 指针（定义、动态控制） 指针与数组 指针与过程 关于考试 题型：选择题（40分）、填空题（25×2分）、程序设计（10分） 携带物品：铅笔、橡皮…… 时间： 18周周四（6月23日晚上18：30~20：30） 关于考前答疑 时间：18周周四全天 上午：8：30~11：30 下午：2：00~5：00 地点：致远楼303（机房） 最后 预祝同学们取得优异成绩！ 比一般变量多了一个TARGET属性 例：REAL，TARGET：：X，Y X Y 功能：通知编译系统为X，Y分配内存 X 1、指针变量指向目标变量 例：PT1=X； PT2=Y “=”读作“指向” 功能： PT1是X的别名， PT2是Y的别名。 别名即另一个名字（保存非指针变量的内存地址），显然共享存储单元，同值。 三、指向操作(指针赋值语句) Y PT1 PT2 Implicit none Integer,target::a=1 Integer,pointer::p P=a Write(*,*)p A=2 Write(*,*)p P=3 Write(*,*)a End 例：指针应用的简单例子。 注意：指针变量指向后，就可以当一般变量使用,且使用指针与使用这个目标变量无差异。 1 2 3 a 1 P 2 3 指针赋值语句：PT1=PT2表示PT1与目标X的关系自动解除，PT1指向PT2指向的目标，即PT1和PT2都指向Y。 2、 指针变量指向另一个指针变量例：PT1=PT2 X Y PT1 PT2 若执行一般赋值语句：PT1=PT2，其作用是将PT2指向的目标的值赋给PT1所指向的目标。这时X中的值与Y的值相同。 20.22 Y X 10.11 PT1 PT2 原状态 X 20.22 PT1 20.22 Y PT2 执行PT1=PT2后状态 1、允许多个指针同时指向同一个目标，但不允许一个指针同时指向多个目标。这与一个简单变量中不