欢迎来到天天文库
浏览记录
ID:15835336
大小:76.50 KB
页数:4页
时间:2018-08-06
《一道fortran子程序题》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、已知整型数组a[100],各元素值为:a1=25,a2=-25,ai=(ai-1*4627+ai-2*3581)/100%100-50(i=3,4,…,100)将a数组按从小到大的顺序进行排序,即把a重整为a1≤a2≤…≤a100后,输出a24、a76。integera(100)a(1)=25a(2)=-25doi=3,100a(i)=mod((a(i-1)*4627+a(i-2)*3581)/100,100)-50enddocallsort(a,100)print*,a(24),a(76)ENDsub
2、routinesort(a,n)integera(n)doi=1,n-1k=idoj=i+1,nif(a(j)3、,8,25,45,55,99。如:522=2704,27+04=31;312=961,9+61=70;702=4900,49+0=49;492=2401,24+1=25,则M(52)=25调用该子程序求求362functionm(n)k=ndok=k*kk=mod(k/100+mod(k,100),100)selectcase(k)case(0,1,8,25,45,5,99)exitendselectenddom=kendintegersdon=31,39s=s+m(n)enddoprint*,send4、已知x、y是两个四位数,求以下方程的解X2-92y2=1一个自然数被8除余1,所得的商被8除也余1,再将第二次的商被8除后余7,最后得到一个商为a。又知这个自然数被17除余4,所得的商被17除余15,最后得到一个商是a的2倍。编写程序求这个自然数。如果一个正整数等于其各位数字的立方和,则称该数为阿姆斯特朗数。如407=43+03+73就是一个阿姆斯特朗数。求10~999之间有多少个阿姆斯特朗数。编写一个求阶乘的函数,调用该函数求10~999之间有多少个满足下列条件的数:该数等于其各位数字的阶乘和A、B两5、个自然数的和、差、积、商四个数加起来等于243,求A,B两数。已知能被4整除而不能被100整除的或者能被400整除的年份是闰年,编写判断某一年是否是闰年的函数子程序,某整数X加上100就成为一个完全平方数,如果让X加上168就成为另一个完全平方数。求X。校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人?牛顿迭代法求方程X3+4X2-10=0一辆卡车违反交通规则,撞人后逃跑。现场有三人目击事件6、,但都没有记住车号(一个四位数),只记下车号的一些特征。甲说:牌照的前两位数字是相同的;乙说:牌照的后两位数字是相同的,但与前两位不同;丙是数学家,他说:四位的车号刚好是一个整数的平方。请根据以上线索求出车号。在100和1000之间,有多少个其数字之和等于9而且该数可被5整除的整数?求,直到累加项小于10-6为止。s=0f=1n=0dowhile(f>=1e-6)f=(4**(n+1)-(-1.)**n*3**(n-1))/5**ns=s+fn=n+1enddoprint*,send求下列级数的和1、27、、4、7、11、16…,数与数之间的差为1、2、3、4、5、……设,试证:(1)存在;*(2)级数收敛.
3、,8,25,45,55,99。如:522=2704,27+04=31;312=961,9+61=70;702=4900,49+0=49;492=2401,24+1=25,则M(52)=25调用该子程序求求362functionm(n)k=ndok=k*kk=mod(k/100+mod(k,100),100)selectcase(k)case(0,1,8,25,45,5,99)exitendselectenddom=kendintegersdon=31,39s=s+m(n)enddoprint*,send
4、已知x、y是两个四位数,求以下方程的解X2-92y2=1一个自然数被8除余1,所得的商被8除也余1,再将第二次的商被8除后余7,最后得到一个商为a。又知这个自然数被17除余4,所得的商被17除余15,最后得到一个商是a的2倍。编写程序求这个自然数。如果一个正整数等于其各位数字的立方和,则称该数为阿姆斯特朗数。如407=43+03+73就是一个阿姆斯特朗数。求10~999之间有多少个阿姆斯特朗数。编写一个求阶乘的函数,调用该函数求10~999之间有多少个满足下列条件的数:该数等于其各位数字的阶乘和A、B两
5、个自然数的和、差、积、商四个数加起来等于243,求A,B两数。已知能被4整除而不能被100整除的或者能被400整除的年份是闰年,编写判断某一年是否是闰年的函数子程序,某整数X加上100就成为一个完全平方数,如果让X加上168就成为另一个完全平方数。求X。校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人?牛顿迭代法求方程X3+4X2-10=0一辆卡车违反交通规则,撞人后逃跑。现场有三人目击事件
6、,但都没有记住车号(一个四位数),只记下车号的一些特征。甲说:牌照的前两位数字是相同的;乙说:牌照的后两位数字是相同的,但与前两位不同;丙是数学家,他说:四位的车号刚好是一个整数的平方。请根据以上线索求出车号。在100和1000之间,有多少个其数字之和等于9而且该数可被5整除的整数?求,直到累加项小于10-6为止。s=0f=1n=0dowhile(f>=1e-6)f=(4**(n+1)-(-1.)**n*3**(n-1))/5**ns=s+fn=n+1enddoprint*,send求下列级数的和1、2
7、、4、7、11、16…,数与数之间的差为1、2、3、4、5、……设,试证:(1)存在;*(2)级数收敛.
此文档下载收益归作者所有