2008 2009 fortran 江苏 计算机 二级 机试.docVIP

2008 2009 fortran 江苏 计算机 二级 机试 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2008年春） 二级 FORTRAN90 语言 （试卷代号F01） （本试卷完成时间 70分钟） 一、改错题（20分） 【题目】找到所有符合以下条件的4位正整数：⑴该数除以其后两位数字组成的数之商是完全平方数；⑵该平方数恰好等于前两位数字组成的数加1之平方；⑶该数本身不是完全平方数。例如1805÷5=(18+1)2，1805不是完全平方数，1805即为所需寻找的数之一。遍历所有四位整数，无参过程resolve将4位数分解成左右两个两位数。含有错误的源程序如下： LOGICAL FUNCTION check(n) RESULT(log) IMPLICIT NONE LOGICAL::log INTEGER::n,left,right,tmp1,tmp2 REAL::temp,eps=1E-15 CALL resolve tmp1=n/right; tmp2=sqrt(n+eps) log=.FALSE. temp=SQRT(tmp1+eps) IF(INT(temp)**2==tmp1 .OR. tmp2**2/=n)THEN IF((left+1)**2==tmp1)THEN log=.TRUE. ENDIF ENDIF CONTAINS SUBROUTINE resolve right=MOD(n,100) left=(n-right)/10 END SUBROUTINE resolve END FUNCTION check ! PROGRAM strange IMPLICIT NONE INTEGER::i LOGICAL::check OPEN(1,FILE=myf1.out) DO i=1001,9999 IF(MOD(i,100)/=0)THEN IF(check(i))THEN WRITE(1,(I5))I; WRITE(*,(I5))i ENDIF ENDIF ENDDO END PROGRAM strange 【要求】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.5887 0.9711 1.4231 1.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年春） 二级 FORTRAN90 语言 （试卷代号F02） （本试卷完成时间 70分钟） 一、改错题（20分） 【题目】若p为素数，2p－1也是素数，则称2p－1为Mersenne数。除少数几个Mersenne数可以在计算机整型数范围内表示外，它们都比较大。可以模拟手工求乘幂的方法求较大的Mersenne数。子程序Power(……)模拟手工求2的乘幂。本程序求p=19，31，61时的Mersenne数。含有错误的源程序如下： SUBROUTINE Power(m,last,term,length) IMPLICIT NONE INTEGER::m,last,length,i,j,k INTEGER(2),DIMENSIO