斐波那契数列用循环语句描述这一算法

发布网友发布时间：2022-06-25 03:29

共5个回答

热心网友时间：2024-12-04 09:47

pascal版代码

a:=1;b:=1;

for i:=1 to n-1 do begin
c:=a+b;
a:=b;
b:=c;
end;

writeln(c);

大概就是这样。

热心网友时间：2024-12-04 09:48

a1=1 , a2=1 ,a(n+2)=a(n+1)+an

热心网友时间：2024-12-04 09:48

Private Sub Command1_Click()
Dim m As Long
Dim n As Integer
n = Val(Text1.Text)
m = fabn(n)
Print m
End Sub
Private Function fabn(ByVal n As Integer) As Long
If n = 1 Or n = 2 Then
fabn = 1
Else
fabn = fabn(n - 2) + fabn(n - 1)
End If
End Function

热心网友时间：2024-12-04 09:49

楼上的回答不对我能看出LZ是江苏高二数学的题目逻辑用语有*的

热心网友时间：2024-12-04 09:49

从第三个月起的话那就是：2、4、6、10、16、26、42、68、110、178。一年后繁殖成178对小兔子。

斐波那契数列 用循环语句描述这一算法

斐波那契数列用循环语句描述这一算法