首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
admin
2019-04-04
111
问题
编写程序
【程序功能】
在给定范围内查找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
全国高校计算机二级
相关试题推荐
GooglealreadyhasawindowintooursoulsthroughourInternetsearchesanditnowhasinsightintoourailingbodiestoo.The
ThesuccessofAugustusowedmuchtothecharacterofRomantheorizingaboutthestate.TheRomansdidnotproduceambitiousblu
OperaAdshasannouncedtheadditionofnewadunitstohelpNigerianadvertisersincreaseengagementwiththeirtargetaudience
不开辟新空间完成字符串的逆序
删除字符串中的数字并压缩字符串(神州数码以前笔试题),如字符串”abc123de4fg56”处理后变为”abcdefg”。注意空间和效率。(下面的算法只需要一次遍历,不需要开辟新空间,时间复杂度为O(N))
在即时通讯工具MSN中,通过菜单栏中的【高级搜索】菜单命令,查找MSN的PublicName为“john”,Gender(性别)为“Male”,Iocation为“Australia”(澳大利亚),其余选项不加限制的MSN用户。
在Excel中,函数ABS(ROUND(-1.478,2))的计算结果是()。A.-1.478B.1.48C.-1.48D.1.5
下面哪些属于中国域名()A.MicrosoftB.eeec.comC.ibm……ilD.bta.cn
在输入时,使Word只检查拼写,不检查语法。
19世纪,英国数学家巴贝奇被称为“计算机之父”。
随机试题
国际抗癌协会TNM法对Ⅲ期乳腺癌描述下列哪项是不正确的
A、荔枝核B、薤白C、青皮D、化橘红E、枳实功能理气散寒,燥湿化痰,消食的中药是()
市场法中,采用间接比较得出房地产状况修正系数为0,951,其依据是可比实例的房地产状况优于标准房地产状况得102分,估价对象的房地产状况劣于标准房地产状况得97分。()
为了便于管线施工时引测高程,施工前应()。
我国对美、日输华货物木质包装主要关注的有害生物是松材线虫。( )
根据某地级市运输集团公司原职工举报,市地税局稽查局对该集团公司纳税情况依法实施稽查后发现,该集团公司在2006年1至6月存在不按规定使用发票、未按规定申报、账外经营、隐匿收入、编造虚假记账凭证、偷逃税款等行为。市地税局稽查局依法下达《税务处理决定书》,责令
中国银监会提出的银行监管理念包括()。
楚汉战争中,刘邦打败项羽最主要的原因是()。
Janedidn’tlikeourplan,soshecounteredit.
Althoughhesometimeslosthistemper,hispupilslikedhim________forit.
最新回复
(
0
)