2019年秋二级FORTRAN90上机试卷参考答案（试卷代号F02）一、改错
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
（20分）【题目】将包含有整数部分和小数部分的八进制数（形式上和十进数无异）转换成十进制实数。方法是分离整数部分和小数部分，然后分别转换成十进数。!outputresults!11.11111!33.33333!55.55555!77.77777!PROGRAMmainIMPLICITNONEINTEGER::i,k=4REAL,ALLOCATABLE,DIMENSION(k)::oct!/*DIMENSION(:)*/REAL::dec,oct2decALLOCATE(oct(k))oct=(/13.070707,41.252525,67.434343,115.616161/)OPEN(1,FILE='myf1.out')DOi=1,4dec=oct2dec(oct(i))WRITE(*,'(F9.5)')dec;WRITE(1,'(F9.5)')decENDDOENDPROGRAMmain!FUNCTIONoct2dec(oct)RESULT(dec)IMPLICITNONEREAL::oct,dec,octdec,tempINTEGER::count,octint,tmpdec=0.0octint=INT(oct);octdec=oct-octintcount=0DOWHILE(octint>0)tmp=MOD(octint,10)dec=dec+tmp*8.**countcount=count+1octint=octint/8!/*octint/10*/ENDDOcount=-1DOWHILE(octdec>0)temp=octdec*8!/*octdec*10*/tmp=INT(temp)dec=dec+tmp*8.**countcount=count-1octdec=temp-REAL(tmp)ENDDOENDFUNCTIONoct2dec二、编程题（20分）【题目】函数f(x)的展开式如下：EMBEDEquation.3<1事实上。计算所用的数据存放在文件MYF2.DAT中，从该文件输入的x的值分别为：0.58870.78520.88740.9921-0.8874-0.7852-0.588!OUTPUTDATA!x=0.5887f(x)=1.066070g(x)=1.066070!x=0.7852f(x)=1.270125g(x)=1.270125!x=0.8874f(x)=1.622476g(x)=1.622476!x=0.9921f(x)=5.658887g(x)=5.658891!x=-0.8874f(x)=1.622476g(x)=1.622476!x=-0.7852f(x)=1.270125g(x)=1.270125!x=-0.5887f(x)=1.066070g(x)=1.066070!FUNCTIONf(x)RESULT(s)IMPLICITNONEREAL(4)::n,x,xp4,sum,s,un,eps=1E-10xp4=x**4;n=1;un=xp4/2;sum=0.0DOWHILE(ABS(un)>eps)sum=sum+unun=un*((2*n+1)/(2*n+2))*xp4n=n+1ENDDOs=1+sumENDFUNCTIONf!PROGRAMMainIMPLICITNONEREAL::x,f,y,zINTEGER::iCHARACTER(len=50)::fmtfmt='("x=",F7.4,"f(x)=",F9.6"g(x)=",F9.6)'OPEN(1,FILE='myf2.dat')OPEN(2,FILE='myf2.out')DOi=1,7READ(1,*)xy=f(x);z=1/SQRT(1-x**4)WRITE(2,fmt)x,y,zWRITE(*,fmt)x,y,zENDDOENDPROGRAMMain2010qf02-1_1234567891.unknown_1234567892.unknown_1234567893.unknown_1234567890.unknown
浙公网安备 33021202002483