Изучаем язык BASIC. Занятие 4, Задачи на попадание точки в заданную область

Занятие 4
Задачи на попадание точки в заданную область

Уравнение окружности проходящей через центр 13 EMBED Equation.3 1415

Если R = 2, то условие попадания точки внутрь круга будет выглядеть так:
Х^2 + Y^2 < 4
А программа запишется так:
CLS
INPUT X,Y
IF X^2 + Y^2 < 4 THEN ? “YES” ELSE ?”NO”



Для полукруга:
CLS
INPUT X,Y
IF X^2 + Y^2 < 9 AND X>0
THEN ? “YES” ELSE ?”NO”





Для четверть круга:

CLS
INPUT X,Y
IF X^2 + Y^2 < 16 AND X>0 AND Y>0
THEN ? “YES” ELSE ?”NO”





Решение задач
CLS
INPUT
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·D X^2+Y^2>1)
F1=( Y>0 AND X^2+Y^2<36 AND X^2+Y^2>9)
IF F1 OR F2 THEN ? “YES” ELSE ?”NO”



Домашнее задание.
CLS
INPUT X,Y
F1=(X>0 AND Y>=0 AND X^2+Y^2<25 AND X^2+Y^2>9)
F2=(X<=0 AND Y<=0 AND X^2+Y^2<49 AND X^2+Y^2>9)
F3=(Y<2 AND Y>0 AND X<0 AND X>-5)
F4
·=(Y<0 AND Y>-4 AND X<7 AND X>0 AND X^2+Y^2>9)
IF F1 OR F2 OR F3 OR F4 THEN ? “YES” ELSE ?”NO”
CLS
INPUT X,Y
F1=(X<0 AND Y>0 AND X^2+Y^2>25 AND X^2+Y^2<36)
F2=(Y<6 AND Y>=0 AND X>=0 AND X<7)
F3=(X<0 AND Y>=0 AND X^2+Y^2<9)
F4=(Y<0 AND Y>-5 AND X<6 AND X>=0 AND X^2+Y^2>4)
F5=(Y<0 AND Y>-4 AND X>-3 AND X<0)
IF F1 OR F2 OR F3 OR F4 OR F5 THEN ? “YES” ELSE ?”NO”

CLS
INPUT X,Y
F1=(X>=0 AND Y<=0 AND X^2+Y^2>4 AND X^2+Y^2<25)
F2=(X<=0 AND Y<=0 AND X^2+Y^2>25 AND X^2+Y^2<36)
F3=(Y<6 AND Y>0 AND X>=0 AND X<6)
F4=(X<0 AND Y>0 AND X^2+Y^2<36)
IF F1 OR F2 OR F3 OR F4 THEN ? “YES” ELSE ?”NO”