Нужно создать цикл треугольника - 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. Постановка задачи заключается в создании цикла треугольника.

  1. Строка uses GraphABC; подключает модуль GraphABC, который позволяет работать с графикой.
  2. Переменная L инициализируется значением 0 и имеет тип var, что означает, что её значение будет изменяться в цикле.
  3. Цикл for начинается и выполняется для переменной L в диапазоне от 0 до 2 (включительно).
  4. Внутри цикла вызывается функция DrawPolygon, которая рисует треугольник.
  5. Первый аргумент функции DrawPolygon(150,50+L*50) — задает координаты вершин треугольника.
  6. Второй аргумент функции DrawPolygon(100,100+L*50) — также задает координаты вершин треугольника.
  7. Третий аргумент функции DrawPolygon(200,100+L*50) — также задает координаты вершин треугольника.
  8. После выполнения цикла, программа завершается. Таким образом, в цикле создается треугольник, рисуя который, мы получаем треугольник.

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы