ответ:Решение
АЛГОРИТМ МАЛЕНЬКИЕ КВАДРАТЫ
алг квадраты_1
нач
нц 5 раз
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
сместиться на вектор (0, - 2)
поднять перо
сместиться на вектор (3, 0)
опустить перо
сместиться на вектор (1, 1)
сместиться на вектор (- 1, 1)
сместиться на вектор (- 1, - 1)
сместиться на вектор (1, - 1)
поднять перо
кц
кон
АЛГОРИТМ БОЛЬШИЕ КВАДРАТЫ
алг квадраты_2
нач
нц 4 раз
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
сместиться на вектор (0, - 2)
поднять перо
сместиться на вектор (4, - 1)
опустить перо
сместиться на вектор (2, 2)
сместиться на вектор (- 2, 2)
сместиться на вектор (- 2, - 2)
сместиться на вектор (2, - 2)
поднять перо
кц
кон
АЛГОРИТМ ПРЯМОУГОЛЬНИКИ
алг прямоугольники_1
нач
нц 5 раз
опустить перо
сместиться на вектор (0, 1)
сместиться на вектор (- 3, 0)
сместиться на вектор (0, - 2)
сместиться на вектор (3, 0)
сместиться на вектор (0, 1)
сместиться на вектор (- 1, 0)
сместиться на вектор (0, - 2)
сместиться на вектор (3, 0)
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
поднять перо
сместиться на вектор (4, 0)
кц
кон
АЛГОРИТМ УЗОР
алг часть_1
нач
нц 4 раз
опустить перо
сместиться на вектор (0, 2)
сместиться на вектор (2, 0)
поднять перо
сместиться на вектор (- 3, - 1)
кц
кон
алг часть_2
нач
нц 4 раз
опустить перо
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
поднять перо
сместиться на вектор (3, - 1)
кц
кон
алг часть_3
нач
нц 4 раз
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 2)
поднять перо
сместиться на вектор (- 1, - 3)
кц
кон
алг часть_4
нач
нц 4 раз
опустить перо
сместиться на вектор (0, - 2)
сместиться на вектор (2, 0)
поднять перо
сместиться на вектор (- 3, 1)
кц
кон
использовать Чертежник
алг узор_1
нач
часть_1
сместиться на вектор (5, - 5)
часть_2
сместиться на вектор (- 3, - 7)
часть_3
сместиться на вектор (- 7, 3)
часть_4
кон
АЛГОРИТМ УЗОР 2
использовать Чертежник
алг узор_2
нач
часть_3
сместиться на вектор (4, 3)
часть_4
сместиться на вектор (1, - 6)
часть_1
сместиться на вектор (- 9, 2)
часть_2
кон
Объяснение:
Анимации делать не умею и нечего не знаю вот код:
Объяснение:
program eg;
uses graph,crt;
var
y,x,i,n,d,m,j:integer;
begin
randomize;
detectgraph(d,m);
initgraph (d,m,' \TP\GRAPH');
for i:=1 to 300 do begin
cleardevice;
setcolor(12);
line(150,380-i,150,420-i);
line(170,380-i,170,460-i);
line(190,380-i,190,420-i);
setcolor(5);
for j:=1 to 200 do begin
putpixel(random(300) ,410-j, random(100) );
end;
setcolor(1 );
setbkcolor(15);
rectangle(120,160-i,220,380-i);
line(170,80-i,120,160-i);
line(170,80-i,220,160-i);
circle(170,210-i,35);
if i<100 then begin
line(120,280-i,80,380-i);
line(80,380-i,120,380-i);
line(120,280-i,120,380-i);
line(220,280-i,260,380-i);
line(220,380-i,260,380-i);
line(220,380-i,220,380-i);
end
else begin
delay (10);
end;
readkey;
end;
end.
Нет
Мыши и крысы