FORTRAN90实验(8)

1,4)

END DO END

ERROR1处正确语句是： ERROR2处正确语句是： ERROR3处正确语句是：

2. 假设一个班级有10名学生，试建立一个学生成绩表，记录每个学生的学号、姓名、和五门课程的成绩，编程求出每个学生的总分，并按照总分从高分到低分输出该班级学生成绩表和各门课程的平均分。 四、实验说明

1. 注意派生类型定义和派生类型变量定义之间的区别。 2. 注意派生类型数组的正确使用。

3. 第2题编程中，学生成绩表中每个学生记录有学号、姓名、和五门课程的成绩组成，为此，可以定义下面派生类型：

TYPE STUDENT_GRADE INTEGER:: NO

CHARACTER (LEN=10):: NAME INTEGER,DIMENSION(5):: COURSE INTEGER::TOTAL

END TYPE STUDENT_GRADE

其中，NO、NAME分别表示学生的学号、姓名，COURSE是一个具有五个元素的一维数组，用来存放五门课程的成绩。TOTAL存放总分。 五、思考题

1. 假设一个班有N个学生，每个学生的信息包括学号、姓名和一门课的成绩，编程输出所有成绩大于平均分的学生信息。要求：N以及学生的信息从键盘输入。

2.9 模 块

一、实验目的

1. 掌握模块的定义和使用方法。

2. 理解接口的概念，掌握接口块在类属说明、超载赋值号、超载运算符等方面的应用。

2. 了解模块在提供公用数据、公用派生类型、子程序接口方面的应用。

3. 通过有限整数集合抽象数据类型的定义，了解抽象数据类型定义中的作用。 二、实验要求

1. 认真复习教材第9章的内容。

1. 按照题目的要求设计各题的算法，写出各题的程序，并仔细进行逻辑结构和语法的检查。

3. 上机调试各程序。调试程序时，要充分注意和利用编译、连

接和运行时计算机给出的信息，要求能够根据这些信息，较熟练地判断出程序的语法错误和一般的逻辑错误。

4. 选择一些有代表性的数据作为输入，测试模块中的每一个过程。

5. 详细记录数据的输入、输出信息，分析实验结果。 三、实验内容

1. 下面程序的功能是用超载赋值号的方法，编写一个程序，使得一个逻辑型的值能够直接赋给一个整型变量。如执行语句：I=L时（其中I是整型，L是逻辑型），若L值为.FALSE.则I的值为0，若L值为.TRUE.则I的值为1。请在下划线处填上适当的内容，以完成题目的要求。 程序如下：

MODULE I_L

INTERFACE MODULE PROCEDURE FZ END INTERFACE CONTAINS

SUBROUTINE FZ(I,L) INTEGER,INTENT(OUT)::I LOGICAL,INTENT(IN)::L IF I=1

ELSE I=0 END IF

END SUBROUTINE FZ END MODULE I_L PROGRAM MAIN

USE IMPLICIT NONE INTEGER::I,J I=.TRUE. J=.FALSE. PRINT *,I,J

END PROGRAM MAIN

2. 程序设计

⑴ 编写一个交换任意两个变量值的类属过程，其变量类型可以整型或字符型。

⑵ 自定义运算符.PRIM.，其功能是判断任意输入的整数是否为素数的运算。然后编写一段引用此模块的程序来测试该程序：当输入的数值是素数时，输出1，否则输出0。 四、实验说明

1. 模块是提供共享常量、变量、类型说明和过程的一种有效的

方法，它可以把过程放入不同的程序单元均可以调用的程序库。模块也是一种独立编写的程序单位，它具有其独特的形式。通过模块不仅可以实现常量、变量和数据类型定义的共享，而且还可以实现过程和数据的共享，从而可以用来编写被各种程序所引用的程序库。

2. 模块是一种不能直接执行的程序单元，但它可以包含数据说明和过程，通过USE语句可以对模块进行引用。

3. 第⑴题中，为了实现这种功能的类属过程，我们首先编写两个分别实现整型变量交换值和实型变量交换值的过程SWAP_INT和SWAP_REAL。而为了使它们能够通过类属名SWAP来调用，可以在接口块语句中使用类属名SWAP，然后列出那些功能相同只是操作数据类型不同的模块过程名。 4. 第⑵题中，通过INTERFACE OPERATER(.PRIM.)，自定义名为PRIM运算符，通过模块内部函数，实现求素数的功能。 五、思考题

1. 用模块来定义一个抽象数据类型，功能是完成字母大小写转换。当输入的是大写字母时将其转换成小写字母，若输入的是小写字母则将其转换为大写字母。然后编写一段引用此模块的程序来测试该程序。

2. 用模块来定义有限整数集合的抽象数据类型，包含集合的基本运算。然后编写一段引用此模块的程序来测试该程序。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库FORTRAN90实验(8)在线全文阅读。