文档介绍：《FORTRAN语言》实验(上机)报告班级·、实验目的(1);(2)掌握源程序的书写格式;(3)掌握FORTRAN90中基本数据类型及其描述、运算;(4)掌握基本语句的使用。二、实验内容:(1)编写程序,将华氏温度转化为摄氏温度,公式为:。要求:输入一个华氏温度值F,按照公式将其转化为摄氏温度值C。(2)编写程序,其功能是:输入a,b,x的值,计算并输出y的值。当x=,a=-5,b=,y=-03。三、、程序清单programmain_1implicitnonereal::F,Cread*,FC=5*(F-32)/9print*,"C=",Cendprogrammain_2implicitnonereal::a,b,x,yprint*,"输入x,a,b:"read*,x,a,by=(exp(a*x)+log(x)*log(x))/(5*b)print*,"y=",yend五、调试和测试结果六、教师批语与成绩评定:年月日《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月闰年为29天,平年为28天。②年份能被4整除,但不能被100整除,或者能被400整除的年均为闰年。(2)编写程序,输入一个自然数,若为奇数则输出其平方根,否则输出其立方根。三、、程序清单programmain_3implicitnoneinteger::year,month,dayprint*,"请输入年,月"read*,year,monthif(month==============12)thenprint*,"本月有31天"elseif(month========11)thenprint*,"本月有30天"elseif(month==2)thenif(mod(year,4)==(year,100)/=(year,400)==0)thenprint*,"本月有29天"elseprint*,"本月有28天"endifelseif(month/=(1,12))thenprint*,"输入错误"endifendprogrammain_4implicitnoneinteger::areal::bprint*,"请输入a"read*,aif(mod(a,2)==1)thenb=a**=a***,bend五、调试和测试结果六、教师批语与成绩评定:年月日《FORTRAN语言》实验(上机)报告班级·、实验目的(1)掌握用DO语句和DOWHILE语句实现循环的方法;(2)掌握循环结构的实现方法;(3)掌握循环嵌套的执行过程。二、实验内容:(1)编写程序,求100~1000之间的所有素数,要求输出这些素数的个数和平均值。(2)编写程序,,其中。当m=10时,Y的值是多少?三、、程序清单Programmain_5implicitnoneinteger::i,j,n=0,s=0real::a==100,1000doj=2,SQRT(REAL(i))if(mod(i,j)==0)EXITenddoif(j>SQRT(REAL(i)))thenn=n+1s=s+iendifenddoa=real(s)/real(n)print*,"素数的个数有",n,"个","平均值为",aendProgrammain_6implicitnoneintege