Funktion deklarieren oder nicht?

[Blup]

Hier wegen der Vollständigkeit eine funktionierende rekursive Variante:

Delphi-Quellcode:

procedure zaehler(var za: Integer; x, y, a, b: Real);
var
  x2, y2: Real;
begin
  if za = 100 then
    Exit;

  x2 := x * x;
  y2 := y * y;
  if (x2 + y2) >= 4 then
    Exit;

  Inc(za);
  zaehler(za, x2 - y2 + a, (2 * x * y) + b, a, b);   
end;

[Medium]

Und hier eine iterative:

Delphi-Quellcode:

function zaehler(x, y, a, b: Real): Integer;
begin
  result := 0;
  repeat
    x := x*x + y*y + a;
    y := 2*x*y + b;
    Inc(result);
  until (result>100) or ((x*x+y*y)>=4);
end;

[Blup]

@Medium

Deine Berechnung ist aber Falsch:
- für die Berechnung des neuen x' muss (y * y) subtrahiert werden
- für die Berechnung des neuen y' muss das alte x in der Berechnung benutzt werden

Delphi-Quellcode:

function zaehler(x, y, a, b: Real): Integer;
var
  x2, y2: Real;
begin
  Result := 0;
  repeat
    x2 := x * x;
    y2 := y * y;
    if (x2 + y2) >= 4 then
      Break;
    y := (2 * x * y) + b;
    x := x2 - y2 + a;
    Inc(Result);
  until (result > 100);
end;

[Medium]

Ups, stimmt. Ich hatte nur den vorhandenen Code im Editor zusamengeschnippelt und nicht viel geprüft/getestet. Mir ging es eher darum zu zeigen, dass man einiges an Ballast gegenüber der Rekursion los werden kann, und sich auch die Lesbarkeit erhöht (ich finde Rekursion immer sehr aufwändig nachzuvollziehen im Kopf).