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

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

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

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
CLS
  INPUT "Vvedite X: ", x
  INPUT "Vvedite Y: ", y
SCREEN 12
WINDOW (-32, -24)-(32, 24)
  LINE (-10, 0)-(10, 0), 8
  LINE (0, -10)-(0, 10), 8
  FOR i = -8 TO 8
    LINE (i, -.4)-(i, .4), 8
    LINE (-.4, i)-(.4, i), 8
  NEXT
CIRCLE (0, 0), 8, 15, 3.14159265#, 1.57079633#, 1
CIRCLE (0, 5), 3, 15, 4.71238899#, 1.57079633#, 1
LINE (0, 0)-(0, 2), 15
LINE (0, 0)-(-8, 0), 15
 
  Flag = 1
  IF y > 0 AND x < 0 THEN Flag = 0
  IF SQR((y - 5) ^ 2 + x * x) < 3 THEN Flag = 0
  IF SQR(y * y + x * x) > 8 THEN Flag = 0
  LOCATE 2, 5
  PRINT "Tochka ";
  IF Flag = 1 THEN
    PRINT "popadaet v oblast"
    CIRCLE (x, y), .2, 10
    PAINT (x, y), 10, 10
  ELSE
    PRINT "vne oblasti"
    CIRCLE (x, y), .2, 12
    PAINT (x, y), 12, 12
  END IF