Un petit programme avec une interface très moyenne, mais on vit de belles courbes. Le moteur de ça et la boucle :
while(compt <=limite) and (module<4) do
begin
aux:=x;
x:=sqr(x) - sqr(y) +p0;
y:= 2*y*aux + q0;
module :=sqr(x)+sqr(y);
inc(compt);
end;
Le reste sert à l’affichage