斐波那契数列
来源:互联网 发布:张继科 知乎 编辑:程序博客网 时间:2024/05/29 13:15
{ 斐波那契数列: 1、2、3、5、8、13、21、34、55、89、144 ... 等于前两数之和 }
{ 昂纳多·斐波那契(Leonardo Fibonacci, 1170-1240, 意大利数学家) }
uses Types;
{参数 2 是要获取的总数}
procedure fbnc(var A: TInt64DynArray; Count: Integer);
var
i: Integer;
begin
SetLength(A, Count);
A[0] := 1;
A[1] := 2;
for i := 2 to Count do A[i] := A[i-2] + A[i-1];
end;
{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
ns: TInt64DynArray;
n: Int64;
begin
fbnc(ns, 90);
Memo1.Clear;
for n in ns do Memo1.Lines.Add(IntToStr(n));
end;
{查看其黄金分割比}
procedure TForm1.Button2Click(Sender: TObject);
var
ns: TInt64DynArray;
i: Integer;
begin
fbnc(ns, 90);
Memo1.Clear;
for i := 0 to Length(ns) - 1 do
begin
if i = 0 then Continue;
Memo1.Lines.Add(FloatToStr(ns[i] / ns[i-1]));
end;
end;
{ 昂纳多·斐波那契(Leonardo Fibonacci, 1170-1240, 意大利数学家) }
uses Types;
{参数 2 是要获取的总数}
procedure fbnc(var A: TInt64DynArray; Count: Integer);
var
i: Integer;
begin
SetLength(A, Count);
A[0] := 1;
A[1] := 2;
for i := 2 to Count do A[i] := A[i-2] + A[i-1];
end;
{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
ns: TInt64DynArray;
n: Int64;
begin
fbnc(ns, 90);
Memo1.Clear;
for n in ns do Memo1.Lines.Add(IntToStr(n));
end;
{查看其黄金分割比}
procedure TForm1.Button2Click(Sender: TObject);
var
ns: TInt64DynArray;
i: Integer;
begin
fbnc(ns, 90);
Memo1.Clear;
for i := 0 to Length(ns) - 1 do
begin
if i = 0 then Continue;
Memo1.Lines.Add(FloatToStr(ns[i] / ns[i-1]));
end;
end;
- 斐波那契数列数列计算
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- 斐波那契数列
- VisionMobile:2012年移动开发者经济报告(六):三、开发者的收入(上)
- 几个常用的JavaScript字符串处理函数 – split()、join()、substring()和indexOf()
- tomcat无法启动项目 java.lang.UnsupportedClassVersionError: Bad version number in .class file
- Redis学习笔记10--Redis主从复制
- LoadRunner参数化详解
- 斐波那契数列
- HDU 1010( DFS+奇偶剪枝)
- Scilab中数组的地址存储顺序
- Android WebView 页面自适应
- 简易ajax
- Redis学习笔记11--Redis分布式
- xcode在调试带有webview的页面时出现SIGKill异常
- 最大公约数与最小公倍数
- 《Java与模式》