Задачи по теме "Оператор выбора" (Часть 1) - QBasic

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

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

Решение задачи: «Задачи по теме "Оператор выбора" (Часть 1)»

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

CLS
CONST pi = 3.141593
PRINT "Vedite Chislo"
PRINT "RADIUS     - 1"
PRINT "DIAMETR    - 2"
PRINT "DLINA OKR. - 3"
PRINT
 
INPUT "CHISLO = "; n
 
SELECT CASE n
   CASE 1
      INPUT "RADIUS = "; R
      S = pi * R ^ 2
   CASE 2
      INPUT "DIAMETR = "; D
      S = pi * D ^ 2 / 4
   CASE 3
      INPUT "DLINA OKR. = "; L
      S = L ^ 2 / (4 * pi)
END SELECT
PRINT "S ="; S
END

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

Объявлены константа pi и переменная n.
Выводится сообщение Vedite Chislo.
Выводится сообщение RADIUS - 1.
Выводится сообщение DIAMETR - 2.
Выводится сообщение DLINA OKR. - 3.
Выводится сообщение CHISLO = и предлагается ввести значение переменной n.
Введенное значение переменной n проверяется на равенство 1.
Если условие истинно, то выводится сообщение RADIUS = и предлагается ввести значение переменной R.
Если условие ложно, то выполняется переход к следующему условию.
Введенное значение переменной R используется для вычисления значения переменной S.
Если условие истинно, то выводится сообщение DIAMETR = и предлагается ввести значение переменной D.
Если условие ложно, то выполняется переход к следующему условию.
Введенное значение переменной D используется для вычисления значения переменной S.
Если условие истинно, то выводится сообщение DLINA OKR. = и предлагается ввести значение переменной L.
Если условие ложно, то выполняется переход к следующему условию.
Введенное значение переменной L используется для вычисления значения переменной S.
Выводится значение переменной S.
Код завершается.