《FORTRAN语言》实验(上机)报告.doc

FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 08年1月7月 任课教师 实验名称实验一 顺序结构程序设计验证型一、实验目的（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 PowerStation 4.0四、程序清单(1)implicit noneREAL C,FREAD*,FC=5*(F-32)/9PRINT*,CEND(2)implicit nonereal a,b,x,yread*,a,b,xy=(exp(a*x)-log(x)*log(x)/(5*b)print*,yend五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 08年1月7月 任课教师 实验名称实验二 选择结构程序设计验证型一、实验目的（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月闰年为29天，平年为28天。年份能被 4整除，但不能被100整除，或者能被400整除的年均为闰年。（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。 三、实验平台 Fortran PowerStation 4.0四、程序清单(1)integer year,month,dayread*,year,monthselect case(month)case(1,3,5,7,8,10,12)day=31case(4,6,9,11)day=30case(2)if(mod(year,4).eq.0.and.mod(year,100).ne.0)&.or.mod(year,400).eq.0)thenday=29elseday=28endifcase defaultprint*,月份输入错误end selectprint*,year,年,month,月所对应的天数为:,dayend(2)INTEGER X,YREAD*,XIF(MOD(X,2)=1)THENY=SQRT(X*1.0)ELSEY=(X*1.0)*(1.0/3)ENDIFPRINT*,YEND五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 200 30229 姓名 实验日期 08年1月7月 任课教师 实验名称实验三 循环结构程序设计操作型一、实验目的（1）掌握用DO语句和DO WHILE语句实现循环的方法；（2）掌握循环结构的实现方法； (3) 掌握循环嵌套的执行过程。二、实验内容：（1）编写程序，求1001000之间的所有素数，要求输出这些素数的个数和平均值。（2）编写程序， ，其中。当m=10时,Y的值是多少？三、实验平台 Fortran PowerStation 4.0四、程序清单(1)IMPLICIT NONEINTEGER M,I,J,H,A,BLOGICAL FLAGH=0A=0DO M=101,1000,2FLAG=.TRUE.I=2J=SQRT(REAL(M)DO WHILE(I=48).AND.(A=65).AND.(A=97).AND.(A=1E-15)N=N+1E=1DO F=1,2*NE=E*FEND DOM=(-1)*N*X*(2*N)/ESUM=SUM+MEND DOPRINT*,SUMEND五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 20 229 姓名 实验日期 08年1月7月 任课教师 实验名称实验五 数组操作操作型一、实验目的（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,&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语言实验（上机）报告班级学号 姓名 实验日期 08年1月7月 任课教师 实验名称实验六 子程序程序设计操作型一、实验目的（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) (n2)用递归方法求5000之内最大的一项。（2）设 ，编写程序求sh(2)-sh(3)。 (3)编写求阶乘及累加和的函数，调用函数求： 当m=10时，S= 。三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 200 030229 姓名 实验日期 08年1月7月 任课教师 实验名称实验七 派生类型和指针程序设计操作型一、实验目的（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 READ *,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“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、以下程序用于在屏幕上输出如下图形：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请将程序略作修改，用于输出下列图形：(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语言实验（上机）报告班级学号 2007 030229 姓名 实验日期 08年1月7月 任课教师 实验名称实验八 文件操作操作型一、实验目的（1）掌握文件与记录的概念；（2）掌握文件的打开和关闭； (3) 掌握文件的存取方法。二、实验内容：（1）编写程序：从键盘输入若干字符串，并把这些字符串存放到文件FILE1.TXT中。（2）编写程序，读出当前文件夹下文件README.TXT的内容，显示在屏幕上。三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定： 年 月 日 FORTRAN语言实验（上机）报告班级学号 姓名 实验日期 任课教师 实验名称实验九 综合程序设计综合型一、实验目的综合运用所学知识，掌握利用FORTRAN语言解决实际问题的方法。二、实验内容：1、 编写程序：输入30名学生一门课的考试成绩，以