资源描述：
《FORTRAN90第八章 派生类型课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、§8派生类型§8.1派生类型的定义§8.2派生类型变量的说明§8.3派生类型的使用§8.4派生类型的应用举例派生类型是用户自定义的数据类型。§8.1派生类型的定义派生类型定义的格式Type[,访问说明[::]]类型名类型::成员列表……类型::成员列表ENDTYPE[类型名]可选项访问说明规定了本类型的访问权。有private,public等,成员列表中的项是本类型的成员,其类型必须是固有类型或已经定义的派生类型。各成员之间用逗号隔开。学生的数据可定义成：TypestudentInteger::noCharacter(len=20)::nameCharacter
2、(len=6)::sexInteger::ageCharacter(len=10)::departEndTypestudentTypeaddr_typeCharacter(len=30)::city,streetInteger::number,zip_codeEndTypeaddr_typeTypephone_typeInteger::area_code,numberEndTypephone_typeTypepersoncharacter(40)::nameType(addr_type)::addrType(phone_type)::phoneCharacter
3、(100)::remarksEndTypeperson§8.1派生类型的定义例:空间一个点。TYPEPOINTREALX,Y,ZENDTYPEPOINT例:空间一条直线。TYPELINETYPE(POINT)::A,BENDTYPEPOINT例:空间一个平面。TYPEPLANETYPE(POINT)::A,B,CENDTYPEPOINT例:空间一个平面。TYPEPLANE1REALx,yTYPE(LINE)::LENDTYPEPOINT派生类型变量的说明一般形式：TYPE（派生类型名）：：变量名表例如：TYPE（STUDENT）：：JOAN说明：（1）派生类型和
4、派生类型变量的区别。（2）成员名可以与程序中的变量同名。例如：TYPE（STUDENT）：：NAME（3）可以定义派生类型的数组，例如：TYPE（STUDENT），DIMENSION（1000）：：STU（4）具有私有类型的派生类型，只在所定义的模块中使用。例如：TYPE，PRIVATE：：TRYREAL，DIMENSION（12）：：XINTEGER：：NUMENDTYPETRY§8.2派生类型的使用格式:派生类型名(表达式列表)表达式列表依次给定各成员变量的值,类型必须与对应的成员类型一致。例:point(1.0,2.0,3.0)与point(3.4,4.5
5、,5.6)是两个点。§8.2.1派生类型值的构造例:type(point),dimension(3)::PS则:(/point(1.0,2.0,3.0),point(3.4,4.5,5.6),point(7.0,8.0,9.0)/)是一个数组构造器。当然也可以有数组片段的构造器。格式:派生类型变量名%成员名%是成员选择符。§8.2.2派生类型变量成员的引用例如：TypestudentInteger::noCharacter(len=20)::nameCharacter(len=6)::sexInteger::ageCharacter(len=10)::depar
6、tEndTypestudentType(student)::wang，liWang%name和wang%age分别引用派生类型变量wang的成员name和age说明：%两边可以加空格以提高程序可读性。派生类型成员变量的用法与同类型变量一样。例如：(li%age+wang%age)/2成员也是派生类型时,可以再用%。例如：Type(preson)::joan要引用joan的电话区号，可表示为：joan%phone%area_code派生类型数组元素的引用格式:数组名(下标)%成员名.例如：type(student),dimension(5)::a，A(3)%age
7、引用A的第三个元素的年龄；A%AGE引用A的所有元素的年龄；A（2：3）%AGE引用A的第二，三两个元素的年龄。§8.2.3派生类型的赋值与运算依次给每个成员赋值Type(point)::AA%x=1;A%y=2;A%z=3给定了POINT类型的变量A(一个点)的值(坐标)。当通过数组名对其成员赋值时，将使该数组所有元素中的此成员具有相同的值。例如：Type(point),dimension(1:8)::bB%y=4.5将使b(1)%y,b(2)%y,…b(8)%y的值均为4.5给派生类型变量整体赋值WANG=STUDENT(25,’WANGLING’,’MAL
8、E’,21,’COMPU
