Составить программу для нахождения корней квадратного уравнения - QBasic

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

Составить программу для нахождения корней квадратного уравнения

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

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

CLS
DO
INPUT "Vvod a: ", a
LOOP WHILE a = 0
INPUT "Vvod b: ", b
INPUT "Vvod c: ", c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "Korney net"
ELSE
IF d = 0 THEN
x = -b / (2 * a)
PRINT "1 koren: ", x
ELSE
x1 = (-b - SQR(d)) / (2 * a)
x2 = (-b + SQR(d)) / (2 * a)
PRINT "2 kornya: ", x1, x2
END IF
END IF
END

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

Установка начального значения переменной a.
Ввод значения переменной a с клавиатуры.
Проверка на ноль и выход из цикла.
Ввод значения переменной b.
Ввод значения переменной c.
Расчет значения переменной d.
Проверка значения переменной d и вывод сообщения об отсутствии корней.
Проверка значения переменной d на равенство нулю и вывод сообщения о наличии одного корня.
Расчет значения переменной x в случае наличия одного корня.
Вывод значения переменной x в случае наличия одного корня.
Расчет значений переменных x1 и x2 в случае наличия двух корней.
Вывод значений переменных x1 и x2 в случае наличия двух корней.