Fortrn结构体.pptVIP

* 第九章 结构体 9.1 派生类数据类型 格式：TYPE[，ACCESS[::] ]派生类型名字 分量表 END TYPE [派生类名] ACCESS：访问方式，PRIVATE（私有的） PUBLIC（公共的） 默认方式为 PUBLIC 。 分量表：该类型中的成员项，每项要有类型说明。 京昼粗渠扳筏克竣秦梁完酌蔚滓鄙刀碴叮鸳大仍毋旷姬俩秤磋矩簇遵钎兆Fortran结构体Fortran结构体 P177 例： TYPE STUDENT CHARACTER (15) NAME INTEGER NUM LOGICAL SEX CHARACTER (30) ADDRESS END TYPE 9.2 结构体变量的定义与引用 一、结构体类型变量的定义 格式： TYPE（派生类型名）:: 结构体变量名 例：TYPE （STUDENT）:: S1，S2 汽字荒囱弥什昂最增贷劫醇乐钥炒恢缺度糟惜自苍床骑谦纵正国意峰玛梁Fortran结构体Fortran结构体 结构体类型可以嵌套定义，即结构体类型的成员也可以是另一个结构体类型的变量。P177 例： TYPE STUDENTRECORD CHARACTER (15) NAME INTEGER NUM LOGICAL SEX CHARACTER (30) ADDRESS END TYPE TYPE STUDENTTOGETHER TYPE （STUDENTRECORD）:: STUDENT REAL MATH REAL ENGLISH REAL CHINESE END TYPE 哗丘粗执担族耪返哀厅岗熔粘频磨却惦骸蠕蹋蛾碰巴澜柠膛蔡贬蔓憎租栓Fortran结构体Fortran结构体 若定义 STUDENTTOGETHER 结构体变量 S ： TYPE （STUDENTTOGETHER）:: S 则结构体变量 S 包含：三个实型变量MATH、ENGLISH、CHINESE和一个结构体变量STUDENT，而STUDENT又包含NAME、NUM、SEX、ADDRESS四个成员。 二、结构体成员的引用 结构体名 % 成员名 结构体名 . 成员名 如：S1. NAME、S1.NUM S2%NAME、S2%NUM S%STUDENT% NUM 篱设徊然锯惺层忍虾淘蕉掂妥呸徐比程枚演翱旧泵寿辱剿靛爱尾生颁甥迷Fortran结构体Fortran结构体 9.3 结构体变量的赋值 一、用赋值语句给结构体成员赋值 P178 例9.1 职工工资表包含的数据有：姓名、性别、家庭住址、工资等，现计算三个职工工资的平均值。 TYPE CLERK CHARACTER (15) NAME LOGICAL SEX CHARACTER (30) ADDRESS INTEGER SAL END TYPE TYPE (CLERK):: S1, S2, S3 S1.SAL=800 ！也可用输入语句 READ*, S1.SAL S2%SAL=900 S3.SAL=700 AVER=(S1%SAL+S2.SAL+S3.SAL)/3 PRINT*, 三个职工的平均工资为：, AVER END 逝举概犬号孵逢爱株悸私岿叹弱苫逝治撕孩批腰萝振嘴阵悟尸颐着遇箱凝Fortran结构体Fortran结构体 二、定义变量的同时赋值 格式： TYPE (派生数据类型名) :: 结构体变量名 =派生数据类型名（成员初值表） 例如： TYPE TEACHER CHARACTER (12) NAME LOGICAL SEX END TYPE TYPE(TEACHER)::S1=TEACHER (“WU,.TRUE.), S2, S3 赋值时，所给的值类型和个数应与结构体变量定义中各成员的类型与个数保持一致。 可以将一个结构体变量的值直接赋给另外一个结构体变量， 天浙宠愈孤赔验嘴肩骤澎惋壤火窜东峦援约伟阻山前诺昆扦丸脉搏崇氓奄Fortran结构体Fortran结构体 P180 例： INTEGER S TYPE STUDENTRECORD CHARACTER (15) NAME INTEGER NUM LOGICAL SEX CHARACTER (30) ADDRESS END TYPE TYPE (STUDENTRECORD)::S