Вы не знаете что такое множество Мандельброта? Это ужасно. Это надо исправить немедленно. Внизу код, написанный на Паскале. Просто скопируйте этот код, зайдите на страницу онлайн-Паскаль, вставьте код и нажмите кнопку "Выполнить". Программа нарисует картинку, которую вы видите слева. Онлайн-Паскаль расположен здесь.
А для любителей математики сообщаем, что мно́жество Мандельбро́та — это множество таких точек c на комплексной плоскости, для которых итерационная последовательность z_{n+1} = {z_n}^2 + c при z_0 = 0 является ограниченной. То есть, это множество таких c, для которых существует такое действительное R, что неравенство \mid z_{n}\mid < R выполняется при всех натуральных n.
Множество Мандельброта является одним из самых известных фракталов, в том числе за пределами математики, благодаря своим цветным визуализациям. Его фрагменты не строго подобны исходному множеству, но при многократном увеличении определённые части всё больше похожи друг на друга.
uses graph;
const
n=255;
max=10;
// z=z^2+c
begin
Window.SetSize(400,300);
Window.Title := 'Множество Мандельброта';
for var ix:=0 to 399 do
for var iy:=0 to 299 do
begin
var x:=0.0;
var y:=0.0;
var cx:=0.002*(ix-720);
var cy:=0.002*(iy-150);
var i: integer;
for i:=1 to n do
begin
var x1:=x*x-y*y+cx;
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;
end.
Выдается сообщение: compilation error