主题:新手上路,遇到难题,递归函数,望各位高手能伸出援助之手
zyzxwzl
[专家分:0] 发布于 2007-12-26 22:42:00
编写求下列图形中的每一个数的递归函数FB(N),然后调用这个函数输出下列图形
1 1 3 13 89
2 2 21 144
8 34 233
55 377
610
回复列表 (共1个回复)
沙发
神的思想 [专家分:80] 发布于 2008-02-04 18:08:00
DECLARE FUNCTION FB! (N!)
CLS
K = 1
FOR I = 1 TO 5
FOR J = 1 TO I
A(J, I + 1 - J) = FB(K)
K = K + 1
NEXT J
NEXT I
FOR I = 1 TO 5
FOR J = 1 TO 6 - I
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I
END
FUNCTION FB (N)
IF N = 1 OR N = 2 THEN
FB = 1
ELSE
FB = FB(N - 1) + FB(N - 2)
END IF
END FUNCTION
记得加分哦!
我来回复