Нарисовать шестиконечную звезду рекурсией - Pascal ABC

Формулировка задачи:

Нарисовать шестиконечную звезду с помощью рекурсии

Код к задаче: «Нарисовать шестиконечную звезду рекурсией - Pascal ABC»

textual
uses graphABC;
const k=6;
var 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*sin(i*t));
   y:=y0-round(r*cos(i*t));
   line(x0,y0,x,y);
   if n>1 then snow(x,y,r div 3,n-1);
  end;
end;
begin
SetWindowSize(600,600);
SetWindowCaption('Фракталы: что-то похожее на снежинку');
x:=windowwidth div 2;
y:=windowheight div 2;
snow(x,y,180,6);
end.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ