365文库
登录
注册
1

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

37阅读 | 1收藏 | 16页 | 打印 | 举报 | 认领 | 下载提示 | 分享:
1
2008 2009 fortran 江苏 计算机 二级 机试第1页
2008 2009 fortran 江苏 计算机 二级 机试第2页
2008 2009 fortran 江苏 计算机 二级 机试第3页
2008 2009 fortran 江苏 计算机 二级 机试第4页
2008 2009 fortran 江苏 计算机 二级 机试第5页
2008 2009 fortran 江苏 计算机 二级 机试第6页
2008 2009 fortran 江苏 计算机 二级 机试第7页
2008 2009 fortran 江苏 计算机 二级 机试第8页
2008 2009 fortran 江苏 计算机 二级 机试第9页
2008 2009 fortran 江苏 计算机 二级 机试第10页
2008 2009 fortran 江苏 计算机 二级 机试第11页
2008 2009 fortran 江苏 计算机 二级 机试第12页
2008 2009 fortran 江苏 计算机 二级 机试第13页
2008 2009 fortran 江苏 计算机 二级 机试第14页
2008 2009 fortran 江苏 计算机 二级 机试第15页
2008 2009 fortran 江苏 计算机 二级 机试第16页
福利来袭,限时免费在线编辑
转Pdf
right
1/16
right
下载我编辑的
下载原始文档
收藏 收藏
搜索
下载二维码
App功能展示
海量免费资源 海量免费资源
文档在线修改 文档在线修改
图片转文字 图片转文字
限时免广告 限时免广告
多端同步存储 多端同步存储
格式轻松转换 格式轻松转换
用户头像
奮不顧身 上传于:2024-06-28
江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(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
tj