File:Множество Мандельброта.png

uses GraphABC;
const
  N = 255;
  Max = 10;
  W = 400;
  H = 300;
  K = 0.002;

begin
  SetWindowIsFixedSize(true);
  SetWindowSize(W, H);
  
  LockDrawing();
  for var ix := 0 to W - 1 do
    for var iy := 0 to H - 1 do
    begin
      var x := 0.0;
      var y := 0.0;
      var cy := K * (iy - 150);
      var i := 0;
      for i := 1 to N do
      begin
        var x1 := Sqr(x) - Sqr(y) + K * (ix - 720);
        var y1 := 2 * x * y + cy;
        if (x1 > Max) or (y1 > Max) then break;
        x := x1;
        y := y1;
      end;
      
      if i >= N then
        PutPixel(ix, iy, Color.Red)
      else
        PutPixel(ix, iy, RGB(255, 255 - i, 255 - i));
    end;
  Redraw();
end.