一道fortran子程序题

《一道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*,send

4、已知x、y是两个四位数，求以下方程的解X2-92y2=1一个自然数被8除余1，所得的商被8除也余1，再将第二次的商被8除后余7，最后得到一个商为ａ。又知这个自然数被17除余4，所得的商被17除余15，最后得到一个商是ａ的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)级数收敛.