Fortran90课件报告.ppt

习题4 character a read*,a if (aa.and.az)then print*,a, 是小写字母 else print*,a, 是大写字母 endif end 习题5 real s, d, price real weight, freight print*, “price,weight,s read*,price,weight,s if (s250) then d=0 elseif (s500) then d=0.025 elseif (s1000) then d=0.045 elseif (s2000) then d=0.075 习题6 integer m,n read*,m,n if (mod(n,m)==0) then print*,YES else print*,NO endif end 习题7 do m=10,99 read*,m n=m**2 if(mod(n,100)==m) then print*,m,是守形数“ else print*,m,“不是守形数“ endif enddo end 习题8 real a,b,c,d read*,a,b,c,d if (ab) then t=a;a=b;b=t endif if(ac)then t=a;a=c;c=t endif if(ad) then t=a;a=d;d=t endif 习题9 real x,y read*,x if (x=-15.and.x0) then y=cox(x+1） Elseif (x=0.and.x10) then y=log(x**2+1) elseif(x15.and.x20) then y=x**(1.0/3) Else y=x**2 Endif end 关于计算等差数列与等比数列 赋值语句：a=a + d 具有 公式的计算功能 例4.1计算 其中第n项为： Real S ,A Read*, x, n A=1 S=1 Do k=1 ,n A=A*x/k ！K=1,2,3,……，n S=S+A Enddo Print *,S End 习题1-（5） sum=1 j=1 do while (j.le.3) f=1 do i=2,2*j+1 f=f*i enddo sum=sum+f j=j+1 enddo print*,sum end 习题2 S=0 Do n=1,1000 f1=1.0/(4*n-3) f2=-1.0/(4*n-1) s=s+f1+f2 Enddo Print*,”π的值为:”, s*4 end 习题3 习题4 习题6 习题7 习题7 习题10 习题8 character( Len=80 ) s ,str read*,s j=1 do i=1,len(s) if (s(i:i)/= ) then str(j:j)=s(i:i) j=j+1 endif enddo print*,str end P66习题9 integer*4 m i=0 do k=2,2000 m=k*k if (k10) then n=mod(m,10) elseif (k99) then n=mod(m,100) elseif(k999) then n=mod(m,1000) else n=mod(m,10000) endif if (n==k) then i=i+1 print*,k,的低位数为:,n endif enddo print*,满足条件的数有：,i,个 end P66习题11 real x,y0,y print*,请输入x的值 read*,x y0=x y=y0*2.0/3.0+x/(3*y0*y0) do while (abs(y-y0)1e-5) y0=y y=y0*2.0/3.0+x/(3*y0*y0) enddo print*,x,的立方根为：,y end P66习题13 integer m,n,h,l integer*4::k print*,请输入四位的整数m,n read*,m,n k=m*n h=k/10000 l=mod(k,10000) pri