fortran90例子概述.doc

输入M个实数，将其相加，并输出其和。 PROGRAM example_1 Implicit none Integer ::n,m Real ::t=0,a=0 Read *,m Do Read *， a T=t+a N=n+1 If (n=m) exit End do Print*,t End program example_1 求∑I!的阶乘（I=4,8）。 Function factor(n) result(fac_result) Implicit none Integer ,intent(in)::n Integer,intent(out)::fac_result Integer::I Fac_result=1 Do I=1,n Fac_result=fac_result*I End do End function factor Program example_2 Implicit none Integer ::factor,s=0,I Do I=4,8 S=s+factor(i) End do Print*,s End program example_2 输入一个数，判断他是否能被3整除，并输出相应的信息。 Program judge Implicit none Integer :: n,m Read*,n M=mod(n,3) Select case(m) IF (M= =0) THEN Case (0) Print*,’yes’ Print*,’YES’ Case default ELSE Print*,’no’ Print*,’NO’ End select END IF End program judge 判断一个整数N是否为素数 PROGRAM prime Implicit none Integer ::n,I,m Read*,n M= sqrt(real(n)) Do I=2,m If(mod(n,i)= =0) exit End do If (Im) then Print*,’yes’ Else Print*,’no’ end if end program prime 求N的阶乘 PROGRAM example_5 Implicit none Integer::n,I=0,fac=1 Read*,n Do while (I7) I=I+1 Fac=fac*I End do End program example_5 求出全部的水仙花数。（水仙花数是个三位数，其各位数字的立方和等于该数。） program example_6 implicit none integer ::I,j,k,m,n ii: do I=1,9 jj: do j=1,9 kk: do k=1,9 m=I*100+j*10+k n=I**3+j**3+k**3 if (m= =n) print*,m end do kk end do jj end do ii end program exaple_6 牛顿迭代法求方程X**4+4*X+1=0的根 program example_7 implicit none integer ::I=1,m real::x0,x,e read*,x0,e,m (m控制迭代次数) do x=(-x0*x0-1)/4 if (abs(x-x0)=e) exit x0=x I=I+1 If (I=m) then Print*,’not’ Exit End if End do If (Im) print*,I,x End program example_7 将例2写成接口块的形式 主程序： Program example_2 Implicit none Interface Function factor(n) result(factor_result) Integer ,intent(in)::n Integer::factor_result