Канторово множество

[Arti Jesso]

Здравствуйте! Есть у кого код на делфи для реализации такого множества? Нужно с помощью рекурсии, а я с ней не дружу что-то, по ходу

Заранее спасибо!

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

[s-andriano]

На компьютере такое множество принципиально нереализуемо.
Об этом совсем несложно догадаться, если понимать, что канторово множество континуально, а множество чисел, представимых в компьютере, даже меньше чем счетно - конечно.

[BDA]

Рисует что-то похожее (дельфи):

procedure cantor(c: tcanvas; a, b: tpoint; n: integer);
const
  d = 4;
begin
  if n = 0 then
    exit;
  c.MoveTo(a.X, a.y);
  c.LineTo(b.X, b.y);
  cantor(c, point(a.X, a.y + d), point(round(2 / 3 * a.X + 1 / 3 * b.X),
      a.y + d), n - 1);
  cantor(c, point(round(1 / 3 * a.X + 2 / 3 * b.X), a.y + d),
    point(b.X, b.y + d), n - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cantor(Form1.Canvas, point(10, 100), point(500, 100), 10);
end;

[Arti Jesso]

Сообщение от BDA

Рисует что-то похожее (дельфи):

procedure cantor(c: tcanvas; a, b: tpoint; n: integer);
const
  d = 4;
begin
  if n = 0 then
    exit;
  c.MoveTo(a.X, a.y);
  c.LineTo(b.X, b.y);
  cantor(c, point(a.X, a.y + d), point(round(2 / 3 * a.X + 1 / 3 * b.X),
      a.y + d), n - 1);
  cantor(c, point(round(1 / 3 * a.X + 2 / 3 * b.X), a.y + d),
    point(b.X, b.y + d), n - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  cantor(Form1.Canvas, point(10, 100), point(500, 100), 10);
end;

Спасибо Вам большое, добрый человек! Буду сейчас сидеть, разбираться, как это работает х)