资源描述：
《《fortran语言》实验（上机）报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验一顺序结构程序设计验证型一、实验目的（1）熟悉FortranPowerStation4.0的集成开发环境和上机步骤；（2）掌握源程序的书写格式；(3)掌握FORTRAN90中基本数据类型及其描述、运算；(4)掌握基本语句的使用。二、实验内容：（1）编写程序，将华氏温度转化为摄氏温度，公式为：。要求：输入一个华氏温度值F，按照公式将其转化为摄氏温度值C。（2）编写程序，其功能是：输入a,b,x的值，计算并输出y的值。当x=1.234,a=-5,b=0.9
2、876时，y=。三、实验平台FortranPowerStation4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定：年月日《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验二选择结构程序设计验证型一、实验目的（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；（2）学会正确使用逻辑运算符和逻辑表达式；(3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。二、实验内容：（1）编写程序，输入年、月，求该月的天数。用year、month分别表示年、月，day表示每月的天数。注意：①每年的
3、1，3，5，7，8，10，12月，每月31天；4，6，9，11月每月30天；2月闰年为29天，平年为28天。②年份能被4整除，但不能被100整除，或者能被400整除的年均为闰年。（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。三、实验平台FortranPowerStation4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定：年月日《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验三循环结构程序设计操作型一、实验目的（1）掌握用DO语句和DOWHILE语句实现循环的方
4、法；（2）掌握循环结构的实现方法；(3)掌握循环嵌套的执行过程。二、实验内容：（1）编写程序，求100~1000之间的所有素数，要求输出这些素数的个数和平均值。（2）编写程序，，其中。当m=10时,Y的值是多少？三、实验平台FortranPowerStation4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定：年月日《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验四字符型数据程序设计操作型一、实验目的（1）掌握字符型、双精度型常量变量的表示方法及其运算；（2）掌握字符型数据的输入输出格式及
5、数据类型之间的转换和运算规则。二、实验内容：（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字母；若为数字，则原样输出该数字字符；否则，输出*。（2）编写程序，用双精度数据计算：，直到第n项的绝对值小于为止。三、实验平台FortranPowerStation4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定：年月日《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验五数组操作操作型一、实验目的（1）掌握数组的定义及赋值和输入输出的方法；（2）熟悉数组在内存
6、中的存储顺序(按列存储)；(3)掌握数组赋初值的方法；(4)掌握与数组有关的算法。二、实验内容：（1）编写程序，利用冒泡排序法把输入的一列无序的数据按由小到大的顺序排列。（2）编写程序，其功能是：计算给定的20个数据与平均值之差的绝对值之和。DEMENSIONA(20)DATAA/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/三、实验平台FortranPowerStation4.0四、程序清单五、调试和测试
7、结果六、教师批语与成绩评定：年月日《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验六子程序程序设计操作型一、实验目的（1）掌握语句函数的定义及引用方法、函数子程序和子例行子程序的结构和调用方法；（2）掌握FORTRAN程序单元间的数据传递方法。二、实验内容：（1）若Fibonacci数列的第n项记为fib(a,b,n)，则有下列的递归定义：fib(a,b,1)=afib(a,b,2)=bfib(a,b,n)=fib(b,a+b,n-1)(n>2)用递归方法求5000之内最大的一项。（2）设，编写程序
8、求sh(2)-sh(3)。(3)编写求阶乘及累加和的函数，调用函数求：当m=10时，S=。三、实验平台FortranPowerStation4.0四、程序清单1．recursivefunctionfib(a,b,n)result(fi)select
