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

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

Найдите количество точек треугольника с вершинами (x1,y1) (x2,y2) (x3,y3) принадлежащих осям координат.

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

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

CLS
RANDOMIZE TIMER
 
x1 = 40 * RND - 20
y1 = 40 * RND - 20
x2 = 40 * RND - 20
y2 = 40 * RND - 20
x3 = 40 * RND - 20
y3 = 40 * RND - 20
 
IF x1 * x2 <= 0 THEN k = k + 1
IF x2 * x3 <= 0 THEN k = k + 1
IF x3 * x1 <= 0 THEN k = k + 1
IF y1 * y2 <= 0 THEN k = k + 1
IF y2 * y3 <= 0 THEN k = k + 1
IF y3 * y1 <= 0 THEN k = k + 1
 
PRINT "Kol ="; k
END

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

Создается переменная k и инициализируется значением 0.
Генерируются случайные значения для переменных x1, y1, x2, y2, x3, y3 в диапазоне от -20 до 20.
Проверяется условие x1*x2 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
Проверяется условие x2*x3 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
Проверяется условие x3*x1 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
Проверяется условие y1*y2 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
Проверяется условие y2*y3 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
Проверяется условие y3*y1 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
Выводится значение переменной k.