FORTRAN95程序的设计实验

1、FORTRAN95程序设计实验班级：核工11:薛院院学号：2110302026实验.实验容一个边长为8.5m的边形草地。计算八边形草地的面积并输出。.问题分析（流程图）输入边数与边长输入边数与边长计算三角形面积计算多边形面积结束.程序!核工程11!薛院院!计算8边形的面积PROGRAM COLUMATEREAL (4) A!定义边长REAL(8) B,PINTEGER。)NUMBER!定义边数REAL(8) AREAL!定义面积PRINT*,'请输入多边形的边数'READ*,NUMBERPRINT*,'请输入多边形的边长'READ*,AB=A/2/si n( 3

2、.14/NUMBER)P=A/2+BAREAL=SQRT(P*(P-A)*(P-B)*2)PRINT*,'该多边形的面积为：',AREAL END!输入边数8 ;输入边长8.5!输出结果：43.8四.实验结果实验二实验容计算还清贷款的月算问题分析三.程序!核工程11!薛院院!计算还清贷款的月数PROGRAM CALUCATEREAL P,D,R,MINTEGER M1PRINT*,'请分别输入贷款月利息贷款数以及每月尝还数READ*,P,D,RA=LOG10(1.0)PRINT*,AM=(LOG10(P)-LOG10(P-D*R)/LOG10(1+R)M仁 INT(M+

3、0.5)PRINT*,M1END四.实验结果实验三-.实验容用case结构和seclect语句实现税值计算二问题分析（流程图）三程序!核工11!薛院院!2110302026!计算应该缴纳的税program calucate_ moneyin teger in comereal:i ncome_ratereal:rate_ 仁 0.03,rate_2=0.05,rate_3=0.07,rate_4=0.10,rate_5=0.14,rate_6=0.20prin t*,'请输入收入(以万为单位)read*,i ncomeselect case(i ncome)case(0:1000)in

4、 come_rate=i ncome*rate_1prin t*,'缴纳的税为：',i ncome_ratecase(1001:2000)in come_rate=i ncome*rate_2prin t*,'缴纳的税为：',i ncome_ratecase( 2001:5000)in come_rate=i ncome*rate_3prin t*,'缴纳的税为：',i ncome_ratecase( 5001:10000)in come_rate=i ncome*rate_4prin t*,'缴纳的税为：',i ncome_ra

5、tecase( 10001:50000)in come_rate=i ncome*rate_5prin t*,'缴纳的税为：',i ncome_ratecase defaultin come_rate=i ncome*rate_6prin t*,'缴纳的税为：',i ncome_rateend selectend四.实验结果.实验容实验四计算 1- 2+3-4+(-1)叫，其中n满足1+22 + 32.+ n2>?.问题分析（流程图）三.程序!班级：核工11!：薛院院!日期:4.8!计算级数之和program mai n real:sum=1,term,s

6、ig n=1,s=0 in teger:a,i, n=0prin t*,'请输入一个较大的数(如 10000)read*,ado while(s<=a)n=n+1s=s+n*2en ddodo i=1, nsig n=-1*sig nterm=sig n/isum=sum-termen ddoprin t*,sumend四.实验结果实验五.实验容计算学生的平均成绩，每门课的平均成绩，三门课的平均成绩以及统计高于每门课的成绩和三门平均成绩的学生人数和占总人数的比例.问题分析（流程图）三.程序!班级：核工程11!:薛院院!学号:2110302026!统计人数及比例program ma

7、i nparameter(max=5)character*5: nu mber(max)in teger,dime nsion (3):e nglish,math,physicsreal:averages(max),e nglish_ave,math_ave,physics_ave,averagereal:sum1=0,sum2=0,sum3=0in teger(1): n,n 1=0, n2=0, n3=0, nn=0real:p1,p2,p3,ppprint*,'请输入学生人数read*, nprint*,' 请输入',n,'名学生的学号、英语、数学、物理成

8、绩print*,'数据之间用空格间隔。学号为长度为5的字符串，用引号括住do i=1, nread* ,nu mber(i),e nglish(i),math(i),physics(i)averages(i)=(e nglish(i)+math(i)+physics(i)/3.0sum1=sum1+e nglish(i)sum2=sum2+math(i) sum3=sum3+physics(i) en ddoen glish_ave=sum1*1.0/nmath_ave=sum2*1.0/n physics_ave=sum3*1.0/naverage=(e nglish_ave+mat

9、h_ave+physics_ave)/3.0 do i=1,nif(en glish(i)>e nglish_ave )n仁n 1+1if(math(i)>math_ave )n2=n 2+1if(physics(i)>physics_ave )n3=n 3+1if(averages(i)>average )nn=nn+1end dop1=real( n1)/np2=real( n2)/np3=real( n3)/npp=real( nn)/nwrite(*,100)'英语',n 1,p1*100write(*,100)'数学',n2,p

10、2*100write(*,100)'物理',n3,p3*100write(*,100)'三门课,nn,pp*1OO100 format(1x,' 高于',a,'平均成绩的学生人数有',i2,' 人，占总人数比例,f8.2,'%') end四.实验结果* ' cydfigtg-?5a mpleOlg f mpLeQl. exeT月5间攻畫20为号号 的=隔 学间5 Sa £只工70八 人人人生ue 生蚩学1F1 学-S于的卓 的fi-co 备绐養 0 訂y 09平平一平陳ke 6 1 5*英骂三 于

11、十于于 麝醛也他宓竽回単冋髙reb 5 5 Mr ra gu 0 06 5 7b 5 06 £0 _&初.B-1 yn ass例 比 比比数 人人人億 总吕嘗心占 人光V实验六一.实验容输入4个整数放在4个数组中，数组向左循环位移1,2,3,4个位置， 第一个元素移动到最后一个元素，结果放在数组中，输出移除前后的 4个整数。.问题分析（流程图）三.程序!班级：核工程11 !名字：薛院院!日期:4.2 program mai n parameter n=4) in teger:x (n)print*,'请输入',n,'个整数do i=1, nread*,

12、x(i)en ddoprint 100,xdo i=1, nt=x(1)do j=2, nx(j-1)=x(j)en ddox(n )=tprint 100,xen ddo100 format(4i2)end四.实验结果实验七-.实验容1 = 0在x=1.5附近的值用牛顿迭代法求解方程X 3 - 2x2 + x -.问题分析（流程图）三. 程序!班级：核工11!:薛院院!学号：2110302026!日期：4.8 program mai n parameter(max=1000) real x(max)i=1x(1)=1.5do i=1,1000j=i+1if(abs(x(j)-x(i)>

13、10e-7) thenx(j)=x(i)-f(x(i)/f1(x(i)en difen ddoprint*,'计算的该数值为:x=',x(j)end四. 实验结果实验八.实验容对一组数字进行处理.问题分析（流程图）三.程序!班级：核工11!:薛院院!学号：2110302026!日期:201347!主程序program mai nparameter (max=50)in teger a(max), n,n1,n2call in put(a ,n)call sort(a ,n)n 1=odd(a ,n)n 2=eve n(a,n)print*,'这批整数'call

14、output(a ,n)',n1',n2prin t*,' 这批整数的奇数个数为: prin t*,' 这批整数的偶数个数为: call dele(a ,n)n 1=odd(a ,n)n 2=eve n(a,n)print* ,'剩余整数'call output(a ,n)prin t*,' 剩余整数奇数个数,n1 prin t*,' 剩余整数偶数个数,n2 containssubroutine input(a,n) integer a(max),n print'(a)',' 请输入这批整数个数 n： re

15、ad*,nprint'(a,i2,a)',' 请输入 ',n,' 个整数： read*,(a(i),i=1,n) end subroutine! 数据输出子程序 subroutine output(a,n) integer a(n),n print*,a end subroutine ! 整数排序子程序 subroutine sort(a,n) integer a(n),n integer : i, j, m, t do i =1,n m = i do j = i+1, n if (a(j) < a(m) then m = j end if end

16、 do if (i /= m) then t = a(i) a(i) = a(m) a(m) = t end if enddo end subroutine subroutine dele(a,n) integer a(n),n,i,j i=1 do while(i<n) j=i+1 do while(j<=n) if (a(i)=a(j) then do k=j+1,n a(k-1)=a(k) enddo n=n-1 else j=j+1en difen ddoi=i+1en ddoend subrout ine!统计奇函数function odd(a ,n)in teger a(n), n, odd,oddl oddl=0do i=1, n if(mod(a(i),2)=1)oddl=oddl+1 en