习题详解3教程.pptx

习题详解3;输人3个实数，输出最大值和最小值。 program main implicit none real :: a,b,c,max2,min1 read(*,*) a,b,c max2=max(a,b,c) min1=min(a,b,c) write(*,*) max2,min1 stop end;2.任意输入两个数，对它们进行加、减、乘、除、乘方运算，并将结果输出。 program ex2 implicit none real :: a,b read(*,*) a,b write(*,*) a+b=,a+b write(*,*) a-b=,a-b write(*,*) a*b=,a*b write(*,*) a/b=,a/b write(*,*) “a**b=”,a**b stop end;3.已知：f(x)=x3+sin2x+ln(X4+1),输入自变量的值，求对应的函数值。 program main implicit none real :: f,x read(*,*) x f=x**3+(sin(x))**2+log(x**4+1) write(*,*) f stop end ;4．用FORTRAN语句完成下列操作： (1)将变量I的值增加l。 (2)I的立方加上J．并将其结果保存到I中。 (3)将E和F中大者存储到G中。 (4)将两位自然数的个位和十位互换，得到一个新的数 (不考虑个位为O的情况)。（拓展：输入一个三位整数，将它反向输出，如输入123，输出321） ;program main implicit none real :: i,j,e,f,g,k integer :: a,b,x,y !----1--- i=i+1 !----2--- write(*,*) input j: read(*,*) j i=i**3+j !----3--- write(*,*) input e,f read(*,*) e,f g=max(e,f) !----4--- write(*,*) input a: read(*,*) a a=mod(a,10)*10+a/10 write(*,*) a !----5-- write(*,*) input b: read(*,*) b x=mod(b,100) y=mod(b,10) b=y*100+int(x/10)*10+int(b/100) write(*,*) b stop end;5．设c代表摄氏温度，F代表华氏温度，两者转换公式为：F=;6．编程完成下列操作： (1)输入三个整数，求出其平均值。 ． (2)输人x和y的值，计算 (3)球的半径为4．求其表面积和体积。 program main implicit none integer :: a,b,c real,parameter :: pi=3.1415926 real :: mean,x,y,z,s,v !-------- write(*,*) input a,b,c: read(*,*) a,b,c mean=real((a+b+c)/3.0) !写成3.0或者加个real write(*,*) mean !------------ write(*,*) input x,y read(*,*) x,y z=log(x**2+y)/(sin(x*y)**2+1)+32.0 write(*,*) z !------------ s=4*pi*4**2 v=(4/3.0)*pi*4**3 !4/3写成real write(*,*) s=,s write(*,*) v=,v stop end;program main implicit none real,parameter :: pi=3.1415926 real :: x,y x=sqrt(1+tan(52.25*pi/180.0)) y=exp(pi*x/2.0)+log(abs(sin(x)**2-sin(x**2))) write(*,*) y stop end;8．某厂某产品产量2000年为20万吨，求： (1)如果到2010年产品产量翻两番，年平均增长速度要达多少? (2)如果年平均增长速度为9％。几年后该产品产量翻两番? program main implicit none real :