1. Палочки
использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (2,0)
поднять перо
сместиться в точку (1,2)
нц 23 раз
опустить перо
сместиться на вектор (2,-2)
поднять перо
сместиться на вектор (-1,2)
кц
опустить перо
сместиться на вектор (1,-1)
поднять перо
сместиться в точку (-1,-1)
кон
2. Уголки
использовать Чертежник
алг
нач
сместиться в точку (5,7)
нц 5 раз
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,1)
кц
сместиться в точку (0,0)
кон
3. Треугольники
использовать Чертежник
алг
нач
нц 4 раз
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (2,-2)
сместиться на вектор (-2,-2)
поднять перо
сместиться на вектор (2,0)
кц
кон
Объяснение:
картинки
---PascalABC.NET 3.6.2 ---
begin
//Создадим переменную A типа List<integer>, задав в конструкторе ёмкость в 20 элементов;
var A : List<integer> := New List<integer>(20);
A.AddRange(SeqGen(A.Capacity, p -> Random(-10, 10))); //Запишем в наш List последовательность, длина которой равна List<T>.Capacity, и каждый элемент в которой генерируется случайно в диапазоне [-10; 10]
A.Println; //Распечатаем в консоль содержимое A
end.
Объяснение:
Заместо стандартного паскалевского массива использован класс List<T> библиотеки .NET Framework, являющийся аналогом обычного массива, но имеющий большее число методов для работы с ним.
А вообще, программа может быть написана в 1 строку:
begin
ArrRandom(20, -10, 10).Println;
end.
