Вычислить значение всех элементов треугольника - QBasic

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

Задача 1: Пусть элементами равностороннего треугольника являются: 1) сторона а; 2) площадь S; 3) высота h; 4) радиус вписанной окружности r; 5) радиус описанной окружности R. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.

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

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

                            CLS
INPUT "N = "; n
SELECT CASE n
   CASE 1
      INPUT "A = "; a
      PRINT "S ="; a ^ 2 * SQR(3) / 4
      PRINT "H ="; a * SQR(3) / 2
      PRINT "R ="; a * SQR(3) / 6
      PRINT "R2 ="; a * SQR(3) / 3
   CASE 2
      INPUT "S = "; s
      a = SQR(4 * s / SQR(3))
      PRINT "A ="; a
      PRINT "H ="; a * SQR(3) / 2
      PRINT "R ="; a * SQR(3) / 6
      PRINT "R2 ="; a * SQR(3) / 3
   CASE 3
      INPUT "h = "; h
      a = 2 * h / SQR(3)
      PRINT "S ="; a ^ 2 * SQR(3) / 4
      PRINT "R ="; a * SQR(3) / 6
      PRINT "R2 ="; a * SQR(3) / 3
   CASE 4
      INPUT "R = "; r
      a = 6 * r / SQR(3)
      PRINT "A ="; a
      PRINT "S ="; a ^ 2 * SQR(3) / 4
      PRINT "H ="; a * SQR(3) / 2
      PRINT "R2 ="; a * SQR(3) / 3
   CASE 5
      INPUT "R2 = "; r2
      a = 3 * r / SQR(3)
      PRINT "A ="; a
      PRINT "S ="; a ^ 2 * SQR(3) / 4
      PRINT "H ="; a * SQR(3) / 2
      PRINT "R ="; a * SQR(3) / 6
END SELECT
END
                        