主题：求证：8的1000次方减1能被7整除
孙文金888
[专家分：0] 发布于 2011-11-18 19:14:00
各位大哥大姐：
小弟在此求教个问题，希望有才的帮忙出个主意，题目：求证8的1000次方减1后可以被7整除。数学证明方法一楼已经给出，现在的问题变为能不能用fortran编程显示8的1000方计算后的每一位数字，请大家不要再考虑原问题了，谢谢。
最后更新于：2011-11-22 15:40:00
回复列表 （共28个回复）
21 楼
yeg001 [专家分：14390] 发布于 2011-11-23 10:08:00
用同余, 这些a^b 除以c得到的余数都不算什么问题. 或者直观点用多项式展开也能解决. 可能楼主是没接触过这方面的知识所以想到用编程去解决.
22 楼
hiyouken [专家分：10] 发布于 2011-11-23 10:55:00
ivf的整型最大才INTEGER(8)也就10的19次方左右。
23 楼
孙文金888 [专家分：0] 发布于 2011-11-23 17:11:00
[quote]ivf的整型最大才INTEGER(8)也就10的19次方左右。[/quote]
虽然这个我知道，但是还是谢谢你让我又知道一遍
24 楼
lxde0866 [专家分：480] 发布于 2011-11-24 22:44:00
给个例子，不太难的，若有人觉得我的方法太笨，请删除此贴，其中的do 20 k=1,3
中的3可以改。比如你想求8的1000次方，把3改成999就可以了。
dimension nn(1000),nn1(1000)
nn(1000)=8
do 20 k=1,3
do 10 i=1000,2,-1
kkk=nn(i)
kl=nn1(i)
nn1(i)=mod((kkk*8+kl),10)
nn1(i-1)=(kkk*8+kl)/10
10 continue
do 101 i=1,1000
nn(i)=nn1(i)
nn1(i)=0
101 continue
20 continue
write(778,*) nn
end
25 楼
lxde0866 [专家分：480] 发布于 2011-11-24 22:53:00
上面的题目用fortran 6.6通过了。fort.778中就是结果啊。
其实，俺在80年代上大学时，曾经用fortran算过Pi的小数点后的20位。
就是找个taylor展开式，进行计算，当时是学生，自己练自己。
26 楼
lxde0866 [专家分：480] 发布于 2011-11-24 22:55:00
记得那是还曾经计算过1000以内的素数。比较有意思。
27 楼
lxde0866 [专家分：480] 发布于 2011-11-26 17:06:00
没人跟帖了
28 楼
cgl_lgs [专家分：21040] 发布于 2011-11-26 20:45:00
该结了，而不是跟。。。
我来回复
您所在位置：