首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
admin
2019-04-04
113
问题
编写程序
【程序功能】
在给定范围内查找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
全国高校计算机二级
相关试题推荐
Formostofthepastdecadethemusicindustryfocusedonsuingpeopletotrytopreventpiracy.OvertheyearstheRecordingIn
ThesuccessofAugustusowedmuchtothecharacterofRomantheorizingaboutthestate.TheRomansdidnotproduceambitiousblu
设置拨号连接属性卸载Qos数据包计划程序。
如果有一个wanglong@lnu.edu.cn的邮件地址,利用这个邮件地址进行注册。
从当前界面开始,在【资源管理器】窗口中,使用右键方式设置本地驱动器C为共享方式。
启动操作系统自带的Intemet连接防火墙。
在Word窗口中搜索含有关键词“荷花”的文档。
下列叙述中,不属于结构化程序设计方法的主要原则的是()。
以下有关FORTRAN90基本概念的叙述中,正确的是________。
数学式对应的VB表达式是________。
随机试题
正常体温受机体内、外因素影响稍有波动,但一般范围不超过()
如果旅游团要乘坐国内航班要提前()小时。
为了使系统中各部分资源得到均衡使用,就必须选择对资源需求不同的作业进行合理搭配,这项工作是由()完成的。
我国第一部以马克思主义观点阐述教育问题的著作是杨贤江的()。
《香港特别行政区基本法》为香港社会的长治久安和繁荣发展提供了有力保障。下列有权修改《香港特别行政区基本法》的是()。
语言与语言的碰撞和融合是文化与文化交往的一部分,现今世界里这种交往正在变得更频繁更迅捷,而从一种语言本身来看,它总是既要保持过去的精华,又要吸收外来因素,否则无以传达新的现实。在这段话里,“语言与语言的碰撞和融合”是指()。
[A]Bringavisualreminder[B]Eatnothingbeforeshopping[C]Primeyourselfforhealthyeating[D]Useahalf-sized
以下关于网络工程需求分析的叙述中,错误的是()。
NisaburoandHirokoOhataareunlikemostJapanesecouplestheirage.Sure,Hiroko,58,isworriedaboutherhusband’shighblo
Wouldyoubehappierifyouspentmoretimediscussingthestateoftheworldandthemeaningoflife—andlesstimetalkingabou
最新回复
(
0
)