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

工程分析程序设计 上机作业（七）派生类型上机目的：练习派生类型的定义、构造、初始化，成员的调用和操作。操作符的重载。1、 用派生类型构造一个班的学生的数据库（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 NONE CHARACTER(20)FILENAME TYPE(STUDENT)STU INTEGER I,LEN,N PRINT*,输入学生数 READ*,N PRINT*,输入文件名 READ*,FILENAME INQUIRE(IOLENGTH=LEN)STU OPEN(1,FILE=FILENAME,ACCESS=direct,RECL=LEN) PRINT*,输入学号、姓名及语文、数学、英语的分数 DO I=1,N READ*,STUWRITE(1,REC=I)STU END DO CLOSE(1)END2、 仿照教材的例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):S1,S2 TYPE(SET) CHAJI INTEGER K CHAJI%CARDINALITY=0 DO K=1,S1%CARDINALITY IF(.NOT.(S1%MEMBERS(K).IN.S2) THEN CHAJI%CARDINALITY=CHAJI%CARDINALITY+1 CHAJI%MEMBERS(CHAJI%CARDINALITY)=S1%MEMBERS(K) END IF END DO END FUNCTION FUNCTION MEMBEROF(X,S) INTEGER,INTENT(IN):X TYPE(SET),INTENT(IN):S LOGICAL MEMBEROF MEMBEROF=ANY(S%MEMBERS(1:S%CARDINALITY)=X) END FUNCTION SUBROUTINE PRTSET(S) TYPE(SET)S INTEGER I PRINT(20I4),(S%MEMBERS(I),I=1,S%CARDINALITY) END SUBROUTINE END MODULE PROGRAM TWO USE INTEGERSETS IMPLICIT NONE TYPE(SET)s1,s2,s3,s4 s1=BUILDSET(/1,2,3,4,5,6,7/) s2=BUILDSET(/2,4,6,8,2,10/) s3=s1+s2 s4=s1-s2 WRITE(*,(s1 ,I3,ELEMENTS:),ADVANCE=NO)CARD(s1) CALL PRTSET(s1) WRITE(*,(s2 ,I3,ELEMENTS:),ADVANCE=NO)CARD(s2) CALL PRTSET(s2) WRITE(