Составить линейный алгоритмчертёжника , который изображает звезду

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

IgorPoberezhny

17.01.2022 08:48

Определи заполнения массива. randomize;fori:=1to10doa[i]:=random(58); 1)нет верного ответа 2)с оператора присваивания (случайными числами) 3)ввод каждого значения с...

petryxa333

04.04.2022 07:42

Дан массив: a={2,9,5,8}. После сортировки массива (сортировка методом простого выбора) — порядок убывающий. Заполни таблицу....

KrisChuHD

15.10.2020 03:29

Что является основным недостатком бесплатного хостинга...

azino776

07.04.2020 20:53

, ! в классе 201x учеников, из них 20х девочек и 111х мальчиков. в какой системе счисления велся счёт учеников? какое количество мальчиков?...

nadezdamanuh

02.10.2020 06:24

все четырехбуквенные слова составленные из букв р е к а записаны в алфавитном порядке и пронумерованы начиная с 1 под каким номером в списке идёт первое слово в котором...

Соска997

17.07.2020 13:27

Программа паскал для перевод числа из десятичной системы в другую...

yanvoronovich

16.06.2022 00:32

Дан массив из 100 целых чисел. Написать программу нахождения суммы нечетных элементов массива. C++...

SaShAkOT13

26.06.2020 20:39

На с На вход программы подается 10 чисел. Выведите в столбик для каждого из них число, равное удвоенному квадрату первоначального числа....

mrzadvorgetski

29.03.2021 00:57

Какое устройство НЕ относится к внешним устройствам?...

EnderDragon500

23.10.2020 09:33

очень надо ((( с подругой поспорила НУ...

Ответ:

alexstew1

03.10.2020 16:02

сложна:

0,0(0 оценок)

Ответ:

Yaroslava1902

03.10.2020 16:02

Алгоритм такой: перемещаем чертежника по координатам (-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.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку