Построить правильный шестиугольник - QBasic

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

Всем привет! Необоходимо построить правильный шестиугольник с двумя сторонами, параллельными вертикальной оси, задать его размером стороны и определить радиус описанной окружности. Вывести значения стороны и радиуса на экран.

Прошу простить мне мою спешку, я разобрался сам =) Если кому-нибудь понадобится код:

CLS
PRINT "VVEDITE RAZMER STORONY a = :"
INPUT a
R = a
SCREEN 12
CIRCLE (320, 240), R, 2
CIRCLE (320, 240), 1, 7
H = R * SQR(3) / 2
LINE (320, 240 - R)-(320 + H, 240 - R / 2), 4
LINE (320 + H, 240 - R / 2)-(320 + H, 240 + R / 2), 4
LINE (320 + H, 240 + R / 2)-(320, 240 + R), 4
LINE (320, 240 + R)-(320 - H, 240 + R / 2), 4
LINE (320 - H, 240 + R / 2)-(320 - H, 240 - R / 2), 4
LINE (320 - H, 240 - R / 2)-(320, 240 - R), 4
PRINT "Radius=", R, "RAZMER STORONY =", a
END

Решение задачи: «Построить правильный шестиугольник»

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

CLS
 
CONST pi = 3.14159265#
CONST f30 = pi / 6
CONST f60 = pi / 3
CONST A = 100
R = A
 
SCREEN 11
WINDOW (-200, 150)-(200, -150)
PSET (R * COS(f30), R * SIN(f30))
 
FOR i = 1 TO 6
   x = R * COS(f30 + i * f60)
   y = R * SIN(f30 + i * f60)
   LINE -(x, y)
NEXT i
PRINT "R = A ="; A
END

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

Объявлены константы:
- pi (пи) с значением 3.14159265;
- f30 (угол в радианах) с значением pi/6;
- f60 (угол в радианах) с значением pi/3;
- A (радиус шестиугольника) с значением 100.
Объявлена переменная R со значением A.
Открыт графический окно размером -200, 150)-(200, -150).
В точку (RCOS(f30), RSIN(f30)) установлен начальный угол.
Запущен цикл FOR для построения шестиугольника:
- переменные x и y получают значения RCOS(f30 + if60) и RSIN(f30 + if60) соответственно;
- методом LINE рисуется сторона шестиугольника с координатами (x, y);
- значение i увеличивается на 1.
Выводится сообщение R = A = 100.
Завершается работа программы.