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

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

составить программу решения линейного уравнения ax=в на языке qbasic

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

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

REM
REM  AX = B
REM
 
CLS
 
INPUT "A = "; a
INPUT "B = "; b
 
IF a <> 0 THEN
   PRINT "X ="; b / a
ELSEIF a = 0 AND b = 0 THEN
   PRINT "X - LUBOE CHISLO"
ELSE
   PRINT "KORNEY NET"
END IF
END

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

Задается условие AX = B
Очищается экран CLS
Пользователю предлагается ввести значения A и B
Используется условный оператор IF для проверки значения переменной A
Если A не равно нулю, то вычисляется значение X и выводится на экран
Если A равно нулю и B равно нулю, то выводится сообщение X - LUBOE CHISLO
Если A равно нулю и B не равно нулю, то выводится сообщение KORNEY NET