Fibonacci-Zahlen

[JasonDX]

hier findet man das:

Delphi-Quellcode:

procedure Fibonacci(von: integer): int64;
var 
  alt, uralt: int64;
  i: integer; 
begin 
  alt := 0; 
  result := 1; 
  for i := 2 to von do begin 
    uralt := alt; 
    alt := result; 
    result := uralt + alt; 
  end; 
end;

und

Delphi-Quellcode:

procedure Fibonacci(von: integer): integer;
asm
    MOV EDX, von
    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 result, EBX 
end;

@Elite: Ich weiß nicht mehr genau, aber wird die Formel nach ziemlich großen Zahlen nicht etwas ungenau? (Ich weiß bloß noch, dassma mal durch Annäherung was ähnliches rausgekriegt ham)
Und durch ein inc(Index) dürft das Problem mit Beginn bei 0 oder 1 geklärt sein

@Sharky: Man kann ja alle 4 Versionen hinzufügen (Rekursiv, Iterativ, Iterativ ASM und Formel)