|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Alexandr Korshunov 2:5022/115.87 13 Nov 2002 16:32:37
To : Graf Alex
Subject : интеpесная задачка + pазмышления
--------------------------------------------------------------------------------
Лос-Анджелес, Калифорния, обсерватория Гриффит-парк. 13 Hоябрь 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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
