Предмет: Информатика,
автор: dasha868
составить линейный алгоритмчертёжника , который изображает звезду
Ответы
Автор ответа:
0
Аааа сложна:DDDDDDDDDDDDD
Автор ответа:
0
Пожалуйста
Автор ответа:
0
я хз так бы ответил)
Автор ответа:
0
Алгоритм такой: перемещаем чертежника по координатам (-9;2), (-3;3), (0;8), (3;3), (9;2), (5;-3), (6;-9), (0;-7), (-6;-9), (-5;-3), (-9;2) и рисуем звезду.
Программа на PascalABC.NET:
uses DrawMan;
const zvezda: array[1..10, 1..2] of integer = ((7, 13), (10, 18), (13, 13), (19, 12), (15, 7), (16, 1), (10, 3), (4, 1), (5, 7), (1, 12));
begin
Field(20, 20);
ToPoint(1, 12);
PenDown;
for var i := 1 to 10 do
ToPoint(zvezda[i, 1], zvezda[i, 2]);
end.
Программа на PascalABC.NET:
uses DrawMan;
const zvezda: array[1..10, 1..2] of integer = ((7, 13), (10, 18), (13, 13), (19, 12), (15, 7), (16, 1), (10, 3), (4, 1), (5, 7), (1, 12));
begin
Field(20, 20);
ToPoint(1, 12);
PenDown;
for var i := 1 to 10 do
ToPoint(zvezda[i, 1], zvezda[i, 2]);
end.
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: Английский язык,
автор: safaalkina
Предмет: Английский язык,
автор: 47474664
Предмет: История,
автор: fancy31
Предмет: Химия,
автор: marina201623542257