F90第十章.pptVIP

第八章 派生类型与结构体 10.1 概述/数组类型实现示例 10.1 概述/派生类型实现示例 10.1 概述/数组类型实现示例/数组赋值 10.1 概述/数组类型实现示例/数组关系 10.1 概述/派生类型实现示例/结构体数组赋值 10.1 概述/派生类型实现示例/结构体数组图示 10.2 派生类型定义/派生类型 10.2 派生类型定义/一般格式 10.2 派生类型定义/示例 10.3 结构体声明/概述 10.3 结构体声明/一般格式 10.4 结构体成员引用/概述 10.5 结构体初始化/声明语句初始化 10.5 结构体初始化/赋值语句初始化 10.5 结构体初始化/DATA语句初始化 10.5 结构体初始化/输入语句初始化 10.5 结构体初始化/声明语句初始化/派生类型定义 10.5 结构体初始化/声明语句初始化/结构体存储分配 10.5 结构体初始化/赋值语句初始化/派生类型定义 10.5 结构体初始化/赋值语句初始化/初始化 10.5 结构体初始化/赋值语句初始化/结构体存储分配 10.5 结构体初始化/DATA语句初始化/派生类型定义 10.5 结构体初始化/DATA语句初始化/初始化 10.5 结构体初始化/DATA语句初始化/结构体存储分配 10.6 结构体数据输入输出/输入 10.6 结构体数据输入输出/输出 10.7 派生类型应用举例/例10.1 10.7 派生类型应用举例/例10.2 10.7 派生类型应用举例/例10.1/算法 10.7 派生类型应用举例/例10.1/程序 10.7 派生类型应用举例/例10.1/输入输出数据 10.7 派生类型应用举例/例10.2/算法 10.7 派生类型应用举例/例10.2/程序 10.7 派生类型应用举例/例10.2/输入输出数据 8.7 派生类型应用举例 [例8.1]某班级有30名学生,期末考试结束后,要评定每个学生的等级。等级有：A、B、C三等。等级评定标准是：高于平均成绩10分以上为A等,与平均成绩上下相差10分以内为B等,其余为C等。输入学生的学号和成绩,评定等级,按等级高低顺序排序,最后按等级高低输出学生的学号、成绩、等级。 解：涉及30名学生的学号、成绩和等级数据。 学号是整型数据,成绩是实型数据,等级是字符数据。 定义包含学生学号、成绩、等级信息的派生类型： TYPE student_record INTEGER number REAL score CHARACTER grade END TYPE 声明保存30名学生数据的结构体数组： TYPE(student_record) class(30) 设计算法，编写程序，输入输出数据。 求解算法： (1)输入30名学生的学号和成绩,并求成绩和; (2)计算平均成绩; (3)根据平均成绩评定每个学生等级; (4)按照等级A、B、C顺序排序; (5)按照等级高低顺序输出30名学生的学号、成绩和等级。 例8.1 例8.2 8.7 派生类型应用举例 [例10.1]某班级有30名学生,期末考试结束后,要评定每个学生的等级。等级有：A、B、C三等。等级评定标准是：高于平均成绩10分以上为A等,与平均成绩上下相差10分以内为B等,其余为C等。输入学生的学号和成绩,评定等级,按等级高低顺序排序,最后按等级高低输出学生的学号、成绩、等级。 解：涉及30名学生的学号、成绩和等级数据。 学号是整型数据,成绩是实型数据,等级是字符数据。 定义包含学生学号、成绩、等级信息的派生类型： TYPE student_record INTEGER number REAL score CHARACTER grade END TYPE 声明保存30名学生数据的结构体数组： TYPE(student_record) class(30) 设计算法，编写程序，输入输出数据。 PROGRAM exam101 PARAMETER(N=30) TYPE student_record INTEGER number REAL score CHARACTER grade END TYPE student_record TYPE(student_record) buffer,class(N) REAL :: sum=0,ave LOGICAL :: flag=.FALSE. !输入全班30名学生的学号和成绩，并对成绩进行求和 PRINT