2019年秋二级 FORTRAN90 上机试卷参考答案（试卷代号F04）

2019年秋二级 FORTRAN90 上机试卷参考答案（试卷代号F04）2019年秋二级FORTRAN90上机试卷参考答案（试卷代号F04）一、改错题（20分）【题目】哥德巴赫猜想说“任一大于8的偶数都可以表示成两个素数之和”。这种表示方式有多种。按照以下方法可表示成数值上最接近的两素数之和：首先将要验证的偶数n取半为m，若m是偶数，则检验m-1和n-m+1是否素数；若m是奇数，则检验m和n-m是否素数。两者均是素数时停止。若检验结果不符要求，就不断检验减2（另一部分加2）后的奇数是否均为素数。!outputresults!1175717+1175963=235...

2019年秋二级FORTRAN90上机试卷参考答案（试卷代号F04）一、改错题（20分）【题目】哥德巴赫猜想说“任一大于8的偶数都可以表示成两个素数之和”。这种表示方式有多种。按照以下方法可表示成数值上最接近的两素数之和：首先将要验证的偶数n取半为m，若m是偶数，则检验m-1和n-m+1是否素数；若m是奇数，则检验m和n-m是否素数。两者均是素数时停止。若检验结果不符要求，就不断检验减2（另一部分加2）后的奇数是否均为素数。!outputresults!1175717+1175963=2351680!1575991+1576321=3152312!2083957+2083957=4167914!2593651+2593891=5187542!4990981+4991383=9982364!PROGRAMMainIMPLICITNONEINTEGER::k,m,i,number=5INTEGER,ALLOCATABLE,DIMENSION(:)::nCHARACTER(len=45)::fmt='(I7,"+",I7,"=",I7)'OPEN(1,FILE='myf1.out')ALLOCATED(n(number))!/*ALLOCATE(n(number))*/n=(/2351680,3152312,4167914,5187542,9982364/)out:DOi=1,numberk=n(i)/2;IF(MOD(k,2)/=0)k=k-1;m=0!/*MOD(k,2)==0*/DOWHILE(m<n(i))m=n(i)-kIF(prime(k).OR.prime(m))THEN!/*prime(k).AND.prime(m)*/WRITE(*,fmt)k,m,k+m;WRITE(1,fmt)k,m,k+mCYCLEoutELSEIF(.NOT.prime(k).OR..NOT.prime(m))THENk=k-2ENDIFENDDOENDDOoutCONTAINSFUNCTIONprime(n)RESULT(p)LOGICAL::pINTEGER::n,kk=1DOk=k+2IF(k**2<=n)THENIF(MOD(n,k)/=0)CYCLEp=.FALSE.;EXITELSEp=.TRUE.;EXITENDIFENDDOENDFUNCTIONprimeENDPROGRAMMain二、编程题（20分）【题目】函数f(x)的展开式如下：，其中。事实上，。计算所用的数据存放在文件MYF2.DAT中，从该文件输入的x的值分别为：0.58870.68520.78740.9988-0.7874-0.6852-0.5887!OUTPUTDATA!x=0.5887f(x)=0.741114g(x)=0.741114!x=0.6852f(x)=1.034485g(x)=1.034485!x=0.7874f(x)=1.427682g(x)=1.427682!x=0.9988f(x)=3.039949g(x)=3.039950!x=-0.7874f(x)=-1.427682g(x)=-1.427682!x=-0.6852f(x)=-1.034485g(x)=-1.034485!x=-0.5887f(x)=-0.741114g(x)=-0.741114!FUNCTIONf(x)RESULT(s)IMPLICITNONEREAL(4)::n,x,xsqr,sum,s,un,eps=1E-15xsqr=x**2n=1un=xsqr/24sum=0.0DOWHILE(ABS(un)>=eps)sum=sum+unun=un*((2*n+1)**2/((2*n+3)*(2*n+4)))*xsqrn=n+1ENDDOs=2*(1-SQRT(1-x**2))+x**2*(1+2*sum)IF(x<0)s=-sENDFUNCTIONf!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=x*acos(1-2*x**2)WRITE(2,fmt)x,y,z;WRITE(*,fmt)x,y,zENDDOENDPROGRAMMain2010qf04-1_1234567891.unknown_1234567892.unknown_1234567893.unknown_1234567890.unknown

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

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

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

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

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

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

潮起潮落

一线信息技术教师，具有丰富教学经验和管理经验，多次被评为地级优秀教师

格式：doc

大小：30KB

软件：Word

页数：2

分类：小学英语

上传时间：2019-09-24

浏览量：12

热点搜索

中央空调多联机系统技术交底江西2019中考历史总复习世界近代史第15章资产阶级统治的巩固与扩大习题四年级下册数学第六单元试卷分析 [doc] 蚕体发育不齐的原因及技术处理措施【问题提出】A1—1__自然数在现代数学中的定义与在小学实验五衍射光栅测定光波波长成功需要坚持作文700字防火防爆安全知识培训课件(干货内容下载即用) 我的心理故事600字作文计算工具发展简史世界的物质性原理方法论约翰一书约翰二书约翰三书犹大书基坑支护合同范本 7-液压电梯施工方案. 中央空调多联机系统技术交底江西2019中考历史总复习世界近代史第15章资产阶级统治的巩固与扩大习题四年级下册数学第六单元试卷分析 [doc] 蚕体发育不齐的原因及技术处理措施【问题提出】A1—1__自然数在现代数学中的定义与在小学实验五衍射光栅测定光波波长成功需要坚持作文700字防火防爆安全知识培训课件(干货内容下载即用) 我的心理故事600字作文计算工具发展简史世界的物质性原理方法论约翰一书约翰二书约翰三书犹大书基坑支护合同范本 7-液压电梯施工方案.

2019年秋 二级 FORTRAN90 上机试卷 参考答案（试卷代号F04）

你可能还喜欢

2019年秋二级 FORTRAN90 上机试卷参考答案（试卷代号F04）