Hi ich bin's nochmal. Habe jetzt mal als meiner Lösung eine Funktion zusammen gebastelt bei der die Fibonacci-Zahlen an der stelle n mit Hilfe von einem Array erzeugt werden können:
Delphi-Quellcode:
function fibonacci(n : byte) : longint;
const
MAX = 40;
var
zahlen : array[0..MAX] of longint;
i : integer;
begin
zahlen[0] := 0;
zahlen[1] := 1;
for i := 2 to n do
zahlen[i] := zahlen[i-1] + zahlen[i-2];
result := zahlen[n];
end;
tschau und noch ein schönes Wochenende allen
DP-Usern
MCeddy02
