Hallo.
Es geht um eine Variable, die für eine Grafik wichtig ist und durch eine Funktion deklariert wird.
Es scheint, als ob die Funktion nicht ausgeführt werden würde.
In der Grafik erscheint dann nur eine vollfarbige Fläche, obwohl man mindestens eine Struktur erkennen müsste
Code:
function zaehler(za:integer; x,y,x2,a,b:real):integer;
begin
x2:=x*x-y*y+a;
y:=2*x*y+b;
x:=x2;
If (za<100) and (sqrt(x*x+y*y)<2)
then za:=zaehler(za+1,x,y,x2,a,b)
else za:=1;
end;
.
.
.
za:=0; //Initialisierung
zaehler(za,x,y,x2,a,b); //Aufruf
if za>=100 then paintbox1.canvas.Pixels[s+50,z+50]:=clBlack;
case za of
0..9:paintbox1.canvas.Pixels[s+50,z+50]:=clRed;
10..19:paintbox1.canvas.Pixels[s+50,z+50]:=clGreen;
.
.
.