Графика: горизонтальная бабочка из линий штриховки - Pascal ABC

Формулировка задачи:

В центре экрана нарисовать квадрат, в котором затем нарисовать горизонтальную «бабочку» из линий штриховки путем вращения одной из диагоналей вокруг горизонтальной оси квадрата. По простому если можно.

Решение задачи: «Графика: горизонтальная бабочка из линий штриховки»

Листинг программы

program vcx;
uses crt, graphABC;
var n,i,x,y,a,v,z,w:integer;
begin
x:=200;
y:=100;
a:=200;
v:=15;
  rectangle(200,100,400,300);
  moveto(x, y);
  z:=x+a;
  w:=y+a;
  for i:=1 to (a div v)+1 do
    line(x, y+(i-1)*v, z, w-(i-1)*v);
    end.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC реализуется графическое изображение горизонтальной бабочки с помощью линий штриховки.

Объявляются переменные: — n, i, x, y, a, v, z, w — целочисленные переменные для хранения координат и размеров бабочки.
Инициализируются переменные: — x := 200 - координата X левого верхнего угла бабочки; — y := 100 - координата Y левого верхнего угла бабочки; — a := 200 - амплитуда (размер) бабочки; — v := 15 - скорость горизонтального перемещения бабочки.
Выводится прямоугольник с помощью функции rectangle(200,100,400,300), которая задает координаты и размеры прямоугольника.
Устанавливаются текущие координаты (x, y) в левый верхний угол бабочки с помощью функции moveto(x, y).
Вычисляются координаты следующего прямоугольника (z, w) с помощью формул z := x + a и w := y + a.
С помощью цикла for и операции +=1 перебираются все прямоугольники от первого до последнего (a div v)+1.
Для каждого прямоугольника рисуется линия с помощью функции line(x, y+(i-1)v, z, w-(i-1)v), которая задает координаты начальной и конечной точек линии.
Код завершается с помощью ключевого слова end.