интеpесная задачка + pазмышления

From

Alexandr Korshunov (2:5022/115.87)

To

Graf Alex

Date

2002-11-13T15:32:37Z

Area

RU.ALGORITHMS

Привет Graf!

 Лос-Анджелес, Калифорния, обсерватория Гриффит-парк. 13 Ноябрь 2002 года. Среда. 01:22 ... Graf Alex писал Dmitriy Shevnin:

 GA> Хм.... А есть дpyгие ваpианты?

    Есть, надеюсь это то, что тебе нужно:


                        ─── / sierp.pas / ───
Uses Crt,Graph;
Var driver,mode: integer;

{x,y - координаты верхней вершины;
 l - длина стороны треугольника;
 i - кол-то итераций }

Procedure Sierp(x,y,l:Real; i:Integer);
Begin
 if i=0 then PutPixel(round(x),round(y),15)
  else
   begin
    Sierp(x,y,l/2,i-1);
    Sierp(x-l/4,y+sqrt(3)*l/4,l/2,i-1);
    Sierp(x+l/4,y+sqrt(3)*l/4,l/2,i-1);
   end;
End;

begin
 InitGraph(Driver,Mode ,'D:\testbed\bp\BGI\');
 ClearDevice;
 Sierp(300,100,300,15);
 Readkey;
End. 
                          ─── / sierp.pas / ───

    Чтоб побыстрее строилось поставь поменьше итераций.

 GA> А ты мне кpоме деления еще слyчайным обpазом подвигай точки....

    Как сделаю, так закину потом.


                      /  C уважением, Александр  /

... _  Rammstein - Mutter
---
 * Origin: В этом безумном мире сходить с ума надо по умному (2:5022/115.87)