Registriert seit: 23. Jan 2008
3.686 Beiträge
Delphi 2007 Enterprise
|
AW: Funktion deklarieren oder nicht?
5. Mär 2014, 14:58
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;
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
|