Записать выражение и вычислить его значение при заданных значениях переменной - QBasic

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

Записать следующее выражение и вычислить его значение при заданных значениях переменной.

Решение задачи: «Записать выражение и вычислить его значение при заданных значениях переменной»

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

CLS
INPUT "A,B,C = "; a, b, c
 
IF a * b <> 0 AND b ^ 2 + 4 * a * c >= 0 THEN
   PRINT b * SQR(b ^ 2 + 4 * a * c) / (2 * a) - a ^ 3 * c + b ^ (-2)
ELSE
   PRINT "VYRASHENIE NEOPREDELENO"
END IF
END

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

CLS — очистка экрана
INPUTA,B,C = ; a, b, c — ввод значений переменных a, b, c с клавиатуры
IF a * b <> 0 AND b ^ 2 + 4 * a * c >= 0 THEN — проверка условия для вычисления выражения
PRINT b * SQR(b ^ 2 + 4 * a * c) / (2 * a) — a ^ 3 * c + b ^ (-2) — вычисление и вывод результата выражения
ELSE — проверка условия для вывода сообщения об ошибке
PRINTVYRASHENIE NEOPREDELENO`` — вывод сообщения об ошибке
END IF — завершение условного оператора
END — завершение программы