主题：高精度斐勃那契 程序
bdfb
[专家分：0] 发布于 2010-11-30 21:24:00
求高精度斐勃那契的程序
回复列表 （共11个回复）
沙发
幽灵密码 [专家分：3510] 发布于 2010-12-01 16:46:00
Cls
Do
Input n
Loop Until n > 0
If n < 3 Then Print "1": End
Dim a(n), b(n), c(n + 1)
a(1) = 1
b(1) = 1
For i = 3 To n
For j = 1 To n
c(j) = a(j)
Next j
For j = 1 To n
c(j) = c(j) + b(j)
c(j + 1) = c(j + 1) + c(j) \ 10
c(j) = c(j) Mod 10
Next j
For j = 1 To n
b(j) = a(j)
a(j) = c(j)
Next j
Next i
Do Until c(n) > 0
n = n - 1
Loop
For i = n To 1 Step -1
Print Using "#"; c(i);
Next i
End
板凳
幽灵密码 [专家分：3510] 发布于 2010-12-01 19:48:00
呃？
陶禹澄？
师范附小的考100分的那个？
3 楼
huangyb731 [专家分：630] 发布于 2010-12-02 18:33:00
Input N
dim A#(N)
A#(1)=1：A#(2)=1
for I=1 to N
A#(I)=A#(I)+A#(I-1)+A#(I-2)
print A#(I),
next
end
4 楼
幽灵密码 [专家分：3510] 发布于 2010-12-02 18:41:00
樓上。。。
用雙精度不行。。。
會溢出。。。
5 楼
verysmartboy [专家分：1260] 发布于 2010-12-02 19:42:00
楼上的楼上的，你的程序出错啦！
6 楼
幽灵密码 [专家分：3510] 发布于 2010-12-02 21:42:00
谁程序出错了
7 楼
幽灵密码 [专家分：3510] 发布于 2010-12-02 21:43:00
哦
我的是1，1，2，3，5，8
8 楼
huangyb731 [专家分：630] 发布于 2010-12-03 18:03:00
我有错？
9 楼
幽灵密码 [专家分：3510] 发布于 2010-12-03 19:41:00
你的压根就不对
10 楼
小心哦哦 [专家分：140] 发布于 2010-12-03 20:10:00
可以这样定义？
dim a#(n)
我来回复
您所在位置：