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