首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
admin
2019-04-04
97
问题
编写程序
【程序功能】
在给定范围内查找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
全国高校计算机二级
相关试题推荐
[A]Shopkeepersareyourfriends[B]Remembertotreatyourself[C]Sticktowhatyouneed[D]Livelikeapeasant[E]Balanceyourd
Whethertheeyesare"thewindowsofthesoul"isdebatable;thattheyareintenselyimportantininterpersonalcommunicationis
Proponentsoftheliberalartscontinuetoclaimthatnothingisasrelevanttolong-termcareersuccessasasolidgroundingin
类成员有()种可访问形式
根据委托(delegate)的知识,请完成以下用户控件中代码片段的填写:namespacetest{publicdelegatevoidOnDBOperate();publicclassUserControlBase
存储过程和函数的区别
设置拨号连接属性,使用终端窗口功能登录到远程计算机。
设置网络打印机,不允许每个连接到该计算机的用户都使用该网络打印机,只允许用户Administrators和Powerusers使用本地打印机。
在【安全中心】窗口中,设置windows防火墙的日志记录成功的连接。
在“开始”菜单的“所有程序”中添加“记事本”快捷方式。
随机试题
幼儿形成数概念的关键是()
《将军族》的作者是台湾作家()
当然退伙
Onlythosewhoworkhardwillbefavoredinthefiercecompetition.
如果函数f(x)在[a,b]上连续,在(a,b)内可导,则在(a,b)内至少存在一点ξ,使得f(b)一f(a)=_______.
区别脓尿与菌尿的方法
患者,女,40岁。低热3个月,热势常随情绪波动而起伏,烦躁易怒,口干而苦,舌红苔黄,脉弦数。诊断为内伤发热,其证候是
A.香砂六君子汤B.橘皮竹茹汤C.小半夏加茯苓汤D.生脉散合增液汤E.干姜人参半夏丸妊娠剧吐的痰湿阻滞证的治疗方剂为
议案是法定公文之一,它有法定主体,只能由()行文,政府的工作部门不能使用议案。
走过拉萨古城,首先______眼帘的便是那极富特色的藏族民居。平顶的白色楼房一座挨着一座,黑框的门窗上______着条条漂亮的短皱帘,家家的楼顶上五彩经幡______。古城民居的建筑风格独特,色彩鲜明,无论是颜色还是造型,都给人留下深刻的印象。填入画横线
最新回复
(
0
)