江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2018年春）二级 FORTRAN90 语言

江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2018年春）二级 FORTRAN90 语言江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2018年春）二级FORTRAN90语言（试卷代号F01）（本试卷完成时间70分钟）一、改错题（20分）【题目】找到所有符合以下条件的4位正整数：⑴该数除以其后两位数字组成的数之商是完全平方数；⑵该平方数恰好等于前两位数字组成的数加1之平方；⑶该数本身不是完全平方数。例如1805÷5=(18+1)2，1805不是完全平方数，1805即为所需寻找的数之一。遍历所有四位整数，无参过程resolve将4位数分解成左右两个两位数。含有错误...

江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2018年春）二级FORTRAN90语言（试卷代号F01）（本试卷完成时间70分钟）一、改错题（20分）【题目】找到所有符合以下条件的4位正整数：⑴该数除以其后两位数字组成的数之商是完全平方数；⑵该平方数恰好等于前两位数字组成的数加1之平方；⑶该数本身不是完全平方数。例如1805÷5=(18+1)2，1805不是完全平方数，1805即为所需寻找的数之一。遍历所有四位整数，无参过程resolve将4位数分解成左右两个两位数。含有错误的源程序如下：LOGICALFUNCTIONcheck(n)RESULT(log)IMPLICITNONELOGICAL::logINTEGER::n,left,right,tmp1,tmp2REAL::temp,eps=1E-15CALLresolvetmp1=n/right;tmp2=sqrt(n+eps)log=.FALSE.temp=SQRT(tmp1+eps)IF(INT(temp)**2==tmp1.OR.tmp2**2/=n)THENIF((left+1)**2==tmp1)THENlog=.TRUE.ENDIFENDIFCONTAINSSUBROUTINEresolveright=MOD(n,100)left=(n-right)/10ENDSUBROUTINEresolveENDFUNCTIONcheck!PROGRAMstrangeIMPLICITNONEINTEGER::iLOGICAL::checkOPEN(1,FILE='myf1.out')DOi=1001,9999IF(MOD(i,100)/=0)THENIF(check(i))THENWRITE(1,'(I5)')I;WRITE(*,'(I5)')iENDIFENDIFENDDOENDPROGRAMstrange【要求】1.必须将上述源程序录入到文件MYF1.F90中，然后根据题目的要求以及程序中前后语句的逻辑关系改正程序中的错误。2.改错时可增加或删除说明语句，调换语句顺序，不允许增加或删除任何可执行语句。3.改正后的程序和运行结果分别用MYF1.F90和MYF1.OUT为文件名存入考试盘（盘符为T:）。【注意】本题完成后必须将MYF1.F90、MYF1.OUT拷贝到T:的根目录下供阅卷用。二、编程题（20分）【题目】函数 f(x)的展开式如下：将上式右端编写成外部过程。当级数通项的绝对值小于eps=1E-10时停止计算。在同一行上，x用F7.4，计算所得的用F10.6格式输出。计算所用的数据存放在文件MYF2.DAT中，从该文件输入的x的值分别为：0.58870.97111.42311.5456-1.4231-0.9711-0.5887【要求】1.源程序必须存放在文件MYF2.F90中。2.建立数据文件MYF2.DAT，所需输入数据即从该文件中读出。3.程序运行结果存于文件MYF2.OUT中。4.数据文件的打开、使用、关闭均要求采用FORTRAN语言文件管理语句实现。【注意】本题完成后必须将MYF2.F90、MYF2.DAT、MYF2.OUT等文件拷贝到考试盘（盘符为T:）的根目录下供阅卷用。2008年春F01-1_1234567891.unknown_1234567892.unknown_1234567890.unknown

                    本文档为【江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2018年春）二级 FORTRAN90  语言】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

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

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

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

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

立即下载

江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2018年春）二级 FORTRAN90 语言

你可能还喜欢