множество Кантора (Delphi)

[Настена95]

Здравствуйте, помогите пожалуйста написать программу, которая рисует множество Кантора.

Рисунок множество Кантора образован квадратами. Каждый следующий квадрат в четыре раза меньше предыдущего. Центр каждого следующего квадрата расположен в вершине предыдущего квадрата и т.д. Так как рисунок состоит из однотипных элементов, и есть явная зависимость, как размеров, так и положения, следовательно, при создании данного рисунка можно использовать в программе рекурсию.

[Настена95]

Есть код, который рекурсивно строит круги

unit Un3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure krug(x,y,r:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  k,gd,gm,mx,my:integer;	ch 	:char;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 k:=15;//минимальный размер окружности
end;
procedure TForm1.krug(x,y,r:integer);
begin
 if r>k then
  begin
  form1.Canvas.Pen.Color :=RGB(Random(255),Random(255),Random(255));
            krug(x+r+(r div 2),y,r div 2);
            krug(x,y+r+(r div 2),r div 2);
            krug(x-r-(r div 2),y,r div 2);
            krug(x,y-r-(r div 2),r div 2);
      end;
   form1.Canvas.Ellipse (x-r,y-r,x+r,y+r);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 //krug(X , Y , Y div 2);
 krug(X , Y , Y div 4)
end;

end.

[min@y™]

в чём проблема?

[Poma][a]

ВНИМАНИЕ! Забрал отсюда : тыц

{$S+}
program primer_5;
uses Crt,Graph;
label z;
var a,b,n:integer;
g:char;
procedure draw(x,y,n:integer; size:word);
var s:word;
begin
if n-1>0 then
begin
s:= size div 2;
draw(x-size, y+size,n-1,s);
draw(x-size, y-size,n-1,s);
draw(x+size, y+size,n-1,s);
draw(x+size, y-size,n-1,s);
end;
rectangle(x-size, y-size, x+size, y+size);
bar(x-size+1, y-size+1, x+size-1, y+size-1);
end;

begin
z:write('n='); readln(n);
if n>7 then begin goto z;end;
a:=detect; b:=detect;
initgraph(a,b,'c:\bp\bgi');
setfillstyle(solidfill,5);
Setcolor(white);
draw(getmaxx div 2,getmaxy div 2,n,getmaxy div 4);
readkey;
closegraph;
end.

[Настена95]

Сообщение от Poma][a

ВНИМАНИЕ! Забрал отсюда : тыц

мне в делфи нужно

[challengerr]

Если задан центр первого квадрата x1, y1 и отклонения вершин dx, dy (в случае квадрата dx = dy)
то в функции рекурсивно производится 4 вызова

void recursive (int x1, int y1, int dx, int dy)
{
recursive(x1 - dx, y1 - dy, dx/2, dy/2);
recursive(x1 - dx, y1 + dy, dx/2, dy/2);
recursive(x1 + dx, y1 - dy, dx/2, dy/2);
recursive(x1 + dx, y1 + dy, dx/2, dy/2);
}

off: delphi у меня нет

[Serge_Bliznykov]

Сообщение от Настена95

мне в делфи нужно

И в чём, собственно, проблема?!
Вам дали код, рабочий. Неужели трудно переложить его на Delphi?!

ладно.
Держите готовый код.
Выполнил исключительно из любопытства...

Исходники: Sources_Squares_of_Kantor.rar
EXE-шник: Kantor_exe.rar


ну, и если кому вдруг интересно, там такой код:

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure Draw(x, y, n: integer; size: word);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  n: integer = 4;

procedure TForm1.Draw(x, y, n: integer; size: word);
var s: word;
begin
  if n - 1 > 0 then
  begin
    s := size div 2;
    draw(x - size, y + size, n - 1, s);
    draw(x - size, y - size, n - 1, s);
    draw(x + size, y + size, n - 1, s);
    draw(x + size, y - size, n - 1, s);
  end;
  Canvas.Rectangle(x - size, y - size, x + size, y + size);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  draw(Width div 2, Height div 2, n, (Height - 50) div 4);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint
end;

[8Observer8]

Сообщение от Настена95

мне в делфи нужно

Если вы будете требовать и лениться, то все пройдут мимо. Начните проявлять инициативу, ясно выражать конкретные проблемы и вам охотно помогут

[Serge_Bliznykov]

Сообщение от 8Observer8

Если вы будете требовать и лениться, то все пройдут мимо.

Вы правы. Но кое-кто уже не прошёл мимо... Извините...

[8Observer8]

А я не видел вашего сообщения, так как открыл, чтобы ответить, а написал и отправил только через некоторое время. Мне кажется, что нет ничего плохого - поупражняться. И автор темы в коде может разберётся. Взаимная польза