Составьте програму которая опрелеляет принадлежит ли точка с координатами ху заданной...

Question

Составьте програму которая опрелеляет принадлежит ли точка с координатами ху заданной областинужно для случая б, в и гжелательно не через массивы, на а нам показывали через if

---

Answer 1

Три программы, отличаются только if-ами:

Program XY14b;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(40) end;

 writeln;writeln;

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

 write('X='); readln(x);

 write('Y='); readln(y);

 if ((x<=5) and (x>=-5) and (y<=5) and (y>=-5)) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.

Program XY14v;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(40) end;

 writeln;writeln;

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

 write('X='); readln(x);

 write('Y='); readln(y);

 if ((x<=10) and (x>=0) and (y<=6) and (y>=-4)) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.

Program XY14g;

var

 x,y: real;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(40) end;

 writeln;writeln;

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

 write('X='); readln(x);

 write('Y='); readln(y);

 if (((x>=0) and (x-y<=3)) or ((x<=0) and (x+y>=-3))) then  

   writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')

  else

   writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');

end.