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

Question

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

---

Comments

Скажи график какой функции слева , напишу

---

Как я понимаю, слева - два графика прямых

---

Ну получится побольше знач

Answer 1

Область может быть описана как совокупность двух отдельных областей.


var
  x, y: real;
  p, q: boolean;

begin
  Write('Введите через пробел координаты x,y: ');
  Readln(x, y);
  p := (x >= 0) and (y >= 0) and (sqr(x) + sqr(y) <= 25);<br>  q := (x >= -5) and (x<=0) and (abs(y) <= x + 5);<br>  Writeln(p or q)
end.

Примеры выполнения программы:

Введите через пробел координаты x,y: -2 1
True

Введите через пробел координаты x,y: -4 2
False

Введите через пробел координаты x,y: 3 3
True

Введите через пробел координаты x,y: 6 3
False

Comments

Большое спасибо

Answer 2

Var x,y,c,d:integer;
begin
readln(x,y);
if (((x*x+y*y)<=25) and (x>=0) and (x<=5) and (y>=0) and (y<=5))<br>or ((-x-5<=y) and (x>=-5) and (x<=0) and (y<=0) and (y>=-5))
or ((x+5>=y) and (x>=-5) and (x<=0) and (y>=0) and (y<=5))<br>then
writeln('true');
end.

Comments

-5;1 true, хотя не true

---

Исправил (до этого знаки в строках перепутал)

---

Не до конца исправил

---

Сейчас додумаю

---

-2;-5 неправильно выводит теперь

---

я видел , думаю

---

он и -5 -1 тру выводит

---

Исправил

---

Спасибо большое, все вроде прекрасно работает :))

---

Удачи :)