Определить координаты точки пересечения прямых - QBasic

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

Задача 2. Даны числа a1, b1, c1, a2, b2, c2. Определить координаты точки пересечения прямых a1*x+b1*y=c1 и a2*x+b2*y=c2 , либо сообщить, что эти прямые совпадают или не пересекаются.

Решение задачи: «Определить координаты точки пересечения прямых»

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

DECLARE FUNCTION Det! (a!, b!, c!, d!)
CLS
INPUT "a1,b1,c1 = "; a1, b1, c1
INPUT "a2,b2,c2 = "; a2, b2, c2
 
d = Det(a1, b1, a2, b2)
dx = Det(c1, b1, c2, b2)
dy = Det(a1, c1, a2, c2)
 
IF d THEN
   PRINT "X ="; dx / d
   PRINT "Y ="; dy / d
ELSEIF dx = 0 AND dy = 0 THEN
   PRINT "SOVPADENIE"
ELSE
   PRINT "PARALLELNY"
END IF
END
 
FUNCTION Det (a, b, c, d)
   Det = a * d - b * c
END FUNCTION

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

DECLARE FUNCTION Det! (a!, b!, c!, d!) - функция Det определена с четырьмя аргументами a, b, c, d.
CLS - очистка экрана перед началом работы.
INPUT a1,b1,c1 =; a1, b1, c1 - ввод значений для первой системы координат.
INPUT a2,b2,c2 =; a2, b2, c2 - ввод значений для второй системы координат.
d = Det(a1, b1, c1) - вычисление определителя для первой системы координат.
dx = Det(c1, b1, c2, b2) - вычисление определителя для второй системы координат.
dy = Det(a1, c1, a2, c2) - вычисление определителя для второй системы координат.
IF d THEN - проверка на ненулевость определителя.
PRINT X =; dx / d - вывод координаты X.
PRINT Y =; dy / d - вывод координаты Y.
ELSEIF dx = 0 AND dy = 0 THEN - проверка на параллельность прямых.
PRINT SOVPADENIE - вывод сообщения о пересечении прямых.
ELSE - проверка на перпендикулярность прямых.
PRINT PARALLELNY - вывод сообщения о параллельности прямых.
END IF - завершение условного оператора.
FUNCTION Det (a, b, c, d) - определение функции Det с четырьмя аргументами a, b, c, d.
Det = a d - b c - вычисление значения функции Det.
END FUNCTION - завершение определения функции Det.
END - завершение работы программы.
В результате выполнения программы будет выведено сообщение о том, пересекаются ли прямые или нет.