PascalABC.NET Составить программу, которая печатает true, если точка с координатами (х,...

Question

PascalABC.NET
Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в противном случае.

---

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите x и y через пробел:');
  Writeln(x.Between(-6,-1) and y.Between(2,7) or
      x.Between(-6,-3) and y.Between(-3,2))
end.

Comments

Границы заштрихованных областей считаются принадлежащими этим областям.

---

Выражение х.Between(a,b) возвращает True, если х принадлежит интервалу [a;b]

Answer 2

Var
  x, y: real;

begin
  write('x: ');
  readln(x);
  write('y: ');
  readln(y);
  if ((x >= -6) and (x <= -1)) and ((y <= 7) and (y >= 2)) or (((x <= -3) and (x >= -6)) and ((y >= -3) and (y <= 2)))<br>    then writeln('True')
  else writeln('False');
end.

Подробнее - на Znanija.com - znanija.com/task/29163596#readmore