Снежинка (Рекурсия)

 uses crt,graph;
    const k=6;
    var n,x,y:integer;
    procedure snow (x0,y0,r,n:integer);
    const t=2*pi/k;
    var i,x,y:integer;
    begin
     for i:=1 to k do
      begin
       x:=x0+round(r*cos(i*t));
       y:=y0-round(r*sin(i*t));
       line(x0,y0,x,y);
       if n>1 then snow(x,y,r div 3,n-1);
      end;
    end;
    begin
    clrscr;
    repeat
    writeln('Glubina rekursii do 6:');
    readln(n);
    until n in [1..6];
    x:=detect;
    initgraph(x,y,'');
    x:=getmaxX div 2;
    y:=getmaxY div 2;
    snow(x,y,100,n);
    readkey;
    end.

от Puporev http://www.cyberforum.ru/

Комментариев нет:

Отправить комментарий

Если у вас интересные исходники и вы не прочь поделиться, то присылайте daslex@yandex.ru с указанием Темы: Графика Паскаль
К вашей работе будет прикреплено ваше авторство и по желанию добавлена ссылка на ваш сайт.
На одну страницу - Одна работа. На одну работу - Одна ссылка + указание автора


Основное требование - это один файл .pas без сторонних модулей (только с родными. предпочтение Graph).
Можно использовать ассемблерные вставки.

Все что Запускается у меня и работает, я выкладываю. в этом блоге.
Яндекс.Метрика