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