Ich hatte noch einen entscheidenden Fehler:
Code:
If (za<100) and (sqrt(x*x+y*y)<2)
then za:=zaehler(za+1,x,y,x2,a,b)+1 //+1 hat gefehlt
else za:=1;
Sonst wird za nach der Funktion nicht verändert.
Dennoch bleibt es leider bei der Einfarbigkeit.
PS: Ich würde trotzdem gerne bei Rekursion bleiben.
MfG Ergosquare