Нужно создать цикл треугольника - PascalABC.NET/GraphABC
Формулировка задачи:
{В общем тут треугольник.
Нужно что бы такие же
треугольники были снизу.
Но как делать цикл я
пока,что не знаю}
Решение задачи: «Нужно создать цикл треугольника»
textual
Листинг программы
uses GraphABC; begin for var L := 0 to 2 do DrawPolygon((150,50+L*50),(100,100+L*50),(200,100+L*50)); end.
Объяснение кода листинга программы
В данном коде используется язык программирования PascalABC.Net. Постановка задачи заключается в создании цикла треугольника.
- Строка
uses GraphABC;
подключает модуль GraphABC, который позволяет работать с графикой. - Переменная
L
инициализируется значением 0 и имеет типvar
, что означает, что её значение будет изменяться в цикле. - Цикл
for
начинается и выполняется для переменнойL
в диапазоне от 0 до 2 (включительно). - Внутри цикла вызывается функция
DrawPolygon
, которая рисует треугольник. - Первый аргумент функции
DrawPolygon
—(150,50+L*50)
— задает координаты вершин треугольника. - Второй аргумент функции
DrawPolygon
—(100,100+L*50)
— также задает координаты вершин треугольника. - Третий аргумент функции
DrawPolygon
—(200,100+L*50)
— также задает координаты вершин треугольника. - После выполнения цикла, программа завершается. Таким образом, в цикле создается треугольник, рисуя который, мы получаем треугольник.