Фракталы!!!!!!!!!!!!!!!!!!!!!!

[Яна696]

Напишите программу, позволяющую построить фрактал Кладбище Серпинского в зависимости от введённого пользователем n уровней. Возьмите за основу пример построения треугольника Серпинского.



очень срочно((((((

[TinMan]

Сообщение от Яна696

очень срочно((((((

[offtop]Вот, странные люди - неужели не понимают, что этим сами себе вредят?.. Я гораздо охотнее отвечу, если написано "сдавать через полгода, но очень хочется порешать." А как вижу "срочно!!" - так обычно сразу назад. Тут еще хоть тема интересная, повезло автору, да и то уж я тянул, как мог..[/offtop]

Короче, вот оно. Но картинка, к сожалению, получилась совсем неинтересная. Чтобы хоть как-то разнообразить, я попробовал красить каждый уровень другим цветом (раскомментируйте строку в Cross). Получилось чуть повеселее, но все равно скукотища..

{ Sierpinski cemetery
  by TinMan, programmersforum.ru }

uses
  Graph;

procedure Cross(x,y,a: single; lev: word);
begin
  a:= a/3;
  // SetFillStyle(SolidFill,lev);  // coloring
  Bar(round(x+a),round(y),round(x+2*a),round(y+a));
  Bar(round(x),round(y+a),round(x+3*a),round(y+2*a));
  Bar(round(x+a),round(y+2*a),round(x+2*a),round(y+3*a));
  if lev>1 then begin
    Cross(x,y,a,lev-1);
    Cross(x+2*a,y,a,lev-1);
    Cross(x,y+2*a,a,lev-1);
    Cross(x+2*a,y+2*a,a,lev-1)
  end
end;

var
  gd,gm,d,l,level: integer;

begin
  write('enter the level (1..7): ');
  readln(level);
  InitGraph(gd,gm,'');
  d:= (GetMaxX-GetMaxY) div 2;
  l:= GetMaxY-2;
  SetLineStyle(SolidLn,0,3);
  Rectangle(d,1,GetMaxX-d,l);
  SetFillStyle(SolidFill,LightGray);
  Cross(d,1,l,level);
  readln;
  CloseGraph
end.

[puporev]

но все равно скукотища..

Ну а что Вы хотите от кладбища...

[Яна696]

Спасибо большое !! Большое! Пребольшое! И вообще, человеческое!!!!!)))