Изучаем язык BASIC. Занятие 8. Задачи на попадание точки в заданную область (Что делать если фигура не выпуклая?)

Занятие 8

CLS

INPUT X,Y

F1=(X<=-8 AND Y<=0 AND Y>-7.5*X - 75)

F2=(Y>=0 AND Y<4*X+40 AND Y<-0.71*X+7.1)

F3=( Y<0 AND Y>-15 AND X>-8 AND Y > 0.88*x -8.3)

F4=( X^2 + Y^2 > 4)

IF F1 OR F2 OR F3 AND F4 THEN ? "YES" ELSE ?"NO"

CLS

INPUT X,Y

X1=-8 : Y1=-15

X2=-10 : Y2=0

K1 = (Y2 - Y1)/(X2 - X1)

B1 = Y1 - K*X1

F1=(X<=-8 AND Y<=0 AND Y>K1*X+B1)

X1=-7 : Y1=12

X2=-10 : Y2=0

K2 = (Y2 - Y1)/(X2 - X1)

B2 = Y1 - K*X1

X1=-7 : Y1=12

X2=10 : Y2=0

K3 = (Y2 - Y1)/(X2 - X1)

B3 = Y1 - K*X1

F2=( Y>=0 AND Y

X1=0 : Y1=-15

X2=10 : Y2=0

K4 = (Y2 - Y1)/(X2 - X1)

B4 = Y1 - K*X1

F3=( Y<0 AND Y>-15 AND X>-8 AND Y

F4=( X^2 + Y^2 > 4)

IF F1 OR F2 OR F3 AND F4 THEN ? "YES" ELSE ?"NO"

CLS

INPUT X,Y

X1=-8 : Y1=0

X2=-5 : Y2=6

K1 = (Y2 - Y1)/(X2 - X1)

B1 = Y1 - K*X1

F1=(X>-8 AND X<=-5 AND Y>-2 AND Y

X1=-2 : Y1=0

X2=-5 : Y2=6

K2 = (Y2 - Y1)/(X2 - X1)

B2 = Y1 - K*X1

F2=(X>-5 AND X<=-2 AND Y>-2 AND Y

X1=1 : Y1=2

X2=5 : Y2=6

K3 = (Y2 - Y1)/(X2 - X1)

B3 = Y1 - K*X1

F3=( Y>=2 AND X<=5 AND Y

X1=3 : Y1=0

X2=1 : Y2=2

K4 = (Y2 - Y1)/(X2 - X1)

B4 = Y1 - K*X1

F4=( Y>=0 AND Y<2 AND X<5 AND Y>K4*X+B4)

X1=5 : Y1=6

X2=9 : Y2=2

K5 = (Y2 - Y1)/(X2 - X1)

B5 = Y1 - K*X1

F5=( Y>=2 AND X>5 AND Y

X1=7 : Y1=0

X2=9 : Y2=2

K6 = (Y2 - Y1)/(X2 - X1)

B6 = Y1 - K*X1

F6=( Y>=0 AND Y<2 AND X>5 AND Y>K6*X+B6)

F7=( X>-2 AND X<10 AND Y<-2 AND Y>0)

IF F1 OR F2 OR F3 OR F4 OR F5 OR F6 OR F7 THEN ? "YES" ELSE ?"NO"

Домашнее задание

CLS

INPUT X,Y

F1=(X<=3 AND Y>-4 AND Y>-1.33*X - 10.67 AND Y<1.2*X + 9.6 AND Y<-0.5*X + 4.5)

F2=( Y<-4 AND X>3 AND X<8 AND Y < 0.8*x + 0.6)

F3=( (X+3)^2 + (Y-2)^2 > 1)

IF F1 OR F2 AND F3 THEN ? "YES" ELSE ?"NO"

CLS

INPUT X,Y

F1=(Y<6 AND Y>=4 AND Y<-2*X +12 AND Y<1.5*X +10.5)

F2=(Y>=-2 AND X<=0 AND Y<4 AND Y<-1.5*X - 13.5)

F3=( Y<4 AND X>0 AND Y>-0.5*X-2 AND Y>1.67*X-15 AND Y < 0.8*x +7.2)

F4=(Y<-2 AND Y>-1.5*X -13.5 AND Y>1.33*X +0.67)

F5=(( (X+3)^2 + (Y-2)^2 > 1)

F6=(( (X-6)^2 + (Y)^2 > 4)

IF F1 OR F2 OR F3 OR F4 AND F5 AND F6 THEN ? "YES" ELSE ?"NO"