Определить принадлежит ли введенная координата заданной области - QBasic

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

5. Написать программу на языке QBasic, в которой определяется принадлежность введенных координат точки, определенной области. Нарисовать область и точку в графическом режиме

Решение задачи: «Определить принадлежит ли введенная координата заданной области»

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

CLS
 
INPUT "X = "; x
INPUT "Y = "; y
 
SCREEN 11
WINDOW (-16, 12)-(16, -12)
 
CIRCLE (0, 0), 8, , 5.560452, 3.926991
LINE (-8, -8)-(8, 8)
LINE (6, 6)-(6, -6)
CIRCLE (x, y), .1
 
IF (x ^ 2 + y ^ 2 <= 8 ^ 2) AND (y >= x OR x >= 6) THEN
   PRINT "YES"
ELSE
   PRINT "NO"
END IF
 
END

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

Пользователю предлагается ввести координаты X и Y с помощью функций INPUT.
Координаты X и Y сохраняются в переменных x и y соответственно.
Система рисования экрана переключается на экран 11 с помощью команды SCREEN 11.
Задаются границы окна с помощью команды WINDOW.
В точку (0,0) рисуется окружность с радиусом 8 и цветом 5.560452, 3.926991 с помощью функции CIRCLE.
Рисуется линия от (-8,-8) до (8,8) с помощью функции LINE.
Рисуется линия от (6,6) до (6,-6) с помощью функции LINE.
В точку (x,y) рисуется окружность с радиусом 0.1 с помощью функции CIRCLE.
С помощью условного оператора IF проверяется принадлежит ли координатам (x,y) заданной области (x^2 + y^2 <= 8^2) и (y >= x OR x >= 6).
Если условие истинно, то выводится YES, иначе NO.
Код завершается с помощью команды END.