Программа для проверки принадлежности точки области - QBasic

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

Сама область в прикрепленных файлах Вот код, который у меня получился.

CLS
INPUT "vvedite tochky a"; x, y
INPUT "vvedite granizy malen'kogo kvadrata"; x1
INPUT "vvedite granizy bolshogo kvadrata"; x2
y1 = x1
y2 = x2
IF x1 <= x <= x2 AND -x2 <= x <= -x1 AND y1 <= y <= y2 AND -y2 <= y <= -y1 THEN
    PRINT "tochka vhodit v oblast'"
ELSE
    PRINT "tochka ne vhodit"
END IF
END

Решение задачи: «Программа для проверки принадлежности точки области»

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

 
IF (x1 <= x AND x <= x2 OR -x2 <= x AND x <= -x1) AND (y1 <= y AND y<= y2 OR -y2 <= y AND y<= -y1) THEN

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

Задаются границы для проверки точки (x1,y1) и (x2,y2)
Проверяется принадлежность точки (x,y) к прямоугольнику (x1,y1) и (x2,y2) по двум условиям:
- (x1 <= x AND x <= x2 OR -x2 <= x AND x <= -x1)
- (y1 <= y AND y<= y2 OR -y2 <= y AND y<= -y1)
Если точка (x,y) удовлетворяет обоим условиям, то она принадлежит области, иначе - нет.