Zitat von
Jelly:
Aber auf jeden Fall sollte das gleiche Ergebnis rauskommen.
Das wär allerdings nicht schlecht. Mit dieser Funktion dürftest du aber auch das Gewünschte erreichen:
Delphi-Quellcode:
function fibonacci(Index : Integer) : Int64;
begin
result := round((1/sqrt(5))*(power((1+sqrt(5))/2, index-1)-power((1-sqrt(5))/2,index-1)));
end;
Keine Rekursion und keine Schleife, sondern reine Mathematik.
Edit: Diese Version geht davon aus, dass die Fibonacci-Zahlenreihenfolge bei 0 und nicht bei 1 beginnt. (Definitionssache je nach Problemstellung)