工程分析程序设计 上机作业(七).docxVIP

工程分析程序设计上机作业（七）派生类型上机目的：练习派生类型的定义、构造、初始化，成员的调用和操作。操作符的重载。用派生类型构造一个班的学生的数据库（10个人），包括学号、姓名、3门课的分数，并（1）按学号顺序显示每个人的信息；（2）计算每个人的平均分，按从高到低的顺序从屏幕上显示每个人的信息及其平均分。MODULE STU_TYPE IMPLICIT NONE TYPE STUDENT INTEGER NOCHARACTER(10)NAMEREAL A,B,C END TYPEEND MODULEPROGRAM DATABASE USE STU_TYPE IMPLICIT NONECHARACTER(20)FILENAMETYPE(STUDENT)STU INTEGER I,LEN,N PRINT*,输入学生数 READ*,N PRINT*,输入文件名 READ*,FILENAMEINQUIRE(IOLENGTH=LEN)STUOPEN(1,FILE=FILENAME,ACCESS=direct,RECL=LEN) PRINT*,输入学号、姓名及语文、数学、英语的分数 DO I=1,N READ*,STUWRITE(1,REC=I)STU END DOCLOSE(1)END仿照教材的例6-4，（1）设计一个“+”操作符的重载，实现两个集合的合集；（2）设计一个“-”操作符的重载，把集合A中那些同时又出现在集合B中的元素去掉。MODULE INTEGERSETS IMPLICIT NONE INTEGER,PARAMETER::MAXCARD=100 TYPE SET PRIVATE INTEGER CARDINALITY INTEGER,DIMENSION(MAXCARD)::MEMBERS END TYPE set INTERFACE OPERATOR(.IN.) MODULE PROCEDURE MEMBEROF END INTERFACE INTERFACE OPERATOR(+) MODULE PROCEDURE UNIONOF END INTERFACE INTERFACE OPERATOR(-) MODULE PROCEDURE CHAJI END INTERFACE CONTAINS FUNCTION BUILDSET(V) TYPE(SET) BUILDSET INTEGER V(:) INTEGER J BUILDSET%CARDINALITY=0 DO J=1,SIZE(V) IF(.NOT.(V(J).IN.BUILDSET))THEN IF(BUILDSET%CARDINALITYMAXCARD) THEN BUILDSET%CARDINALITY=BUILDSET%CARDINALITY+1 BUILDSET%MEMBERS(BUILDSET%CARDINALITY)=V(J) ELSE PRINT*,MAXIMUM SET SIZE EXCEEDED ADJUST MAXCARD STOP END IF END IF END DO END FUNCTION BUILDSET FUNCTION CARD(S) INTEGER CARD TYPE(SET) S CARD=S%CARDINALITY END FUNCTION FUNCTION UNIONOF(S1,S2) TYPE(SET),INTENT(IN)::S1,S2 TYPE(SET) UNIONOF INTEGER I UNIONOF%CARDINALITY=0 DO I=1,S1%CARDINALITY UNIONOF%CARDINALITY=UNIONOF%CARDINALITY+1 UNIONOF%MEMBERS(UNIONOF%CARDINALITY)=S1%MEMBERS(I) END DO DO I=1,S2%CARDINALITY IF(.NOT.(S2%MEMBERS(I).IN.S1)) THEN UNIONOF%CARDINALITY=UNIONOF%CARDINALITY+1 UNIONOF%MEMBERS(UNIONOF%CARDINALITY)=S2%MEMBERS(I) END IF END DO END FUNCTION FUNCTION CHAJI(S1,S2) TYPE(SET),INTENT(IN)::