@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;