一道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 级数收敛.