FORTRAN实验报告2016LI

四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验二选择结构程序设计
验证型
一、实验目的
（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；
（2）学会正确使用逻辑运算符和逻辑表达式；
(3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。
（1）掌握字符型、双精度型常量变量的表示方法及其运算；
（2）掌握字符型数据的输入输出格式及数据类型之间的转换和运算规则。
二、实验内容：
（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字母；若为数字，则原样输出该数字字符；否则，输出*。
（2）编写程序，用双精度数据计算：
（1）编写程序：从键盘输入若干字符串，并把这些字符串存放到文件FILE1.TXT中。
（2）编写程序，读出当前文件夹下文件README.TXT的内容，显示在屏幕上。
三、实验平台
Fortran PowerStation4.0
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
PRINT*,Y
READ*,N
END
五、调试和测试结果
实验一正常运行，共有143个素数，其和为75067
实验二正常运行，当输入m=10时，输出结果为445
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验四字符型数据程序设计
操作型
一、实验目的
xn+1=1-sinxn。如果迭代10次不收敛，则终止运行。
三、实验平台
Fortran PowerStation4.0
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验一顺序结构程序设计
验证型
一、实验目的
（1）熟悉Fortran PowerStation4.0的集成开发环境和上机步骤；
（2）掌握源程序的书写格式；
(3)掌握FORTRAN 90中基本数据类型及其描述、运算；
(4)掌握基本语句的使用。
四、程序清单及运行结果
要求：第1题写出运行结果，第2题写出程序清单。
五、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验八文件操作
操作型
一、实验目的
（1）掌握文件与记录的概念；
（2）掌握文件的打开和关闭；
(3)掌握文件的存取方法。
二、实验内容：
CHARACTER name *8
REAL salary
REAL award
REAL cost
END TYPE
INTEGER I,J,NUM
PARAMETER (NUM=10)
TYPE (person) , DIMENSION ( NUM )::clerk
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
PRINT * ,clerk(j).name, clerk(j).salary, clerk(j).award, clerk(j).cost
END IF
二、实验内容：
（1）编写程序，将华氏温度转化为摄氏温度，公式为： 。要求：输入一个华氏温度值F，按照公式将其转化为摄氏温度值C。
（2）编写程序，其功能是：输入a,b,x的值，计算并输出y的值。
当x=1.234,a=-5,b=0.9876时，y=。
三、实验平台
Fortran PowerStation5.0
end if
read*,I
end
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验三循环结构程序设计
操作型
一、实验目的
（1）掌握用DO语句和DO WHILE语句实现循环的方法；
（2）掌握循环结构的实现方法；
(3)掌握循环嵌套的执行过程。
INTEGER i
x=0
DO i=1,5
p=>x(1:i,1)
p=p+1
PRINT *,p
END DO
END
请将程序略作修改，用于输出下列图形：
(1) (2)
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
三、实验平台
Fortran PowerStation4.0
N=0
DO I=100,1000,1
DO J=2,I-1,1
K=MOD(I,J)
IF(K==0)EXIT
IF(J==I-1)THEN
N=N+1
SUM=SUM+I
ENDIF
ENDDO
ENDDO
PRINT*,"100到1000内素数的个数为：",N
PRINT*,"100到1000内素数之和为：",SUM
班级·学号姓名实验日期任课教师
实验名称
实验七派生类型和指针程序设计
操作型
一、实验目的
（1）掌握结构体的概念、定义、格式及引用和初始化方法；
（2）掌握结构体数组的定义；
(3)掌握指针的概念、定义格式和使用；
(4)理解动态变量的含义。
二、实验内容：
1、有以下程序：
IMPLICIT NONE
TYPE person
END DO
END
运行程序，输入以下数据：
“Lister”,876,451,123
“Angel”,746,523,23
“Billy”,912,551,243
“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、以下程序用于在屏幕上输出如下图形：
1
21
32 1
43 2 1
54 3 2 1
IMPLICIT NONE
INTEGER，POINTER：：p(：)
INTEGER，TARGET：：X(5,5)
操作型
一、实验目的
（1）掌握语句函数的定义及引用方法、函数子程序和子例行子程序的结构和调用方法；
（2）掌握FORTRAN程序单元间的数据传递方法。
二、实验内容：
（1）若Fibonacci数列的第n项记为fib(a,b,n)，则有下列的递归定义：
fib(a,b,1)=a
fib(a,b,2)=b
fib(a,b,n)=fib(b,a+b,n-1) (n>2)
班级·学号姓名实验日期任课教师
实验名称
实验九综合程序设计
综合型
一、实验目的
综合运用所学知识，掌握利用FORTRAN语言解决实际问题的方法。
二、实验内容：
1、编写程序：输入30名学生一门课的考试成绩，以0~9分，10~19分，…90~99分，100分为分数段，统计各分数段的人数。
2、用迭代法求一非线性方程x-1+sinx=0在1.0附近的一个实根，精度要求为10-5。迭代格式为：
，直到第n项的绝对值小于 为止。
三、实验平台
Fortran PowerStation4.0
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验五数组操作
操作型
一、实验目的
（1）掌握数组的定义及赋值和输入输出的方法；
（2）熟悉数组在内存中的存储顺序(按列存储)；
(3)掌握数组赋初值的方法；
(4)掌握与数组有关的算法。
二、实验内容：
（1）编写程序，利用冒泡排序法把输入的一列无序的数据按由小到大的顺序排列。
（2）编写程序，其功能是：计算给定的20个数据与平均值之差的绝对值之和。
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,&
（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。
三、实验平台
Fortran PowerStation4.0
四、程序清单
program shiyan2_2
real::I,
read*,I
if(mod(I,2)==o)then
print*,I**0.333
else
print*,I**0.5
READ*,I
END
PROGRAM SHIYAN3_2
INTEGER::N,S,I,Y,M,SUM
READ*,M