（1）掌握用DO语句和DO WHILE语句实现循环的方法；
（2）掌握循环结构的实现方法；
(3)掌握循环嵌套的执行过程。
二、实验内容：
（1）编写程序，求100~1000之间的所有素数，要求输出这些素数的个数和平均值。
（2）编写程序， ，其中 。
当m=10时,Y的值是多少？
三、实验平台
Compaq VisualFortran 6.5
1 1 1 1 1 1
2 2 2 2 2 2
3 3 3 3 3 3
4 4 4 4 4 4
5 5 5 5 5 5
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单及运行结果
要求：第1题写出运行结果，第2题写出程序清单。
五、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验八文件操作
操作型
一、实验目的
（1）掌握文件与记录的概念；
（2）掌握文件的打开和关闭；
(3)掌握文件的存取方法。
二、实验内容：
（1）编写程序：从键盘输入若干字符串，并把这些字符串存放到文件FILE1.TXT中。
（2）编写程序，读出当前文件夹下文件README.TXT的内容，显示在屏幕上。
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验六子程序程序设计
操作型
一、实验目的
（1）掌握语句函数的定义及引用方法、函数子程序和子例行子程序的结构和调用方法；
（2）掌握FORTRAN程序单元间的数据传递方法。
二、实验内容：
（1）若Fibonacci数列的第n项记为fib(a,b,n)，则有下列的递归定义：
DO i=1,NUM
READ *,clerk(i).name, clerk(i).salary, clerk(i).award, clerk(i).cost
END DO
DO J=1,NUM
IF(clerk(j).salary + clerk(j).award –clerk(j).cost>=1200)THEN
(4)理解动态变量的含义。
二、实验内容：
1、有以下程序：
IMPLICIT NONE
TYPE person
CHARACTER name *8
REAL salary
REAL award
REAL cost
END TYPE
INTEGER I,J,NUM
PARAMETER (NUM=10)
TYPE (person) , DIMENSION ( NUM )::clerk
（1）掌握数组的定义及赋值和输入输出的方法；
（2）熟悉数组在内存中的存储顺序(按列存储)；
(3)掌握数组赋初值的方法；
(4)掌握与数组有关的算法。
二、实验内容：
（1）编写程序，利用冒泡排序法把输入的一列无序的数据按由小到大的顺序排列。
（2）编写程序，其功能是：计算给定的20个数据与平均值之差的绝对值之和。
1
21
32 1
43 2 1
54 3 2 1
IMPLICIT NONE
INTEGER，POINTER：：p(：)
INTEGER，TARGET：：X(5,5)
INTEGER i
x=0
DO i=1,5
p=>x(1:i,1)
p=p+1
PRINT *,p
END DO
END
请将程序略作修改，用于输出下列图形：
(1) (2)
二、实验内容：
（1）编写程序，将华氏温度转化为摄氏温度，公式为： 。要求：输入一个华氏温度值F，按照公式将其转化为摄氏温度值C。
（2）编写程序，其功能是：输入a,b,x的值，计算并输出y的值。
当x=1.234,a=-5,b=0.9876时，y=。
三、实验平台
Compaq VisualFortran 6.5
“Henry”,926,660,314
“Ervine”,676,481,103
“Ford”,816,351,89
“George”,936,451,145
“Mailer”,766,480,98
“Philip”,880,560,168
“Victor”,660,440,86
输出结果为：。
2、以下程序用于在屏幕上输出如下图形：
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验七派生类型和指针程序设计
操作型
一、实验目的
（1）掌握结构体的概念、定义义；
(3)掌握指针的概念、定义格式和使用；
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验四字符型数据程序设计
操作型
一、实验目的
掌握字符型数据的输入输出格式及数据类型之间的转换和运算规则。
二、实验内容：
（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字母；若为数字，则原样输出该数字字符；否则，输出*。
（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。
三、实验平台
Compaq VisualFortran 6.5
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验三循环结构程序设计
操作型
一、实验目的
fib(a,b,1)=a
fib(a,b,2)=b
fib(a,b,n)=fib(b,a+b,n-1) (n>2)
用递归方法求5000之内最大的一项。
（2）设 ，编写程序求sh(2)-sh(3)。
(3)编写求阶乘及累加和的函数，调用函数求：
当m=10时，S=。
三、实验平台
Compaq Visual Fortran 6.5
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
二、实验内容：
（1）编写程序，输入年、月，求该月的天数。
用year、month分别表示年、月，day表示每月的天数。注意：
①每年的1，3，5，7，8，10，12月，每月31天；4，6，9，11月每月30天；2月闰年为29天，平年为28天。
②年份能被4整除，但不能被100整除，或者能被400整除的年均为闰年。
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验一顺序结构程序设计
验证型
一、实验目的
（1）熟悉Compaq Visual Fortran 6.5的集成开发环境和上机步骤；
（2）掌握源程序的书写格式；
(3)掌握FORTRAN 95中基本数据类型及其描述、运算；
(4)掌握基本语句的使用。
DEMENSION A(20)
DATA A/3.5,1.5,-2.5,4.5,2.5,3.0,5.5,-6.5,3.5,2.5,&
1.5,2.5,4.5,-3.0,2.6,3.4,6.3,-3.8,5.2,-1.6/
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单
五、调试和测试结果
（2）编写程序：输入一个英文句子，将其中的小写字母转换成大写字母后输出。
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验五数组操作
操作型
一、实验目的
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验二选择结构程序设计
验证型
一、实验目的
（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；
（2）学会正确使用逻辑运算符和逻辑表达式；
(3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。
PRINT * ,clerk(j).name, clerk(j).salary, clerk(j).award, clerk(j).cost
END IF
END DO
END
运行程序，输入以下数据：
“Lister”,876,451,123
“Angel”,746,523,23
“Billy”,912,551,243