Понеділок 1Вчимося чаклувати 2Вчимося літати 3Вчимося вибирати правильні чаклунські палички 4Вчимося за до магії прибирати у кімнаті Вівторок 1Вчимося перетворюватися на супер героїв 2Вчимося магії 3Вчимося літати 4Вчимося перетворюватися на супер героїв Середа 1Подоружуємо країнами 2Подорожуємо країнами 3Вчимося перетворюватися на супер героїв 4Вчимося літати на мітлах Четвер 1Вчимося літати на мітлах 2Вчимося з до магії їсти 3Вчимося прибирати у кімнатах за до магії 4Вчимося бути добрими П*ятнця 1Вчимося вибирати правильні чаклунські палички 2Вчимося перетворюватися на супер героїв 3Питаємо все Гаррі Потера 4Вчимося літати на мітлах
Uses GraphABC; procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer); begin Draw(x, y, l, u, t); x := x + l*cos(u); y := y - l*sin(u);end; begin if t > 0 then beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1); Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end else Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end; begin SetWindowSize(425,500); SetWindowCaption('Фракталы: Снежинка Коха'); Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4); Draw(210, 8, 400, -pi/3, 4);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
