fortran语言程设计.docVIP

《FORTRAN语言》实验（上机）报告 班级·学号 1333107.1133310723 姓名 郑珏辉 实验日期 12月19日任课教师 实验名称 实验一 顺序结构程序设计 验证型 一、实验目的 （1）熟悉Fortran PowerStation4.0的集成开发环境和上机步骤； （2）掌握源程序的书写格式；。要求：输入一个华氏温度值F，按照公式将其转化为摄氏温度值C。 （2）编写程序，其功能是：输入a,b,x的值，计算并输出y的值。 当x=1.234,a=-5,b=0.9876时，y= 9.376444E-03 。 三、实验平台 Fortran PowerStation 4.0 四、程序清单 program main_1 implicit none real::F,C read*,F C=5*(F-32)/9 print*,C=,C end program main_2 implicit none real::a,b,x,y print*,输入x,a,b: read*,x,a,b y=(exp(a*x)+log(x)*log(x))/(5*b) print*,y=,y end 五、调试和测试结果 六、教师批语与成绩评定： 年 月 日 《FORTRAN语言》实验（上机）报告 班级·学号 1333107.1133310723 姓名 郑珏辉 实验日期 12月19日 任课教师 实验名称 实验二 选择结构程序设计 验证型 一、实验目的 （1）掌握逻辑表达式的书写方法和逻辑型数据的使用； （2）学会正确使用逻辑运算符和逻辑表达式；program main_3 implicit none integer::year,month,day print*,请输入年，月 read*,year,month if(month==1.or.month==3.or.month==5.or.month==7.or.month==8.or.month==10.or.month==12)then print*,本月有31天 elseif(month==4.or.month==6.or.month==9.or.month==11)then print*,本月有30天 elseif(month==2)then if(mod(year,4)==0.and.mod(year,100)/=0.or.mod(year,400)==0)then print*,本月有29天 else print*,本月有28天 endif elseif(month/=(1,12)) then print*,输入错误 endif end program main_4 implicit none integer::a real::b print*,请输入a read*,a if(mod(a,2)==1)then b=a**0.5 else b=a**0.3333333 endif print*,b end 五、调试和测试结果 六、教师批语与成绩评定： 年 月 日 《FORTRAN语言》实验（上机）报告 班级·学号 1333107 1133310723 姓名 郑珏辉 实验日期12.26 任课教师 实验名称 实验三 循环结构程序设计 操作型 一、实验目的 （1）掌握掌握；掌握循环嵌套的执行过程 ，其中。 当m=10时,Y的值是多少？ 三、实验平台 Fortran PowerStation 4.0 四、程序清单 Program main_5 implicit none integer::i,j,n=0,s=0 real::a=0.0 do I=100,1000 do j=2,SQRT(REAL(i)) if(mod(i,j)==0)EXIT end do if(jSQRT(REAL(i))) then n=n+1 s=s+i end if e