5 lines
118 B
ObjectPascal
5 lines
118 B
ObjectPascal
|
function FiboMax(n: integer):Extended; //maXbox
|
||
|
|
begin
|
||
|
|
result:= (pow((1+SQRT5)/2,n)-pow((1-SQRT5)/2,n))/SQRT5
|
||
|
|
end;
|