首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
编写程序 【程序功能】 在给定范围内查找k,使得公式k2+k+17生成的整数满足以下条件:该数的十进制表示中低3位数字相同,去掉低3位后的整数是回文数。例如,当k=461时,用公式生成的整数是212999,该数满足条件。 【编程要求】 (1)编写函数子程序
admin
2019-04-04
108
问题
编写程序
【程序功能】
在给定范围内查找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
全国高校计算机二级
相关试题推荐
OnCollegeStudents’DrivingtoCampus小议学生开车上学A.Title:OnCollegeStudents’DrivingtoCampusB.Wordlimit:160-200words(not
2005年11月金山笔试题。编码完成下面的处理函数。函数将字符串中的字符’*’移到串的前部分,前面的非’*’字符后移,但不能改变非’*’字符的先后顺序,函数返回串中字符’*’的数量。如原始串为:ab**cd**e*12,处理后为*****abcde12,函
输入一个单向链表,输出该链表中倒数第k个结点。链表的倒数第0个结点为链表的尾指针。链表结点定义如下:structListNode{intm_nKey;ListNode*m_pNext;};
如果WindowsXP不能够识别网络适配器如何安装网络适配器。
在OutlookExpress中,将主题为“生日聚会”的邮件保存到“我的文档”下,名称“生日聚会”。
将当前远程目录中名为“2.10”的文件夹,添加到传输队列中,并进行传输。
在"命令提示符"属性窗口下,改屏幕颜色为"蓝色"。
关于磁盘下面说法()是正确的。A.软磁盘携带方便,新盘使用前必须进行格式化B.3.5英寸软盘的写保护块遮住方孔时,只能读、不能写C.硬磁盘不要轻易格式化,每次格式化之前,必须先进行分区D.硬磁盘的盘片与驱动器密封为一个整体,不易损坏,寿命长
设置为键入时检查语法和随拼写检查语法
随机试题
下列选项中,正确表述世界观和方法论关系的有:
简述涉外父母子女关系的准据法。
在处理急性脓胸时,下列何种原因不会导致慢性脓胸_______。
听神经瘤的早期确诊,最佳检查是
《动物防疫条件审查办法》规定动物饲养场之间的距离应不少于
在编制监理规划时,对投资控制、进度控制和质量控制都应包括( )等内容。
投资组合保险策略的支付曲线是凹线。()
自豪感是教师因本职工作的伟大而感到光荣的一种道德情感。()
建立社会主义市场经济体制是在党的()上提出的。
在数据库应用系统设计中,如果在事务中存在和用户的长时间交互,它会带来哪些坏处()。Ⅰ.降低系统的并发度Ⅱ.增加死锁的数量Ⅲ.破坏数据的一致性Ⅳ.影响检查点的效果
最新回复
(
0
)