Фрактал по типу множества Жюлиа

PROGRAM Zadanie_14c;
Uses Graph,Crt;
CONST
  iter=50;
  max=16;
TYPE
  TComplex=Record
            x:Real;
            y:Real;
           End;
VAR
  z,t,c:TComplex;
  x,y,n:Integer;
  Cancel:Boolean;
  gd,gm:Integer;
  mx,my:Integer;
BEGIN
 ClrScr;
 Cancel:=False;
 Randomize;
 gd:=Detect;
 InitGraph(gd,gm,'');
 mx:=GetMaxX div 2;
 my:=GetMaxY div 2;
 For y:=-my To my Do
  For x:=-mx To mx Do
    begin
      n:=0;
      z.x:=x*0.005;
      z.y:=y*0.005;
      c.x:=0.11;
      c.y:=-0.66;
      While (sqr(z.x)+sqr(z.y)<max) and (n<iter) Do
       begin
         t:=z;
         {ch z}
         z.x:=(exp(t.x)+exp(-t.x))/2*cos(t.y);
         z.y:=(exp(t.x)-exp(-t.x))/2*sin(t.y);
         Inc(n);
         If KeyPressed Then Cancel:=True;
       end;
      If n<iter Then PutPixel(mx+x,my+y,8+(n mod 16));
      If Cancel Then Exit;
    end;
 ReadKey;
 CloseGraph;
END.

Uses Graph,Crt;
CONST
  iter=50;
  max=16;
TYPE
  TComplex=Record
            x:Real;
            y:Real;
           End;
VAR
  z,t,c:TComplex;
  x,y,n:Integer;
  Cancel:Boolean;
  gd,gm:Integer;
  mx,my:Integer;
BEGIN
 ClrScr;
 Cancel:=False;
 Randomize;
 gd:=Detect;
 InitGraph(gd,gm,'');
 mx:=GetMaxX div 2;
 my:=GetMaxY div 2;
 For x:=-mx To mx Do
 For y:=-my To my Do
  begin
   n:=0;
   z.x:=x*0.005;
   z.y:=y*0.005;
   while(sqr(z.x)+sqr(z.y)<=2.25)
   {while (sqr(z.x)+sqr(z.y)<max)}
   and (n<iter) Do
    begin
     t:=z;
     {ch z}
     z.x:=(exp(t.x)+exp(-t.x))/2*cos(t.y);
     z.y:=(exp(t.x)-exp(-t.x))/2*sin(t.y);
     Inc(n);
     If KeyPressed Then Cancel:=True;
    end;
   If n<max Then PutPixel(mx+x,my+y,16+n mod 16)
   else PutPixel(mx+x,my+y,0);
   If Cancel Then Exit;
  end;
 ReadKey;
 CloseGraph;
END.

program J2;
 
uses Graph, Crt;
 
type
    TComplex = record
        X : Real;
        Y : Real;
    end;
    
const
    iter = 50;
    max  = 16;
    
var
    z, t, c : TComplex;
    x, y, n : Integer;
    Cancel  : Boolean;
    gd, gm  : Integer;
    mx, my  : Integer;
    
begin
    Cancel := false;
    Randomize;
    gd := Detect;
    InitGraph(gd,gm,'c:\bp\bgi');
    Mx := GetMaxX div 2;
    My := GetMaxY div 2;
    for y := -my to my do
        for x := -mx to mx do 
        begin
            n := 0;
            z.x := x * 0.005;
            z.y := y * 0.005;
            c.x := 0.11;
            c.y := -0.66;
            while (sqr(z.x) + sqr(z.y) < max) and (n < iter) do 
            begin
                t := z;
                {z^2 + c}
                z.x := sqr(t.x) - sqr(t.y) + c.x;
                z.y := 2*t.x*t.y + c.y;
                Inc(n);
                if keypressed then 
                    cancel := true;
            end;
            if n < iter then 
            begin
                PutPixel(mx + x,my + y,16 - (n mod 16));
            end;
            if cancel then 
                exit;
        end;
    Readkey;
    CloseGraph;
end.

z.x := x * 0.005;
z.y := y * 0.005;

If n<iter Then PutPixel(mx+x,my+y,8+(n mod 16));

If n<max Then PutPixel(mx+x,my+y,16+n mod 16)

PutPixel(mx + x,my + y,16 - (n mod 16));