Нарисовать область и точку в графическом режиме - QBasic (27567)

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

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

Решение задачи: «Нарисовать область и точку в графическом режиме»

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

CLS
RANDOMIZE TIMER
x = 16 * RND - 8
y = 16 * RND - 8
SCREEN 12
WINDOW (-20, 15)-(20, -15)
PSET (x, y), 14
LINE (-15, 0)-(15, 0), 10
LINE (0, -12)-(0, 12), 10
CIRCLE (0, 0), 10, 11, 0, 1.96
CIRCLE (0, 0), 7, 11, 0, 4.45
LINE (-4, 9.1)-(-4, -4), 11
LINE (-4, -4)-(-1.9, -6.9), 11
s$ = "No"
IF x ^ 2 + y ^ 2 <= 100 AND x ^ 2 + y ^ 2 >= 49 AND x + 4 >= 0 AND y >= 0 THEN s$ = "Yes"
IF x ^ 2 + y ^ 2 <= 49 AND x + 4 >= 0 AND 7 * y + 9 * x + 63 <= 0 THEN s$ = "Yes"
IF x ^ 2 + y ^ 2 <= 49 AND x + 4 <= 0 THEN s$ = "Yes"
PRINT s$
END

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

Начало выполнения программы
Очистка экрана - CLS
Инициализация генератора случайных чисел - RANDOMIZE TIMER
Вычисление случайных координат для точки (x, y) в пределах области (-8, -8) до (8, 8)
Вывод координат точки (x, y)
Установка размеров области и окна для графического режима - SCREEN 12 WINDOW (-20, 15)-(20, -15)
Построение линии с координатами (-15, 0) до (15, 0) - LINE (-15, 0)-(15, 0), 10
Построение линии с координатами (0, -12) до (0, 12) - LINE (0, -12)-(0, 12), 10
Построение окружности с центром в точке (0, 0) и радиусом 10, с 11-ю проходами и 0-ю начальными углами - CIRCLE (0, 0), 10, 11, 0, 1.96
Построение окружности с центром в точке (0, 0) и радиусом 7, с 11-ю проходами и 0-ю начальными углами - CIRCLE (0, 0), 7, 11, 0, 4.45
Построение линии с координатами (-4, 9.1) до (-4, -4) - LINE (-4, 9.1)-(-4, -4), 11
Построение линии с координатами (-4, -4) до (-1.9, -6.9) - LINE (-4, -4)-(-1.9, -6.9), 11
Проверка условия для точки (x, y) и присвоение переменной s$ значения Yes или No
Проверка условия для точки (x, y) и присвоение переменной s$ значения Yes или No
Проверка условия для точки (x, y) и присвоение переменной s$ значения Yes или No
Проверка условия для точки (x, y) и присвоение переменной s$ значения Yes или No
Вывод значения переменной s$ - PRINT s$
Конец выполнения программы - END