2019秋备用卷二级 FORTRAN90 上机试卷参考答案（试卷代号F05）

2019秋备用卷二级 FORTRAN90 上机试卷参考答案（试卷代号F05）2019秋备用卷二级FORTRAN90上机试卷参考答案（试卷代号F05）一、改错题（20分）【题目】求n个正整数的最大公约数,显然，它是此n个数的共同质因子的乘积。先找出共同的质因子2（若有的话），再找出共同的质因子3，5，7等，直到没有共同的质因子为止，共同质因子之积是为最大公约数。用于测试的质因子不应大于n个数中最小数的一半。!Run-timeResult!GreatCommondivisoris126!GreatCommondivisoris9!FUNCTIONGreat_Common_Divisor(a,n...

2019秋备用卷二级FORTRAN90上机试卷参考答案（试卷代号F05）一、改错题（20分）【题目】求n个正整数的最大公约数,显然，它是此n个数的共同质因子的乘积。先找出共同的质因子2（若有的话），再找出共同的质因子3，5，7等，直到没有共同的质因子为止，共同质因子之积是为最大公约数。用于测试的质因子不应大于n个数中最小数的一半。!Run-timeResult!GreatCommondivisoris126!GreatCommondivisoris9!FUNCTIONGreat_Common_Divisor(a,n)RESULT(gcd)INTEGER::n,i,gcd,tmp,remainder,kINTEGER,DIMENSION(1:*)::a/*DIMENSION(1:n)*/tmp=2;remainder=0;gcd=1out1:DOWHILE(remainder==0)!此循环寻找共同的质因子2DOi=1,nremainder=MOD(a(i),tmp)IF(remainder==0)EXITout1/*remainder/=0*/ENDDOa=a/tmp;gcd=gcd*tmpENDDOout1k=MINVAL(a)/2;tmp=3DOWHILE(tmp<k)!以下循环寻找共同的质因子3，5，7，……out2:DODOi=1,nremainder=MOD(a(i),tmp)IF(remainder==0)EXITout2/*remainder/=0*/ENDDOa=a/tmp;gcd=gcd*tmp;CYCLEENDDOout2tmp=tmp+2ENDDOENDFUNCTION!PROGRAMmainIMPLICITNONEINTEGER::Great_Common_divisor,gcda,gcdbINTEGER,DIMENSION(6)::a,ba=(/630,2520,1386,1134,882,756/)b=(/882,1134,1260,1008,2520,999/)OPEN(1,FILE='myf1.out')gcda=Great_Common_divisor(a,6)gcdb=Great_Common_divisor(b,6)WRITE(*,*)gcda,gcdbWRITE(1,'("GreatCommondivisoris",I4)')gcda,gcdbENDPROGRAMmain二、编程题（20分）【题目】双曲线余弦函数的展开式如下：，将上式右端编写成外部过程。当级数通项的绝对值小于时计算停止。在同一行上，x用F7.4，计算所得的用F10.6格式输出。计算所用的数据存放在文件MYF2.DAT中，从该文件输入的x的值分别为：0.5887，1.5234，1.7635，2.2536,2.8633，3.3265，3.4988!Run-timeResult!x=0.5887ch(x)=1.178347cosh(x)=1.178347!x=1.5234ch(x)=2.402883cosh(x)=2.402883!x=1.7635ch(x)=3.002130cosh(x)=3.002130!x=2.2536ch(x)=4.813486cosh(x)=4.813486!x=2.8633ch(x)=8.788163cosh(x)=8.788163!x=3.3265ch(x)=13.938322cosh(x)=13.938323!x=3.4988ch(x)=16.552986cosh(x)=16.552986!FUNCTIONch(x)RESULT(f)IMPLICITNONEREAL(4)::n,x,xsq,an,bn,cn,f,un,sum,eps=1E-12xsq=x**2n=1an=1./2.un=1.0sum=0.0DOWHILE(ABS(un)>=eps)bn=an/(2*n+1)/(2*n+2)cn=bn/(2*n+3)/(2*n+4)un=(an-2*bn+cn)*xsq**nsum=sum+unan=bnn=n+1ENDDOf=(1-3*xsq/2+xsq**2/24+xsq**2*sum)/(1-xsq)**2ENDFUNCTIONch!PROGRAMMainIMPLICITNONEREAL::x,ch,y,zINTEGER::iOPEN(1,FILE='myf2.dat')OPEN(2,FILE='myf2.out')DOi=1,7READ(1,*)xy=ch(x)z=cosh(x)WRITE(2,FMT='("x=",F7.4,"ch(x)=",F10.6,"cosh(x)=",F10.6)')x,y,zWRITE(*,FMT='("x=",F7.4,"ch(x)=",F10.6,"cosh(x)=",F10.6)')x,y,zENDDOENDPROGRAMMain2010秋备用卷答案F05-1_1234567891.unknown_1234567892.unknown_1234567893.unknown_1234567890.unknown

                    本文档为【2019秋备用卷  二级 FORTRAN90 上机试卷  参考答案（试卷代号F05）】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

2019秋备用卷 二级 FORTRAN90 上机试卷 参考答案（试卷代号F05）

你可能还喜欢

2019秋备用卷二级 FORTRAN90 上机试卷参考答案（试卷代号F05）