Построить совокупность п равносторонних треугольников с общим центром - QBasic

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

Графика Задача 1. Построить совокупность п равносторонних треугольников в общим центром. Задача 2. Сформировать квадрат, вращающийся вокруг одной из своих сторон.

Решение задачи: «Построить совокупность п равносторонних треугольников с общим центром»

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

CLS
SCREEN 11
CONST pi = 3.141593
CONST p3 = pi / 3
CONST h = 120
CONST a = .866
CONST b = .5
 
FOR i = 1 TO 7
   WINDOW (-200 * i ^ .7, 150 * i ^ .7)-(200 * i ^ .7, -150 * i ^ .7)
   LINE (0, h)-(h * a, -h * b)
   LINE (0, h)-(-h * a, -h * b)
   LINE (h * a, -h * b)-(-h * a, -h * b)
NEXT i
END

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

Вот что делает этот код:

Очистка экрана: CLS
Установка параметров экрана: SCREEN 11
Константы:
- pi: математическая константа π (пи).
- p3: π/3.
- h: высота треугольника.
- a: сторона треугольника.
- b: угол наклона треугольника относительно горизонтали.
Цикл:
- Цикл повторяется 7 раз (от i = 1 до i = 7).
- WINDOW: функция, которая создает окно для рисования. Координаты (x, y) задают верхний левый угол окна, а размеры окна (w, h) задаются как 200i^0.7 и 150i^0.7 соответственно.
- LINE: функция, которая рисует линию в окне. Она имеет три аргумента: (x, y) - начальная точка, (x2, y2) - конечная точка, и (x3, y3) - угол, под которым линия должна быть нарисована относительно горизонтали. В этом коде все линии рисуются под углом 0 градусов.
END: конец программы. Пояснение: Этот код рисует 7 равносторонних треугольников на экране с помощью функций WINDOW и LINE. Каждый треугольник имеет высоту h, сторону a и угол наклона b относительно горизонтали. Размеры окна и начальные точки для линий рассчитываются с использованием константы i, которая изменяется от 1 до 7 в цикле.