Question

Составить программу, проверяющую принадлежность точки с координатами (x,y) заштрихованной области.

Answer 1

a) Для ПРЯМОУГОЛЬНИКА:

program Logika1;
uses Crt;
const a=1;
         b=10;
         c=1;
         d=5;
 var x, y: real;     

begin
  ClrScr;
  Write (' x = '); ReadLn(x);
  Write (' y = '); ReadLn(y);
  if (x>=a) and (x<=b) and (y>=c) and (y<=d) then
   Writeln ('Принадлежит!') else WriteLn  ('Не принадлежит...');
  ReadLn;
end.


Для КВАДРАТОВ:

program Logika2;
uses Crt;
 var x, y: real;    
     xx, yy: boolean;

begin
  ClrScr;
  Write (' x = '); ReadLn(x);
  Write (' y = '); ReadLn(y);
  xx:=(x>=-1) and (x<=-0.5) or (x>=0.5) and (x<=1);
  yy:=(y>=-1) and (y<=-0.5) or (y>=0.5) and (y<=1);
  if (xx and yy) then Writeln ('Yes!') else WriteLn  ('No!');
  ReadLn;
end.

Для КОЛЬЦА:

program Logika3;
uses Crt;
 const R1=4;
       R2=2;
 var x, y: real;

begin
  ClrScr;
  Write (' x = '); ReadLn(x);
  Write (' y = '); ReadLn(y);
  if (sqr(x)+sqr(y)<=sqr(R1)) and  (sqr(x)+sqr(y)>=sqr(R2))
  then Writeln ('Yes!') else WriteLn  ('No!');
  ReadLn;
end.

Для ПОЛУКРУГА и ТРЕУГОЛЬНИКА:

program Logika4;
uses Crt;
 const R=2;
 var x, y: real;

begin
  ClrScr;
  Write (' x = '); ReadLn(x);
  Write (' y = '); ReadLn(y);
  if (sqr(x)+sqr(y)<=sqr(R)) and  (y>=x-2) and (y<=-x+2)
  then Writeln ('Yes!') else WriteLn  ('No!');
  ReadLn;
end.