[已解决]已知：数列1,1,2,4,7,13,24,44,...求数列的第 n项.

上清宫主

一二个case可合成一个：case 1,2 或case is <3 等，同时后者还可弥补在调用时参数n小于1的错误

爱疯

上清宫主 发表于 2013-8-29 09:30
一二个case可合成一个：case 1,2 或case is

谢谢上清！

“... 在调用时参数n小于1的错误”，不知是指什么情况下呀？

上清宫主

爱疯 发表于 2013-8-29 10:10
谢谢上清！

“... 在调用时参数n小于1的错误”，不知是指什么情况下呀？

你试一下f(0)、f(-1)看会怎么样

爱疯

上清宫主 发表于 2013-8-29 12:10
你试一下f(0)、f(-1)看会怎么样

If n > 3 Then MsgBox F(n)


如果主程序没判断，可利用“ case 条件”来确保。是这个意思么？

我把判断放在主程序，是想尽可能让F()专一些，这样更好些吧？

香川群子

从第4项起，f(n)=Σf(x) x=n-3 to n-1

即: f(n)=f(n-3)+f(n-2)+f(n-1)


数列的第1-3项起点，可以从 1,1,2…… 开始

也可以从 0,0,1……开始

香川群子

爱疯 发表于 2013-8-29 09:16
谢谢sliang28！
以前没这么想过，见证奇迹了。。。。。循环也好理解噢！

递归更简单啊！

下面是0,0,1开始的数列：

1. 
   
2. Function f(x)
   
3.     If x > 3 Then
   
4.         f = f(x - 1) + f(x - 2) + f(x - 3)
   
5.     Else
   
6.         If x = 3 Then f = 1 Else f = 0
   
7.     End If
   
8. End Function
   

复制代码

下面是1,1,2开始的数列：

1. 
   
2. Function f(x)
   
3.     If x > 3 Then
   
4.         f = f(x - 1) + f(x - 2) + f(x - 3)
   
5.     Else
   
6.         If x = 3 Then f = 2 Else f = 1
   
7.     End If
   
8. End Function
   

复制代码

具体用法：
1. 复制递归函数粘贴到模块中
2. 在任意列中，从第1行开始写入=f(Row()) 下拉即可。

当然也可以直接写入 =f(10) 来计算返回数列中第10个数

Dj_soo

这种题目明显不应该尝试使用<1的参数啊

香川群子

爱疯 发表于 2013-8-29 09:16
谢谢sliang28！
以前没这么想过，见证奇迹了。。。。。循环也好理解噢！

因为变量少，所以不需要用到数组变量。

这样的就可以了，也能照顾到x<4时返回结果

1. Function a(x)
   
2.     If x > 3 Then
   
3.         t1 = 1: t2 = 1: t3 = 2 '1,1,2 开始的数列 或 t1 = 0: t2 = 0: t3 = 1 成为0,0,1开始也可
   
4.         For i = 4 To x
   
5.             t = t1 + t2 + t3
   
6.             t1 = t2: t2 = t3: t3 = t
   
7.         Next
   
8.         a = t
   
9.     Else
   
10.         If x = 3 Then a = 2 Else a = 1
    
11.     End If
    
12. End Function

复制代码

我的才是最佳答案。呵呵。

爱疯

谢谢群子老师

细致的回复，好查看，更好理解，方便学习！



PS：谢谢sliang28，更早回复的循环方法，一切都是我的错。。。。

sliang28

香川群子 发表于 2013-8-29 17:20
因为变量少，所以不需要用到数组变量。

这样的就可以了，也能照顾到x

我觉得是画蛇添足,这个数列 X 小于4没有意义,本身就是前三个相加为下一个, 另外数组怎么了,变量和数组不是一样的用.