Нарисовать турецкий флаг - QBasic

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

Помогите пожалуйста нарисовать турецкий флаг, получается чушь какая-то луна вообще не получается.Помогите нубу пожалуйста.Это мне надо для 3 в четверти.Спасибо за внимание.

Решение задачи: «Нарисовать турецкий флаг»

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

CONST Pi = 3.141592653589793#
CONST K = 2 * Pi / 5
SCREEN 12
 
  PRINT CHR$(13); "  Turkish flag"
 
  LINE (150, 150)-(500, 300), 12, BF
  LINE (150, 150)-(500, 300), 15, B
  CIRCLE (290, 225), 50, 15, .91, 5.4
  CIRCLE (310, 225), 40, 15, 1.27, 5
  PAINT (255, 225), 15, 15
 
  FOR i = 0 TO 5
     Ug = K * i
     x1 = 360 - COS(Ug) * 30
     y1 = 225 - SIN(Ug) * 30
     IF i = 0 THEN ox = x1: oy = y1
     x2 = 360 - COS(Ug + K / 2) * 15
     y2 = 225 - SIN(Ug + K / 2) * 15
       LINE (x1, y1)-(x2, y2), 15
       LINE (x1, y1)-(ox, oy), 15
       ox = x2: oy = y2
  NEXT
  PAINT (360, 225), 15, 15

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

Вот что происходит в данном коде:

Установлены константы: Pi = 3,141592653589793 K = 2 * Pi / 5
Выполнено отображение экрана 12.
Выведена строка Turkish flag.
Нарисованы две линии, которые образуют флаг Турции.
Нарисован круг с цветом заливки, соответствующим цвету главного флага Турции.
Задан цикл от 0 до 5.
В каждой итерации цикла вычисляется значение переменной Ug как K * i.
Вычисляются координаты точек x1, y1 и x2, y2 для каждой итерации цикла. При этом если i = 0, то точки x1, y1 и x2, y2 совпадают.
Вычерчиваются две линии, соединяющие точки с координатами x1, y1 и x2, y2.
После завершения цикла вычерчивается линия, соединяющая точки с координатами x1, y1 и ox, oy.
Значения ox и oy обновляются, чтобы они соответствовали координатам последней нарисованной линии.
Выполняется отображение экрана с помощью функции PAINT с аргументами 360, 225, 15, 15.