江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(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