Forum: Multimedia
by Blup,
6. Mär 2014
@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
function zaehler(x, y, a, b: Real): Integer;
var
x2, y2: Real;
begin
Forum: Multimedia
by Blup,
5. Mär 2014
Hier wegen der Vollständigkeit eine funktionierende rekursive Variante:
procedure zaehler(var za: Integer; x, y, a, b: Real);
var
x2, y2: Real;
begin
if za = 100 then
Exit;
x2 := x * x;
Forum: Multimedia
by Blup,
4. Mär 2014
Um mal zusammenzufassen:
- Rekursion ist in der Regel langsamer als Iteration
- Parameter, lokale Variablen und Rückgabewerte nicht durcheinander werfen
So stelle ich mir das vor:
function zaehler(x, y, a, b: Real): Integer;
var
x2: Real;
begin