Определить принадлежность точки заданной области - QBasic (27858)

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

ПОМОГИТЕ ДЕРЕВЯННОМУ ЧЕЛОВЕКУ В ОБЛАСТИ QBASIC. СЕССИЯ НА НОСУ. изучать программу просто времени нет. 3 задание уже сделали Спасибо Softmob. 4 задание как то сам сделал. ВСЕМ СПАСИБО.

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

textual
                            Листинг программы 
                        
 
                            
                        
SCREEN 12: WINDOW (-320, -240)-(319, 239)
OUT &H3C8, 1: OUT &H3C9, 0: : OUT &H3C9, 10: OUT &H3C9, 20
   FOR z = -17 TO 17
      LINE (z * 4 - 70, z * 4 + 70)-(z * 4 + 70, z * 4 - 70), 1
   NEXT
CIRCLE (0, 0), 100, 10: PAINT (-319, 230), 1, 10: PAINT (-319, 230), 0, 10
LINE (-100, 100)-(100, -100), 10: LINE (-120, -20)-(120, -20), 10
LINE (0, 100)-(-84, -20), 10: PAINT (-35, 5), 1, 10: PAINT (-35, 5), 0, 10
   FOR z = -12 TO 12
      LINE (z * 10, -5)-(z * 10, 5), 8
      LINE (-5, z * 10)-(5, z * 10), 8
   NEXT
LINE (-120, 0)-(120, 0), 7: LINE (0, -120)-(0, 120), 7
CIRCLE (0, 0), 100, 10: LINE (-100, 100)-(100, -100), 10
LINE (-120, -20)-(120, -20), 10: LINE (0, 100)-(-84, -20), 10
Again: LOCATE 2, 1
LINE (-320, 240)-(-120, 170), 0, BF
INPUT "  Vvedite X : ", xt
INPUT "  Vvedite Y : ", yt
IF SQR(xt * xt + yt * yt) < 10 THEN pp% = 1
IF xt < -yt AND yt > -2 AND yt * .7 < xt + 7 THEN pp% = 0
  CIRCLE (xt * 10, yt * 10), 2, 15
  IF pp% THEN
     PAINT (xt * 10, yt * 10), 10, 15
     ELSE PAINT (xt * 10, yt * 10), 12, 15
  END IF
LOCATE 1, 1: LINE (-320, 240)-(-120, 190), 0, BF
PRINT : PRINT "  Another point ?"
PRINT "     ENTER - yes"
PRINT "     ESC   - exit"
DO: Kb$ = INKEY$
    IF Kb$ = CHR$(13) GOTO Again
LOOP UNTIL Kb$ = CHR$(27): CLS