18 lines
372 B
Text
18 lines
372 B
Text
|
const maxIter = 256;
|
||
|
|
|
||
|
|
var x, y, i : Integer;
|
||
|
|
for y:=-39 to 39 do begin
|
||
|
|
for x:=-39 to 39 do begin
|
||
|
|
var c := Complex(y/40-0.5, x/40);
|
||
|
|
var z := Complex(0, 0);
|
||
|
|
for i:=1 to maxIter do begin
|
||
|
|
z := z*z + c;
|
||
|
|
if Abs(z)>=4 then Break;
|
||
|
|
end;
|
||
|
|
if i>=maxIter then
|
||
|
|
Print('#')
|
||
|
|
else Print('.');
|
||
|
|
end;
|
||
|
|
PrintLn('');
|
||
|
|
end;
|