Решение уравнение с двумя неизвестными - QBasic

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

Надо решить вот такую систему уравнений: a*x+y=0 b*x+y=600 где a и b- константы, указанные ранее.

Решение задачи: «Решение уравнение с двумя неизвестными»

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

CLS
 
INPUT "A = "; a
INPUT "B = "; b
 
IF a = b THEN
   PRINT "RESHENIY NET"
ELSE
   PRINT "X ="; 600 / (b - a)
   PRINT "Y ="; 600 * a / (a - b)
END IF
 
END

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

CLS — команда очистки экрана
INPUT A =; a — ввод значения переменной a с помощью функции INPUT
INPUT B =; b — ввод значения переменной b с помощью функции INPUT
IF a = b THEN — проверка условия, если a равно b, то выполняется блок команд внутри THEN
PRINT RESHENIY NET — вывод сообщения, если условие в п.4 выполняется
ELSE — если условие в п.4 не выполняется, то выполняется блок команд внутри ELSE
PRINT X =; 600 / (b - a) — вывод значения переменной X, которое вычисляется как 600 деленное на разность b и a
PRINT Y =; 600 * a / (a - b) — вывод значения переменной Y, которое вычисляется как 600 умноженное на a, деленное на разность a и b
END IF — завершение блока команд внутри IF
END — завершение программы