Построить равнобедренный треугольник симметричный относительно вертикальной оси - QBasic

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

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

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

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

CLS
a = 16
b = 20
h = SQR(b ^ 2 - (a / 2) ^ 2)
S = a * h / 2
R = a * b * b / (4 * S)
 
SCREEN 11
WINDOW (-10, 15)-(30, -15)
 
LINE (0, b / 2)-(h, 0)
LINE (0, -b / 2)-(h, 0)
LINE (0, b / 2)-(0, -b / 2)
 
PRINT "A ="; a
PRINT "B ="; b
PRINT "R ="; R
 
END

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

Объявляются переменные a, b, h, S, R.
Вычисляется значение переменной h.
Вычисляется значение переменной S.
Вычисляется значение переменной R.
Устанавливается размер и положение окна вывода на экран.
Выводятся три линии, образующие равнобедренный треугольник, симметричный относительно вертикальной оси.
Выводятся значения переменных a, b, R.
Завершается выполнение программы.