道FORTRAN子程序题.docVIP

已知整型数组a[100]，各元素值为： a1=25，a2=-25， ai=（a i-1*4627+a i-2*3581）/100%100-50（i=3，4，…，100） 将a数组按从小到大的顺序进行排序，即把a重整为 a1≤a2≤…≤a100 后，输出a24、a76。 integer a(100) a(1)=25 a(2)=-25 do i=3,100 a(i)=mod((a(i-1)*4627+a(i-2)*3581)/100,100)-50 end do call sort(a,100) print*,a(24),a(76) END subroutine sort(a,n) integer a(n) do i=1,n-1 k=i do j=i+1,n if(a(j)a(k)) k=j end do m=a(i) a(i)=a(k) a(k)=m end do end 编程求100到300之间有多少个其各位数字之和为5的倍数。（例如，172，1+7+2=10） 编写一个子程序M(n)，其功能是：将数n（n是一个两位数）求平方得到一个四位数（不够四位数则认为千位数为0），将该四位数的前两位与后两位组成的两个两位数相加，取和的后两位。对某两位数重复该过程，直到得到以下值之一：0，1，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 调用该子程序求 求 362 function m(n) k=n do k=k*k k=mod(k/100+mod(k,100),100) select case(k) case(0,1,8,25,45,5,99) exit end select end do m=k end integer s do n=31,39 s=s+m(n) end do print*,s end 已知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两个自然数的和、差、积、商四个数加起来等于243，求A，B两数。 已知能被4整除而不能被100整除的或者能被400整除的年份是闰年，编写判断某一年是否是闰年的函数子程序， 某整数X加上100就成为一个完全平方数，如果让X加上168就成为另一个完全平方数。求X。 校体操队到操场集合，排成每行2人，最后多出1人；排成每行3人，也多出1人；分别按每行排4，5，6人，都多出1人；当排成每行7人时，正好不多。求校体操队至少是多少人？ 牛顿迭代法求方程X3+4X2-10=0 一辆卡车违反交通规则，撞人后逃跑。现场有三人目击事件，但都没有记住车号（一个四位数），只记下车号的一些特征。甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的，但与前两位不同；丙是数学家，他说：四位的车号刚好是一个整数的平方。请根据以上线索求出车号。 在100和1000之间，有多少个其数字之和等于9而且该数可被5整除的整数? 求，直到累加项小于10-6为止。 s=0 f=1 n=0 do while(f=1e-6) f= (4**(n+1)-(-1.)**n*3**(n-1))/5**n s=s+f n=n+1 end do print*,s end 求下列级数的和 1、2、4、7、11、16…，数与数之间的差为1、2、3、4、5、…… 设， 试证：（1）存在； * (2 ) 级数收敛.