回 帖 发 新 帖 刷新版面

主题:新手上路,遇到难题,递归函数,望各位高手能伸出援助之手

编写求下列图形中的每一个数的递归函数FB(N),然后调用这个函数输出下列图形
1   1   3   13   89
2   2   21  144
8   34  233
55  377
610

回复列表 (共1个回复)

沙发

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

记得加分哦!

我来回复

您尚未登录,请登录后再回复。点此登录或注册