{Выполнил: Ширванов Динис
 Группа: АТз-12у
 Год:2013
 ЭТФ ПГТУ}
 program find_area;
 
 uses crt;
 
 Const a=16;      {константы - Полу ось элипса}
       b=38;      {константы - Полу ось элипса}
       r=30;      {константы - Радиус окружности}
       
 Var   x,y:real;  {координаты искомой точки}
       xo,yo,xe,ye,kl,bl,di:real;
       p:string;

begin
p:='y';
while p='y' do begin
TextBackGround(blue);
clrscr;
Textcolor(white);
writeln('Введите координаты точки x:');
readln(x);

writeln('Введите координаты точки y:');
readln(y);

{Расчет необходимых данных}

{Окружность R=30}
xo:=-8;                          //Xo=-8
yo:=7.4400*sqrt(17*1.021242)-41; //Yo=-10
{Элипс(а=23;b=38}
xe:=(360*(sqrt(10)/23.23))-36;   //Xэлипс.центр=13
ye:=2;                           //Yэлипс.центр=2
{Уравнение прямой}
kl:=-0.809784;                   //tg141
bl:=15.4;
{условия попадания точки в ту или иную зону...}
di:=0;
if (1<=sqr(x-xe)/sqr(a)+sqr(y-ye)/sqr(b))     //Элипс
   and (x<=0)                                 //До оси
   and (sqr(r)>=sqr(x+1)+sqr(y-yo))           //Окружность
   then begin di:=1;
   writeln('');
   writeln('Попадение точки в зону А')
   end;
               
if (y<=x*kl+bl)                               //Прямая
   and (x>=8.5)                               //До точки С
   and (1>=sqr(x-xe)/sqr(a)+sqr(y+2)/sqr(b))  //Элипс
   and (sqr(r)<=sqr(x-xo)+sqr(y-yo))          //Окружность
   then begin di:=1;
   writeln('');
   writeln('Попадение точки в зону В');
   end;
if di=0 then writeln('Точка вне зон А и В');

{Проверка A}
writeln(' ');
writeln(' ____________________________________________');
writeln('/________________Проверка A_________________/');
writeln(' ');
write('1<=sqr(x-xe)/sqr(a)+sqr(y-ye)/sqr(b) ');
writeln(1<=sqr(x-xe)/sqr(a)+sqr(y-ye)/sqr(b));

write('x<=0 ');
writeln(x<=0);

write('sqr(r)<=sqr(x-xo)+sqr(y-yo) ');
writeln(sqr(r)<=sqr(x-xo)+sqr(y-yo));

{Проверка B}
writeln(' ');
writeln(' ____________________________________________');
writeln('/________________Проверка В_________________/');
writeln(' ');

write('y<=x*kl+bl ');
writeln(y<=x*kl+bl);

write('x>=8.5 ');
writeln(x>=8.5);

write('1>=sqr(x-xe)/sqr(a)+sqr(y+2)/sqr(b) ');
writeln(1>=sqr(x-xe)/sqr(a)+sqr(y+2)/sqr(b));

write('sqr(r)<=sqr(x-xo)+sqr(y-yo) ');
writeln(sqr(r)<=sqr(x-xo)+sqr(y-yo));
repeat
writeln(' ');
writeln('Продолжить?(y/n)');
readln(p);
clrscr
until (p='y') or (p='n');
writeln('Выполнил: Ширванов Динис');
writeln('Группа: АТз-12у');
writeln('Год:2013');
end;
end.