Fibonacci-Zahlen (iterativ)

[Illuminator-23-5]

fibonacci geht meiner meinung so am einfachsten:

Delphi-Quellcode:

var
  alt, uralt, neu, i: integer;
begin
  alt := 0;
  neu := 1;
  for i := 2 to j do begin
    uralt := alt;
    alt := neu;
    neu := uralt + alt;
  end;
  return neu;

und das am schnellsten:

Delphi-Quellcode:

var
  a, b, c, d, n, r: integer;
begin
  n := StrToInt(Edit1.Text);
  asm
    MOV a, EAX
    MOV b, EBX
    MOV c, ECX
    MOV d, EDX

    MOV EDX, n
    SUB EDX, 1
    MOV EAX, 0  //alt
    MOV EBX, 1  //neu
    JZ @@end
    @@1:
    MOV ECX, EAX
    MOV EAX, EBX
    MOV EBX, EAX
    ADD EBX, ECX
    SUB EDX, 1
    CMP EDX, 1
    JAE @@1
    @@end:
    MOV r, EBX

    MOV EAX, a
    MOV EBX, b
    MOV ECX, c
    MOV EDX, d
  end;
  return r;

[Freekill]

Zitat von Piwi:

Hallo Delphi-Gemeinde,

ich habe in diesem Programmtext irgend einen Denkfehler drin, der mir nicht auffallen will. Es geht darum, die Fibonacci-Zahl an der Stelle n in der Fibonacci-Reihe darzustellen.

Fibonacci-Zahlen

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...

Die nächste Zahl in der Reihe ergibt sich also immer aus der Summe seiner beiden Vorgänger. Rekursiv ist das ganze relativ einfach darzustellen, iterativ wohl auch, aber dort ist ein Denkfehler in meinem Programmtext:

Delphi-Quellcode:

function TForm1.fibonit(n:integer):integer;
var x,y,z,i:integer;
begin
 x:=1;
 y:=1;
 i:=0;
 repeat
 i:=i+1;
 z:=x+y;
 y:=x;
 x:=z;
 until i=(n-1);
end;


procedure TForm1.iterativbuttonClick(Sender: TObject);
var n:integer;
begin
n:=strtoint(edit1.text);
listbox1.items.add(inttostr(fibonit(n)));
end;

Er trägt in die Listbox nach ca. zehnsekündiger Berechnungsphase (!!) eine relativ hohe Zahl ein, selbst wenn ich n=1 wähle. Wo ist der Fehlerteufel?

DANKE IM VORAUS!

Auch wenn der letzte Beitrag hier schon eine ganze Weile her ist, wage ich es den Quelltext für zukünftige Besucher zu korrigieren. Die Abbruchbedingung für die Repeat-Schleife stimmt nicht ganz. Ich musste im Rahmen des Informatiksunterricht selbst die Fibonaccizahlen Iterativ programmieren. Dabei ist mir bei dieser Variante aufgefallen, dass die Abbruchbedingung nicht "until i=(n-1)" sondern "until i=(n-2)" heißen muss. Ansonsten verschieben sich die Zahlen um eine Stelle nach vorn und die Reihe stimmt nicht mehr.

[pstruh]

Hallo
erstaunlich, dass überhaupt ein Ergebnis kommt. Wo wird denn das Funktionsergebnis zugewiesen???
Gruß

[patti]

Es gibt übrigens auch eine Funktion zum Berechnen der Fibonacci-Zahlen:

Im Anhang die Formel als JPG-Bild!

Damit sollte sich das Problem vielleicht auch hinkriegen lassen!

P@Tti

EDIT 1: Okay, der erste Beitrag ist von 2003...
EDIT 2: @pstruh: Das wird wahrscheinlich der Grund sein, warum er immer ne hohe Zahl als Ergebnis bekommen hat, selbst bei n=1

[negaH]

schau mal hier

http://www.delphipraxis.net/internal...ct.php?t=51660
http://www.delphipraxis.net/internal...ight=fibonacci

Gruß Hagen