Question

помогите пожалуйста! 5, 6, 11 и 12. надо ,что бы программа писала true ,если точка лежит на заштрихованной поверхности.

Answer 1

Program XY5;

var

 x,y: real;

begin

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

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

 writeln;writeln;

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

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

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

 if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then  

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

  else

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

end.

Program XY6;

var

 x,y: real;

begin

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

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

 writeln;writeln;

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

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

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

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

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

  else

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

end.

Program XY11;

var

 x,y: real;

begin

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

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

 writeln;writeln;

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

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

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

 if ((x>=2) and (x*x+y*y<=36)) then  

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

  else

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

end.

Program XY12;

var

 x,y: real;

begin

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

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

 writeln;writeln;

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

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

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

 if ((x>=0) and (y>=0) and (x*x+y*y<=36)) or ((x>=0) and (y<=0) and (x-y<=6)) then  

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

  else

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

end.