《FORTRAN语言》实验（上机）报告

1、FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验一 顺序结构程序设计验证型一、实验目的（1）熟悉Fortran PowerStation4.0的集成开发环境和上机步骤；（2）掌握源程序的书写格式； (3) 掌握FORTRAN 90中基本数据类型及其描述、运算；(4) 掌握基本语句的使用。二、实验内容：（1）编写程序，将华氏温度转化为摄氏温度，公式为：。要求：输入一个华氏温度值F，按照公式将其转化为摄氏温度值C。（2）编写程序，其功能是：输入a,b,x的值，计算并输出y的值。 当x=1.234,a=-5,b=0.9876时，y= 。三、实验平台 Fortran

2、PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验二 选择结构程序设计验证型一、实验目的（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；（2）学会正确使用逻辑运算符和逻辑表达式； (3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。二、实验内容：（1）编写程序，输入年、月 ，求该月的天数。用year、month分别表示年、月，day表示每月的天数。注意 ：每年的1，3，5，7，8，10，12月 ，每月31天；4，6，9，11月 每月 30天；2月闰

3、年为29天，平年为28天。年份能被 4整除，但不能被100整除，或者能被400整除的年均为闰年。（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。 三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验三 循环结构程序设计操作型一、实验目的（1）掌握用DO语句和DO WHILE语句实现循环的方法；（2）掌握循环结构的实现方法； (3) 掌握循环嵌套的执行过程。二、实验内容：（1）编写程序，求1001000之间的所有

4、素数，要求输出这些素数的个数和平均值。（2）编写程序， ，其中。当m=10时,Y的值是多少？三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验四 字符型数据程序设计操作型一、实验目的（1）掌握字符型、双精度型常量变量的表示方法及其运算； （2）掌握字符型数据的输入输出格式及数据类型之间的转换和运算规则。二、实验内容：（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字母；若为数字，则原样输出该数字

5、字符；否则，输出*。（2）编写程序，用双精度数据计算： ，直到第n项的绝对值小于为止。三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验五 数组操作操作型一、实验目的（1）掌握数组的定义及赋值和输入输出的方法；（2）熟悉数组在内存中的存储顺序(按列存储)； (3) 掌握数组赋初值的方法；(4) 掌握与数组有关的算法。二、实验内容：（1）编写程序，利用冒泡排序法把输入的一列无序的数据按由小到大的顺序排列。（2）编写程序，其功能是： 计算

6、给定的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,&1.5,2.5,4.5,-3.0,2.6,3.4,6.3,-3.8,5.2,-1.6/三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验六 子程序程序设计操作型一、实验目的（1）掌握语句函数的定义及引用方法、函数子程序和子例行子程序的结构和调用方法；（2）掌握FOR

7、TRAN程序单元间的数据传递方法。 二、实验内容：（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) (n2)用递归方法求5000之内最大的一项。（2）设 ，编写程序求sh(2)-sh(3)。 (3)编写求阶乘及累加和的函数，调用函数求： 当m=10时，S= 。三、实验平台 Fortran PowerStation 4.0四、程序清单1recursive function fib(a,b,n) result(fi)select case(n)case(1)f

8、i=acase(2)fi=bcase(3:)fi=fib(b,a+b,n-1)end selectendprogram fib_proreal:a,b,maxfib=0integer:k,num=0read*,a,bwrite(*,*)(fib(a,b,k),k=1,20)do k=1,20if(fib(a,b,k)maxfib) then maxfib=fib(a,b,k) num=kend ifend doprint*,5000之内最大的一项是第,num,其值是:,maxfibend五、调试和测试结果1. 六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓

9、名 实验日期 任课教师 实验名称实验七 派生类型和指针程序设计操作型一、实验目的（1）掌握结构体的概念、定义、格式及引用和初始化方法；（2）掌握结构体数组的定义； (3) 掌握指针的概念、定义格式和使用；(4) 理解动态变量的含义。二、实验内容：1、有以下程序：IMPLICIT NONETYPE person CHARACTER name *8 REAL salary REAL award REAL costEND TYPEINTEGER I,J,NUMPARAMETER (NUM=10)TYPE (person) , DIMENSION ( NUM ):clerkDO i=1,NUM REA

10、D *,clerk(i).name, clerk(i).salary, clerk(i).award, clerk(i).costEND DODO 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 IFEND DOEND运行程序，输入以下数据：“Lister”,876,451,123“Angel”,746,523,23“Billy”,912,551,243“H

11、enry”,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、以下程序用于在屏幕上输出如下图形：12 13 2 14 3 2 15 4 3 2 1IMPLICIT NONEINTEGER，POINTER：p(：)INTEGER，TARGET：X(5,5)INTEGER ix=0DO i=1,5 p=x(1:i,1) p=p+1PRINT *,pEND DOEND请将程序略作修

12、改，用于输出下列图形：(1) (2)1 1 1 1 1 12 2 2 2 2 23 3 3 3 3 34 4 4 4 4 45 5 5 5 5 5三、实验平台 Fortran PowerStation 4.0四、程序清单及运行结果要求：第1题写出运行结果，第2题写出程序清单。五、教师批语与成绩评定： 年 月 日FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验八 文件操作操作型一、实验目的（1）掌握文件与记录的概念；（2）掌握文件的打开和关闭； (3) 掌握文件的存取方法。二、实验内容：（1）编写程序：从键盘输入若干字符串，并把这些字符串存放到文件FILE1.TXT中。（2）编写程序，读出当前文件夹下文件README.TXT的内容，显示在屏幕上。三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验九 综合程序设计综合型一、实验目的综合运用所学知识，掌握利用FORTRAN语言解决实际问题的方法。二、实验内容：1、 编写程