首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
admin
2019-04-04
120
问题
编写程序
【程序功能】
在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。
【编程要求】
(1)编写函数子程序found(n1,n2,array)以实现以下功能:k依次取n1~n2范围内的每个整数,分别用每个k及公式k2+k+17生成整数y,若y满足给定条件,则将k值及y值保存到array数组中,函数返回array数组及数组中k的个数。
(2)编写主程序,实现以下功能:声明二维数组array(10,2)和变量n1、n2,输入两个整数并保存到n1、n2中,用n1、n2及array数组作为实参调用found函数,按所给格式输出array数组中的数据到屏幕及文件myf2out中。
【测试数据及运行结果】输入:n1=1,n2=10000输出:k number
461 212999
586 343999
3839 14741777
【要求】
(1)源程序必须存放在文件MYF2F90中。
(2)数据文件的打开、使用、关闭均要求采用FORTRAN语言文件管理语句实现。
(3)程序运行结果存于文件MYF2OUT中。
(4)本题完成后必须将MYF2F90、MYF2OUT复制到考试盘(盘符为T:)的根目录下供阅卷用。
选项
答案
! 1,10000 ! k number ! 461 212999 ! 586 343999 ! 3839 14741777 ! Pressanykeytocontinue functionfound(n1,n2,array)result(found_res) implicitnone integer::n1,n2,found_res integer,dimension(10,2)::arrayinteger::i,j,x1,x2,x3,y,k i=0 dok=n1,n2 y=kk+k+17 x1=y/1000;x2=x1;x3=0dowhile(x1>0) x3=x310+mod(x1,10); x1=x1/10enddo if(x2==x3.and.mod(y,10)==mod(y/10,10).and.mod(y,10)==mod(y/100,10))then i=i+1 array(i,1)=karray(i,2)=yendif enddofound_res=iendfunction programmainimplicitnone integer::n1,n2,found integer,dimension(10,2)::arrayinteger::i,j open(1,file="myf2.out") read,n1,n2 j=found(n1,n2,array) print"(2a12)","k","number"write(1,"(2a12)")"k","number"doi=1,j print,array(i,1),array(i,2)write(1,),array(i,1),array(i,2) enddoclose(1) Endprogram
解析
转载请注明原文地址:https://kaotiyun.com/show/vbhZ777K
0
全国高校计算机二级
相关试题推荐
Writeanessaybasedonthefollowingoutline.Youshouldwriteabout150wordsontheANSWERSHEET.1.教师用课外时间给学生补课赚钱的现象
输入n个整数,输出其中最小的k个。例如输入1,2,3,4,5,6,7和8这8个数字,则最小的4个数字为1,2,3和4。
求两个串中的第一个最长子串(神州数码以前试题)。如"abractyeyt","dgdsaeactyey"的最大子串为"actyet"。
执行下面代码后:
在金山网镖中添加一个端口过滤规则,其中端口为3080,协议为TCP,类型为远程,操作为禁止。
从当前界面开始,到“电话和调制解调器的选项”中,将系统中的标准56000bps调制解调器删除。
在【计算机管理器】窗口中,在“组”的目录下,新建一名称为“aa”的组。
启动操作系统自带的Intemet连接防火墙。
下列叙述正确的是______A.进行打印预览时必须开启打印机B.使用“文件”菜单中的“打开”命令可以打开一个以存在的.DOC文件C.Word2000可将正在编辑的文档另存为一个纯文本(.TXT)文件D.Word2000允许同时打开多个文件
要使Excel97的某单元格内输入的数据介于18至60之间,而一旦超出范围就出现错误提示,使用()。A.“数据”菜单下的“有效数据”命令B.“格式”菜单中的“单元格”命令C.“格式”菜单中的“条件格式”命令D.“格式”菜单中的“样式”命令
随机试题
我国商业银行在法兰克福金融市场发行的以美元为面值的金融债券称为()
简述公务员公开遴选程序。
午餐肉罐头的微生物培养检验应选用以下哪种培养分析方法最为适合()。
膀胱残余尿测定时,以下哪种说法不正确
某女,带下量多,色白或淡黄,质粘稠,无臭气,面色萎黄,神疲纳呆,便溏足肿,舌淡苔白,脉缓弱。治疗首选方为( )。
郭某用暴力殴打杨某,将其强奸。之后对杨某的全身以及物品进行搜索,发现有金项链一条、装有4000元钱的钱包一个、手机一部。郭某将这些东西全部据为己有,下列对郭某的行为,说法不正确的是哪些?
境内单位或者个人违反规定从事境外期货交易的,其依法承担的法律责任是()。
患者,女性,30岁。被汽车撞伤左季肋部1小时来诊。查体:体温37.5℃,脉搏110次/分,血压90/50mmHg。腹平坦,左上腹肌略紧张,局部压痛,腹有跳痛,有移动性浊音(+),听诊未闻肠鸣音。首先应进行的检查是()。
我国《环境保护法》规定,重点排污单位不公开或者不如实公开环境信息的,由县级以上地方人民政府环境保护主管部门()。
关于宪法关系及其特点的说法正确的是().
最新回复
(
0
)